自动化登陆博客园脚本

自动化登陆博客园脚本

有时候我们在经常登陆某些系统的时候,有时候要输入用户名,密码;同一个网站或者系统有时候时间过长就会Session过期,需要重新登陆;借用达叔实现的一个脚本,可以直接执行就可以自动登陆进去,需要写入自己的用户名,密码(IE6,7下测试通过)

dim ie,Wshell,btn
set ie=createobject("internetexplorer.application")
Set Wshell=WScript.CreateObject("WScript.Shell")

ie.visible=true
ie.navigate "http://passport.cnblogs.com/login.aspx?ReturnUrl=http://www.cnblogs.com/pick/"

while ie.busy or ie.readystate<>4
wend

ie.document.getElementById("tbUserName").value="自己的用户名"
ie.document.getElementById("tbPassword").value="自己登陆密码"
'点击登陆
ie.document.getElementById("btnLogin").click

'按钮点击后，要延时1下，等待页面刷新完成
WScript.Sleep(1500)