Option Explicit
Private Sub Form_Load()
Winsock1.LocalPort = 80
Winsock1.Close
Winsock1.Listen
If Winsock1.State = 2 Then Label1.Caption = "Escuchando"
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
Winsock1.Accept requestID
If Winsock1.State = 7 Then Label1.Caption = "aceptado"
End Sub
Private Sub desconectar_Click()
Winsock1.Close
If Winsock1.State = 0 Then Label1.Caption = "desconectado"
End Sub
Private Sub iniciar_Click()
Winsock1.SendData "iniciar"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData SaveIn, vbString
End Sub