將上網賬號密碼保存在U盤里無需手動輸入也不怕別人知道
2024-05-08 13:45:38
供稿：網友
每次登錄網頁，都要輸入用戶名、密碼，很麻煩;讓網頁自動保存密碼，又怕別人用這臺電腦登錄。如果為了收信，在U盤中放個綠色版的Foxmail，要占用空間，影響U盤壽命，而且賬號的安全性得不到保障。
現在，我只要雙擊一個文件，就可以自動打開網頁，自動輸入用戶名和密碼并登錄，方便極了。而且，此方法可以擴展到論壇等輸入賬號的地方。具體代碼如下:
小提示:工作原理
使用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壓縮包的密碼要強，這樣即使有人從U盤中偷走了文件，自己的賬號也會很安全。
