TelNet Pause and go

L

laroberts

Freshman
Joined
Jun 29, 2005
Messages
34
I need to find a way to pause to allow time for the TelNet connection to take place and then answer the user name and password when it asks for it. Right now this runs so fast that it goes right through it before the TelNet is ready. Can somebody please show me an example of how I can do this with the code below.

Thank you


Private Sub TelnetGuiApp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
m_Socket = New ASOCKETLib.SocketClass
m_Constants = New Constants
m_Socket.Protocol = m_Constants.asPROTOCOL_TELNET

'Host For FTP Location
Dim TXT_HOST As String
TXT_HOST = "library.uah.edu"
m_Socket.Connect(TXT_HOST, 23)
TXT_RESULT.Text = m_Socket.LastError.ToString() & " (" & m_Socket.GetErrorDescription(m_Socket.LastError) & ")"

' User Name For Host
Dim TXT_COMMAND As String
TXT_COMMAND = "guest"
m_Socket.SendString(TXT_COMMAND, 1)
TXT_RESULT.Text = m_Socket.LastError.ToString() & " (" & m_Socket.GetErrorDescription(m_Socket.LastError) & ")"


' Password For Host
Dim TXT_PASSWORD As String
TXT_PASSWORD = "5345"
m_Socket.SendString(TXT_PASSWORD, 1)
TXT_RESULT.Text = m_Socket.LastError.ToString() & " (" & m_Socket.GetErrorDescription(m_Socket.LastError) & ")"


End Sub
 
Back
Top