error winsock1: variable no definida
CitarOption 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
declaraste la variable SaveIn ?? no entiendo para que ponen Option Explicit si despues no declaran nada...¿ o esta en un modulo ?
se me paso declarar la variable Save in,jeje...de todas formas ya funciona faltaba añadir el control winsock al form
y ese programa para que era??