Haver si me pueden ayudar porfa
Publicado: 26 Dic 2009, 17:36
hola atodos los de la comunidad..
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"
aqui les dejo una imagen para que vean
haver si me pueden ayudar
gracias!!
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 Subhaver si me pueden ayudar
gracias!!