自動化登陸博客園腳本

　　自動化登陸博客園腳本

　　有時候我們在經常登陸某些系統的時候,有時候要輸入用戶名,密碼;同一個網站或者系統有時候時間過長就會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.anti-gravitydesign.com