Buenas stoy haciendo una aplicacion en Vb 6.0 y necesito utilizar el winsock. En el formulario servidor pongo:
Private Sub Form_Activate()
'CONECTAR WINSOCK
wsprod.LocalPort = 1030
wsprod.Listen
ip = wsprod.LocalIP 'ip es vble global
end sub
Private Sub wsprod_ConnectionRequest(ByVal requestID As Long)
If wsprod.State <> sckClosed Then
wsprod.Close
End If
wsprod.Accept requestID 'aceptamos la conexion
End Sub
Private Sub wsprod_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
wsprod.GetData datos 'cogemos lo q nos llega
Text2 = datos
End Sub
------------------FORMULARIO CLIENTE---------------------------------
Private Sub Form_Activate()
ws.RemoteHost = ip 'FormProductos.wsprod.LocalIP
ws.RemotePort = 1030 'FormProductos.wsprod.LocalPort
End Sub
Private Sub Command1_Click()
ws.Connect
ws.SendData "hola holita vecinito"
end sub
El problema es q habeces peta, y las otras en las q no parece como si el cliente no enviase nada o el servidor no lo cogiese(pq parece q no acepta la peticion con el connectionResquest)
Haber si podeis echarme una mano please
