to create telnet object and open connection

Is it possible to create telnet from VB using late binding and
1. open  connection to remote server, 2  pass a user id and password programmatically  and 3. make telnet  visible
LVL 1
mativareAsked:
Who is Participating?
 
mcriderConnect With a Mentor Commented:
Here's an example using  a command1 button... Add this to a form:


Sub Sleep(Interval As Long)
    Dim lTimer As Long
    lTimer = Timer + Interval
    Do While Timer < lTimer
        DoEvents
    Loop
End Sub
Private Sub Command1_Click()
    Dim lReturn As Variant
    lReturn = Shell("Telnet hostname", vbNormalFocus) 'REPLACE hostname WITH NAME OF HOST
    AppActivate lReturn
    Sleep 1
    SendKeys "mcrider{ENTER}" 'SEND USERID
    Sleep 1
    SendKeys "noneofyourbusiness{ENTER}" 'SEND PASSWORD
End Sub


Hope this helps!


Cheers!
0
 
mativareAuthor Commented:
Impressive!
0
 
mcriderCommented:
Thanks for the points! Glad I could help!


Cheers!
0
All Courses

From novice to tech pro — start learning today.