現(xiàn)在，只要雙擊一個文件，就可以自動打開網(wǎng)頁，自動輸入用戶名和密碼并登錄，方便極了。而且，此方法可以擴展到論壇等輸入賬號的地方。具體代碼如下:                                

小提示:工作原理

使用vbs腳本的InternetExplorer.Application組件打開目標(biāo)網(wǎng)頁，然后用document屬性來對打開的網(wǎng)頁進行各種控制。

'獲取登錄哪個郵箱

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

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

Set ie = CreateObject("internetexplorer.application")

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

Select Case Index 

Case "0"  '當(dāng)選擇0－－yahoo時

ie.navigate ""   '打開yahoo郵箱登錄頁

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

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

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

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

Case "1"   '第二個登錄過程

ie.navigate ""

Wscript.Sleep 5000

ie.document.getElementById("login163").username.Value = "cfan"

ie.document.getElementById("login163").Password.Value = "cfan"

End Select

Set ie = Nothing   '沒選任何或超出范圍時仍要釋放對象

'當(dāng)把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，把其中的網(wǎng)址就是你需要登錄的網(wǎng)站或是論壇，將后面的username.Value = "cfan"中引號內(nèi)的替換為用戶名，Password.Value = "cfan"中引號內(nèi)的替換為密碼即可使用。上文中的例子是登錄雅虎和163信箱。

關(guān)于賬號安全性的說明:你可能擔(dān)心自己的賬戶和密碼明文寫在vbs腳本中不安全，你可以將它用rar壓縮加密，每次輸一個密碼就可以想怎么登就怎么登。當(dāng)然，rar壓縮包的密碼要強，這樣即使有人從U盤中偷走了文件，自己的賬號也會很安全。