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}"