批处理telnet ip后自动输入用户名和密码代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】批处理telnet ip后自动输入用户名和密码

作者:DAIC / 发布于2014/1/21/ 1584

' 请根据路由器实际界面和实际设置更改以下 5 处有注解的数值或字符串值, 此代码以 TL-WR340G 无线路由器为设计依据.
PosSysTools = 16     ' 焦点到 "系统工具" 所需按 Tab 键的次数
PosReboot = 5      ' "系统工具" 展开后, 焦点到 "重启系统" 所需按 Tab 键的次数
PosRebootBtnShift = 6  ' "重启系统" 展开后, 焦点到 "重启系统" 按钮 所需按 Shift+Tab 键的次数
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "IEXPLORE.EXE http://192.168.1.1/" ' TP-LINK 的默认登录地址为 192.168.1.1, 此处应该无需更改
WScript.Sleep 100
WshShell.AppActivate "连接到 192.168.1.1"
WScript.Sleep 100
WshShell.SendKeys "%(u)"
WScript.Sleep 500
WshShell.SendKeys "admin" ' 双引号中是用户名, 这里取的是 TP-LINK 的默认设置 admin, 请根据实际情况更改
WScript.Sleep 500
WshShell.SendKeys "%(p)"
WScript.Sleep 500
WshShell.SendKeys "admin" ' 双引号中是密码, 这里取的是 TP-LINK 的默认设置 admin, 请根据实际情况更改
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 500
WshShell.SendKeys "{ESC}"
WScript.Sleep 500
For I = 1 To PosSysTools
 WshShell.SendKeys "{TAB}"
 WScript.Sleep 100
Next
WshShell.SendKeys "~"
WScript.Sleep 100
For I = 1 To PosReboot
 WshShell.SendKeys "{TAB}"
 WScript.Sleep 100
Next
WshShell.SendKeys "~"
WScript.Sleep 3000
For I = 1 To PosRebootBtnShift
 WshShell.SendKeys "+({TAB})"
 WScript.Sleep 100
Next
WshShell.SendKeys "~"
WScript.Sleep 200
WshShell.SendKeys "~"

试试其它关键字

　自动输入用户名和密码　

同语言下

可能有用的

DAIC贡献的其它代码(3)