教你巧妙利用u盘保存上网登录账号密码实现快速登录

2014-10-22 11:33

    现在注册论坛和博客的人越来越多了,然后每次登录网页的时候都需要我们输入用户名和密码才可以登录,这样是不是很麻烦呢,可是让网页自动保存密码又担心别人用这台电脑登陆了自己的账号,而且有时候还会忘记了账号和密码,为了很好的解决这些问题,我们其实可以利用u盘来保存这些上网登录的账号和密码,只需用U盘可以做到双击一个文件,就可以自动打开网页,自动输入用户名和密码并登录,很方便,那么要如何操作呢?下面就为大家带来巧妙利用u盘保存上网登录账号密码实现快速登录的详细步骤吧。

u盘
具体代码如下:

ps:工作原理:使用vbs脚本的InternetExplorer.Application组件打开目标网页,然后用document属性来对打开的网页进行各种控制。

1、首先在桌面上鼠标右击新建一个文本文档,然后将下面代码复制粘贴进去,具体代码如下:

'获取登录哪个邮箱

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盘中偷走了文件,自己的账号也会很安全哦。


    以上就是关于教你巧妙利用u盘保存上网登录账号密码实现快速登录的方法,只要双击这个文件,就可以自动打开网页,自动输入用户名和密码并登录,方便极了。感兴趣的朋友们不妨可以试试看吧,更多精彩内容欢迎访问ghost win7系统下载站。


网友评论

相关阅读

最近更新