Private Sub Form_Load() Winsock1.LocalPort = 12666 Winsock1.Listen End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Data As String Winsock1.GetData Data End Sub Private Sub Command1_Click() Winsock1.Close Winsock1.Connect "80.15.37.149, 8080" End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Data As String Winsock1.GetData End Sub
bref. Si le controle n'est pas dans ta barre d'outils, comme le suggère retorik, vas dans : Projet > Composants > et la tu recherche et tu coche dans la liste l'element "Microsoft Winsock Control 6.0" il te suffit maintenant d'appuyer sur OK, et de créer Winsock1 dans ta Form
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question