上網帳號密碼也可以儲存在隨身碟裡

 　　每次登入網頁，都要輸入使用者名稱、密碼，很麻煩;讓網頁自動儲存密碼，又怕別人用這台電腦登入。如果為了收信，在隨身碟中放個綠色版的Foxmail，要佔用空間，影響隨身碟壽命，而且帳號的安全性得不到保障。

　　現在，我只要雙擊一個檔案，就可以自動開啟網頁，自動輸入使用者名稱和密碼並登入，方便極了。而且，此方法可以擴充到論壇等輸入帳號的地方。具體代碼如下:

　　小提示:工作原理

　　使用vbs指令碼的InternetExplorer.Application組件開啟目標網頁，然後用document屬性來對開啟的網頁進行各種控制。

　　'擷取登入哪個郵箱

　　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壓縮包的密碼要強，這樣即使有人從隨身碟中偷走了檔案，自己的帳號也會很安全。