名称 login.vbs
#$language = "VBScript"
#$interface = "1.0"
Sub main
crt.Screen.Synchronous = True
crt.Screen.WaitForString "ogin: "
crt.Screen.Send "ywewie" & VbCr
crt.Screen.WaitForString "assword:"
crt.Screen.Send "g154123" & VbCr
crt.Screen.WaitForString ">"
crt.Screen.Send "ssh kime@112.243.211.20" & VbCr
crt.Screen.WaitForString "assword:"
crt.Screen.Send "cdfe3$" & VbCr
crt.Screen.WaitForString "Input device: "
crt.Screen.Send "177" & VbCr
crt.Screen.WaitForString "Input accounts:"
crt.Screen.Send "2" & VbCr
crt.Screen.WaitForString "S2-E-YZ-WANGGUAN's username:"
crt.Screen.Send "cxwew" & VbCr
crt.Screen.WaitForString "assword:"
crt.Screen.Send "cxwwew3$" & VbCr
crt.Screen.WaitForString ">"
crt.Screen.Send "telnet 107.241.208.78" & VbCr
crt.Screen.WaitForString "ogin: "
crt.Screen.Send "cxerez" & VbCr
crt.Screen.WaitForString "assword:"
crt.Screen.Send "GMwer3A" & VbCr
crt.Screen.WaitForString "#"
crt.Screen.Send "set -o vi" & VbCr
crt.Screen.Send "TMOUT=0" & VbCr
crt.Screen.Synchronous = False
End Sub