Simple Telnet application
Simple Telnet application
Rate Simple Telnet application
(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
Simple Telnet application Comments
No comments yet — be the first to post one!
Post a Comment