具體代碼如下:

　　ps：工作原理：使用vbs腳本的InternetExplorer.Application組件打開目標(biāo)網(wǎng)頁(yè)，然后用document屬性來對(duì)打開的網(wǎng)頁(yè)進(jìn)行各種控制。

　　1、首先在桌面上鼠標(biāo)右擊新建一個(gè)文本文檔，然后將下面代碼復(fù)制粘貼進(jìn)去，具體代碼如下：

　　'獲取登錄哪個(gè)郵箱

　　index=inputbox("0--yahoo "&vbcrlf&vbcrlf&"1--163"，"選擇郵箱"，0)

　　'創(chuàng)建InternetExplorer.Application對(duì)象

　　Set ie = CreateObject("internetexplorer.application")

　　ie.Visible = 1 '設(shè)置網(wǎng)頁(yè)的可見性

　　Select Case Index

　　Case "0" '當(dāng)選擇0--yahoo時(shí)

　　ie.navigate "http://cn.mail.yahoo.com/" '打開yahoo郵箱登錄頁(yè)

　　Wscript.Sleep 5000 '等待5秒，確保網(wǎng)頁(yè)已打開完畢

　　ie.document.getElementById("login").Value = "username" '將id為login的表單填為username

　　ie.document.getElementById("passwd").Value = "密碼"

　　Set ie = Nothing '釋放對(duì)象占用的內(nèi)存

　　Case "1" '第二個(gè)登錄過程

　　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 '沒選任何或超出范圍時(shí)仍要釋放對(duì)象

　　'當(dāng)把vbs放在加密的rar中，一定要用下面FSO對(duì)vbs進(jìn)行刪除操作，以免賬號(hào)泄漏在臨時(shí)文件夾中

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Set MyFile = fso.GetFile("login.vbs")

　　myFile.DeletE:set myfile=nothing:set fso=nothing

　　然后將上面的腳本保存為pass.vbs，然后給其中的網(wǎng)址就是你需要登錄的網(wǎng)站或是論壇，將后面的username.Value = "cfan"中引號(hào)內(nèi)的替換為用戶名，Password.Value = "cfan"中引號(hào)內(nèi)的替換為密碼即可使用。上文中的例子是登錄雅虎和163信箱。

　　至于賬號(hào)的安全性，大家可能擔(dān)心自己的賬戶和密碼明文寫在vbs腳本中不安全，你可以將它用rar壓縮加密，當(dāng)然，rar壓縮包的密碼要強(qiáng)，這樣即使有人從U盤中偷走了文件，自己的賬號(hào)也會(huì)很安全哦。