Const NumPort = 11112 ' Nombre au hazard Dim AdresseIP as long ' IP du PC à qui se connecter Dim Fichier as string ' Variable qui contient le fichier Private Sub Form_Load() Winsock.LocalPort = NumPort End Sub Private Sub Command1_Click() Winsock.Connect AdresseIP, NumPort End Sub ' La connexion est accepté Private Sub Winsock_Connect() Winsock.SendData Fichier End Sub
Dim Fichier as string Private Sub Form_Load() Winsock.Listen End Sub ' On nous demande une connection Private Sub Winsock_ConnectionRequest(ByVal requestID As Long) Winsock.Close ' On accepte Winsock.Accept requestID End Sub ' On reçoit le fichier Private Sub Winsock_DataArrival(ByVal bytesTotal As Long) Winsock.GetData Fichier ' Et on ferme Winsock.Close End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question