kerio
05 de Marzo del 2004

No soy capaz de conectarme al router por telnet desde vb .net 2003 . tengo el siguiente codigo:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBoxRCV.Clear()
TextBoxCMD.Clear()
End Sub

Private Sub btnConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConectar.Click
Dim servidor
Winsock.Close()
Winsock.RemoteHost = CStr(TextBoxIP.Text)
Winsock.RemotePort = CInt(23)
Winsock.Connect()
servidor = TextBoxIP.Text()
TextBoxRCV.Text = "Conectando a " & servidor & "..."

End Sub

Private Sub Winsock1_DataArrival(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim datos As String

Winsock.GetData(datos)
TextBoxRCV.Text = TextBoxRCV.Text + datos
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim enviar As String

enviar = TextBoxCMD.Text
Winsock.SendData(enviar)
End Sub

Conecta porque el firewall melo indica pero no obtengo respuesta (he probado quitando el firewall)
¿que puede pasar?

diego
05 de Marzo del 2004

alguien me ayuda?