bueno estoy haciendo un programa de coexion un chat client para ares por medio de ip y puerto pero tengo un problema y nose que es
e tratado muchas formas y meda el mismo error les dejo el codigo haver si me pueden ayuar porfa
el error es de tiempo de ejecucion y me dice que el problema es en "Winsock1.Connect"
Código: Seleccionar todo
Private Sub Cmdconect_Click()
Winsock1.RemoteHost = Val(txtip.Text)
Winsock1.LocalPort = Val(txtport.Text)
Winsock1.Connect
End Sub
Private Sub cmdenviar_Click()
Dim enviar As String
enviar = txtenviar.Text
Winsock1.SendData enviar
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
txtdata.Text = txtdata.Text + datos
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
haver si me pueden ayudar
gracias!!
