by Dalal Noueihed (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 14th August 2004
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Simple Telnet application
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