Autor
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
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
En línea
