自动化登陆博客园脚本

　　自动化登陆博客园脚本

　　有时候我们在经常登陆某些系统的时候,有时候要输入用户名,密码;同一个网站或者系统有时候时间过长就会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)

　　复制脚本,保存VBS即可,如果对于有验证码的该如何处理呢?

原文转自：http://www.ltesting.net