hack77

Hola amigos estoy siguiendo un tutorial de visual basic sobre creacion de cliente/servidor...Listo el cliente me salio a la perfeccion pero el servidor me arroja un error y no me deja escuchar en el puerto indicado:

-este es mi proyecto con el error que arroja:



-este es el codigo del error:



aqui el codigo:

Private Sub Command2_Click()
'cerramos cualquier conexion previa
Winsock1.Close

'asignamos el puerto local que abriremos
Winsock1.LocalPort = Text3.Text

'deja el socket esuchando conexiones
Winsock1.Listen

'desplegamos un mensaje en la ventana
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "*** Esuchando conexiones." & vbCrLf
Text1.SelStart = Len(Text1.Text)


End Sub

Gracias me urge asi podre saltar al tema de la creacion de mi propio RAT xD.

Fashion

Parece que Text3.Text no contiene el número de puerto, tal vez sea de la siguiente manera:

ó

__________________

hack77

Muchas gracias por tu respuesta rapida y efectiva amigo Fashion... como caido del cielo xD.

La opcion que me sirvio fue la dos:

[/QUOTE]

el text3 no contenia el numero de puerto...Muchas gracias.