Visual Basic 6 - client server ricevere un immagine

come faccio a ricevere un immagine nel lato server ???

Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Public Function ImmagineSchermo(Optional ActiveWindow As Boolean) As Picture
Dim Picture As StdPicture
Set Picture = Clipboard.GetData(vbCFBitmap)
If ActiveWindow Then
keybd_event vbKeyMenu, 0, 0, 0
End If
keybd_event vbKeySnapshot, 0, 0, 0
DoEvents
keybd_event vbKeySnapshot, 0, KEYEVENTF_KEYUP, 0
If ActiveWindow Then
keybd_event vbKeyMenu, 0, KEYEVENTF_KEYUP, 0
End If
Set ImmagineSchermo = Clipboard.GetData(vbCFBitmap)
Clipboard.SetData Picture, vbCFBitmap
End Function

Private Sub Command1_Click()
Dim immagine() As Byte
Open "C:\Users\Francesco\Desktop\a.bmp" For Binary As #1
ReDim immagine(0 To LOF(1) - 1)
Get #1, , immagine
Close #1
Winsock1.SendData immagine
End Sub

Private Sub Command2_Click()
Winsock1.Connect text2.text, "2000"
End Sub

Private Sub Form_Load()
Set Picture1.Picture = ImmagineSchermo
SavePicture Picture1.Picture, "C:\Users\Francesco\Desktop\a.bmp"
End Sub

Ma che programma è ?

vorrei che il mio compagno installi il server e io dal client mi collego e scarico immagine in una picture box. ( nel lato server c'è anche una picture box)
utilizzando i winsock.

Tutto questo l'ho capito ... ma la domanda era un'altra.

Che tipo di programma stai facendo? A che serve una cosa del genere?

allora ti spiego il mio amico mi deve fare delle foto ad un progetto da lui fatto e mi ha chiesto se potevo fare un programma per poterla scattare e inviare

Questa cosa non ha senso ... si inviano le foto in tantissimi modi, sicuramente non facendo lo screenshot del video e inviandolo via socket con vb6 ...

Allora ... veramente, cosa stai scrivendo?

è la verità se non mi credi non mi aiutare andrò a chiedere aiuto in un altro forum

Fai come vuoi ma la questione non ha senso ...