Problema con winsock :/

[Tor]

haber, sigiendo un .pdf que hablaba sobre troyanos hice ( o por lo menos lo intente ) hacer esto pero resulta que cuando pongo:

Winsock1.LocalPort = txtpuerto.Text

pos me dice que el LocalPort me lo meta por hay y no me rula...

( la aplicacion como veis es sencilla, 2 textbox y 2 commandbutton ( abrir puerto y cerrar puerto ) en el txtpuerto introduces el puerto k kieres abrir, le das a abrir y en el txtRecibido aprece la informacion, si le das a cerrar, pos para xD )

Private Sub cmdAbrir_Click()
Winsock1.LocalPort = txtpuerto.Text
Winsock1.Listen
End Sub

Private Sub cmdCerrar_Click()
Winsock1.Close
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
txtRecibido = txtRecibido & "Conexión Cerrada: " & Winsock1.RemoteHostIP
Winsock1.Close
txtRecibido = "ID de la solicitud de la conexion " & requestID & "de " & Winsock1.RemoteHostIP
Winsock1.Close
Winsock1.Accept requestID
Dim vtData As String
Winsock1.GetData vtData, vbString
txtRecibido.Text = ""
txtRecibido.Text = txtRecibido & vtData
End Sub

haber si alguien me puede decir k pasa, porfavor

[Manibal_man]

que nombre les estas poniendo a los textbox?

Saludos

[sch3m4]

puede que el puerto ya esté en uso...

porcierto, el código

Código [Seleccionar] Expandir


Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
txtRecibido = txtRecibido & "Conexión Cerrada: " & Winsock1.RemoteHostIP
Winsock1.Close
txtRecibido = "ID de la solicitud de la conexion " & requestID & "de " & Winsock1.RemoteHostIP
Winsock1.Close
Winsock1.Accept requestID
Dim vtData As String
Winsock1.GetData vtData, vbString
txtRecibido.Text = ""
txtRecibido.Text = txtRecibido & vtData
End Sub


Desde que cierras el sockets por 1º vez (no incluido), iría en el evento DataArrival.