• Home
 · 
• Miscellaneous
 · 
• Simple Telnet application

Simple Telnet application

Simple Telnet application

Rate Simple Telnet application

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Winsock1.SendData Text1.Text & vbNewLine
Text2.SelStart = Len(Text2.Text)
Text1.Text = ""
End Sub
Private Sub Form_Load()
Winsock1.RemotePort = 23
Winsock1.RemoteHost = "xxx.xxx.xxx.xxx"
Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim k As String
Winsock1.GetData k
Text2.Text = Text2.Text & k
End Sub