當(dāng)前位置:首頁 > 幫助中心 > U盤還是帳號(hào)密碼的藏身處
U盤還是帳號(hào)密碼的藏身處
每次登錄網(wǎng)頁,都要輸入用戶名、密碼,很麻煩;讓網(wǎng)頁自動(dòng)保存密碼,又怕別人用這臺(tái)電腦登錄。如果為了收信,在U盤中放個(gè)綠色版的Foxmail,要占用空間,影響U盤壽命,而且賬號(hào)的安全性得不到保障。
現(xiàn)在,我只要雙擊一個(gè)文件,就可以自動(dòng)打開網(wǎng)頁,自動(dòng)輸入用戶名和密碼并登錄,方便極了。而且,此方法可以擴(kuò)展到論壇等輸入賬號(hào)的地方。具體代碼如下:
小提示:工作原理
使用vbs腳本的InternetExplorer.Application組件打開目標(biāo)網(wǎng)頁,然后用document屬性來對(duì)打開的網(wǎng)頁進(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)頁的可見性
Select Case Index
Case "0" '當(dāng)選擇0--yahoo時(shí)
ie.navigate "http://cn.mail.yahoo.com/" '打開yahoo郵箱登錄頁
Wscript.Sleep 5000 '等待5秒,確保網(wǎng)頁已打開完畢
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信箱。
關(guān)于賬號(hào)安全性的說明:你可能擔(dān)心自己的賬戶和密碼明文寫在vbs腳本中不安全,你可以將它用rar壓縮加密,每次輸一個(gè)密碼就可以想怎么登就怎么登。當(dāng)然,rar壓縮包的密碼要強(qiáng),這樣即使有人從U盤中偷走了文件,自己的賬號(hào)也會(huì)很安全。
(責(zé)任編輯:m.jointdoit.com)