具體程式碼如下:
ps:工作原理:使用vbs指令碼的InternetExplorer.Application元件開啟目標網頁,然後用document屬性來對開啟的網頁進行各種控制。
1、首先在桌面上滑鼠右擊新建一個文字文件,然後將下面程式碼複製貼上進去,具體程式碼如下:
'獲取登入哪個郵箱
index=inputbox("0--yahoo "&vbcrlf&vbcrlf&"1--163","選擇郵箱",0)
'建立InternetExplorer.Application物件
Set ie = CreateObject("internetexplorer.application")
ie.Visible = 1 '設定網頁的可見性
Select Case Index
Case "0" '當選擇0--yahoo時
ie.navigate "http://cn.mail.yahoo.com/" '開啟yahoo郵箱登入頁
Wscript.Sleep 5000 '等待5秒,確保網頁已開啟完畢
ie.document.getElementById("login").Value = "username" '將id為login的表單填為username
ie.document.getElementById("passwd").Value = "密碼"
Set ie = Nothing '釋放物件佔用的記憶體
Case "1" '第二個登入過程
ie.navigate "http://mail.163.com"
Wscript.Sleep 5000
ie.document.getElementById("login163").username.Value = "cfan"
ie.document.getElementById("login163").Password.Value = "cfan"
End Select
Set ie = Nothing '沒選任何或超出範圍時仍要釋放物件
'當把vbs放在加密的rar中,一定要用下面FSO對vbs進行刪除操作,以免賬號洩漏在臨時資料夾中
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile("login.vbs")
myFile.DeletE:set myfile=nothing:set fso=nothing
然後將上面的指令碼儲存為pass.vbs,然後給其中的網址就是你需要登入的網站或是論壇,將後面的username.Value = "cfan"中引號內的替換為使用者名稱,Password.Value = "cfan"中引號內的替換為密碼即可使用。上文中的例子是登入雅虎和163信箱。
至於賬號的安全性,大家可能擔心自己的賬戶和密碼明文寫在vbs指令碼中不安全,你可以將它用rar壓縮加密,當然,rar壓縮包的密碼要強,這樣即使有人從隨身碟中偷走了檔案,自己的賬號也會很安全哦。