wenas, no se que he hecho mal y llevo 2 dias buscando alguna solucion pero nada, estoi haciendo un programa que lleva entre otras cosas una consola telnet, conecta bien donde kiero entrar y tal pero en la consola "text1" no me sale todo como deviera, salen algunos simbolos raros y el txt ke tengo asignado para ke mande los comandos a la consola no funciona bien tampoko, no manda comandos, solo me deja meter el login y pass y luego no me deja meter los comandos, este es el codigo:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData buffer$, vbString
Text1.Text = Text1.Text & buffer$
End Sub
Private Sub Winsock1_Close()
Timer1.Enabled = False
MsgBox "Connection with host lost"
Me.Caption = "full ip view"
Winsock1.Close
End Sub
Private Sub Winsock1_Connect()
Me.Caption = "full ip view"
Timer1.Enabled = False
End Sub
Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
On Error GoTo 1
If KeyAscii = 13 Then
Text2.Text = ""
Winsock1.SendData Chr(13)
KeyAscii = 0
Else
Winsock1.SendData Chr(KeyAscii)
End If
Exit Sub
1 KeyAscii = 0
End Sub
os pongo una captura para que lo veais mejor, a partir de ai ya no me deja mandar comandos o lo ke mando sale en la consola como simbolos raros, espero ke me podais ayudar
Saludos!!
Marcadores