使用vbs实现自动登录系统

private userName

private passWord

private WshShell

userName = "*******"

passWord = "************"

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.run "cmd.exe /C start iexplore http://***************.com"

WScript.Sleep 2000

WScript.Sleep 1000

WScript.Sleep 1000

WshShell.SendKeys userName

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys passWord

WScript.Sleep 100

WshShell.SendKeys "{ENTER}"