Foro de elhacker.net

Server:
Private Sub Form_Load()
intmax = 0
tcpServer(0).LocalPort = 1001
tcpServer(0).Listen
End Sub

Private Sub tcpServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
 If Index = 0 Then
        intmax = intmax + 1
        Load tcpServer(intmax)
        tcpServer(intmax).Accept requestID
        Load txtData(intmax)
    End If
End Sub

Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub

Private Sub txtSendData_Change()
tcpServer.SendData txtSendData.Text
End Sub

Me da error en el server .
y el cliente es esto

Private Sub cmdConnect_Click()
tcpClient.Connect
End Sub

Private Sub Form_Load()
tcpClient.RemoteHost = "192.168.0.1"
tcpClient.RemotePort = 1001
End Sub

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.txt = strData

End Sub

Private Sub txtSendData_Change()
tcpClient.SendData txtSendData
End Sub

no veo ninguna declaración ni control con ese nombre...............que podra ser ? ;D ;) ¬¬

Bueno lo tengo comentado pero = da error =(

Solo carga el nuevo control en la matriz si el indice del winsock es cero. Tengo que hacer un debug de esto para estar seguro pero pienso que el index aumenta con cada cargada y llamada al evento connection request. Saca esa condicional o modificala.

Cuando conectas el cliente y llamas a winsock().connect ponele los argumentos que son el ip y el puerto. Ya se que los asignas antes pero colocalo igual.

No te olvides que el servidor debe ser el primero en ser ejecutado.

gracias xD.