Saludos
la verdad no me a querido conectar de ningun modo, para probar cree un sencillo porgrama de chat como los que usan para ejemplificar el uso de winsock, y se lo envie a un amigo y coloque a la escucha y le dije que se conetara a el puerto que puse a escuchar y a mi ip directamente ni siquiera a el dominio de no-ip y pues no sirvio
estoy a punto de arrojar el pc por la ventana
dejo el codigo para ver que ise mal o que rayos pasa
Option Explicit
Private WithEvents WS As CSocketPlus
Private Sub Command1_Click()
WS.CloseSck 1
WS.Connect (1), txtIP.Text, txtport.Text
End Sub
Private Sub Command2_Click()
WS.SendData 1, txtenviar.Text
End Sub
Private Sub Form_Load()
Set WS = New CSocketPlus
WS.ArrayAdd 1
End Sub
se supone que este deberia conectarse a este que esta escuchando
Private Sub Command1_Click()
If txtport <> "" Then
WS.CloseSck 1
WS.LocalPort(1) = txtport
WS.Listen 1
LbStado.Caption = "Escuchando"
cmdEnviar.Enabled = False
Else
MsgBox "Digite algun Puerto"
End If
End Sub
Private Sub Form_Load()
Set WS = New CSocketPlus
WS.ArrayAdd 1
End Sub
Gracias por su ayuda
Autor
En línea
.
