VBS脚本自动登录集合
VBS脚本自动登录集合
2011年03月29日
VBS脚本自动登录集合
1、自动登录人人网
Dim a
Set a=Wscript.CreateObject("Wscript.Shell")
a.run "http://www.renren.com/GLogin.do"
Wscript.Sleep 3000
a.SendKeys "账号"
Wscript.Sleep 100
a.SendKeys "{Tab}"
a.SendKeys "密码"
a.SendKeys "{Tab}"
a.SendKeys "{Tab}"
a.SendKeys "{Enter}"
Wscript.Sleep 300
a.SendKeys "{Enter}"
2、自动登录百度空间
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=true
ie.navigate "http://passport.baidu.com/?login"
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
ie.document.getElementById("username").value="账号"
ie.document.getElementById("password").value="密码"
ie.document.getElementById("mem_pass").checked=true
Wscript.Sleep 200
dl=ie.document.getElementsBytagname("form")
Wscript.Sleep 200
dl.submit
3、自动登录QQ
Dim Program1,a,b
Program1= "C:\Program Files\Tencent\QQ\Bin\QQ.exe" 'QQ路径
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 5000
WshShell.AppActivate "QQ用户登录"
WScript.Sleep 2000
wshShell.SendKeys "+{TAB}"
a="QQ号码"
WshShell.SendKeys a
WScript.Sleep 2000
WshShell.SendKeys "{TAB}"
b="QQ密码"
WshShell.SendKeys b
WScript.Sleep 2000
WshShell.SendKeys "{ENTER}"
