Título: Problema con winsock :/ Publicado por: Tor en 18 Julio 2005, 04:42 am haber, sigiendo un .pdf que hablaba sobre troyanos hice ( o por lo menos lo intente ) hacer esto pero resulta que cuando pongo:
Citar 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 ) Citar 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 Título: Re: Problema con winsock :/ Publicado por: Manibal_man en 18 Julio 2005, 06:39 am que nombre les estas poniendo a los textbox?
Saludos Título: Re: Problema con winsock :/ Publicado por: sch3m4 en 18 Julio 2005, 10:24 am puede que el puerto ya esté en uso...
porcierto, el código 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) Desde que cierras el sockets por 1º vez (no incluido), iría en el evento DataArrival. |