se me paso declarar la variable Save in,jeje...de todas formas ya funciona faltaba añadir el control winsock al form
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú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