- 作者:佚名
- 时间:2016-02-16
每次登录某个软件或者网页的时候都需要输入密码账号真是麻烦,而且需要记住的密码账号那么多,哪有那个功夫和时间。所以小编今天要推荐给大家一个小技巧,利用U盘来帮你记住账号密码,而且不需要你手动输入,只要将U盘连接电脑就可以实现自动登入账号啦。想知道如何实现的吗?那就跟小编一起来看看吧。
特荐:U盘装系统
1.新建一个文本文档;更多精彩內容繼續關注新白菜u盤啓動盤制作工具官網www.laomaotao.cn.com。祝朋友天天快樂。
2.在文档总输入以下代码:
(以登录163信箱为例子)
'获取登录哪个邮箱
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 "" '打开yahoo邮箱登录页
Wscript.Sleep 5 '等待5秒,确保网页已打开完毕
ie.document.getElementById("login").Value = "username" '将id为login的表单填为username
ie.document.getElementById("passwd").Value = "密码"
Set ie = Nothing '释放对象占用的内存
Case "1" '第二个登录过程
ie.navigate ""
Wscript.Sleep 5
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
(说明:把其中的网址就是你需要登录的网站或是论坛,将后面的username.Value = "cfan"中引号内的替换为用户名,Password.Value = "cfan"中引号内的替换为密码即可使用。)
3.将文本另存为pass.vbs即可。
Ok,大功告成!以后上网登录网页就不要再抓耳挠腮的想密码了,也不用怕在电脑上保存密码被他人随意登录,只需药双击一个文件,就可以自动打开网页且自动登入账号密码,方便又安全。这么实用又安全的小技能不可错过,有兴趣的小伙伴们快动手试试吧。
更多精彩內容繼續關注新白菜u盤啓動盤制作工具官網www.laomaotao.cn.com。祝朋友天天快樂。