haber, sigiendo un .pdf que hablaba sobre troyanos hice ( o por lo menos lo intente ) hacer esto pero resulta que cuando pongo:
CitarWinsock1.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 )
CitarPrivate 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
que nombre les estas poniendo a los textbox?
Saludos
puede que el puerto ya esté en uso...
porcierto, el código
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.