jajajaja, ¿que hombre que se precie se llamaria Hylari? ¿os suena?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarWinsock1.LocalPort = txtpuerto.Textpos me dice que el LocalPort me lo meta por hay y no me rula...
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