怎样利用U盘保存上网账号密码

来源:本站整理 作者:U盘量产网

每次登录网页,都要输入用户名、密码,很麻烦;让网页自动保存密码,又怕别人用这台电脑登录。如果为了收信,在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盘中偷走了文件,自己的账号也会很安全。

微微一笑很倾城正版手游千年风华无限钻石版第7装甲师无限金条安卓暴击联盟千年风华tv版女神危机未和谐版武林群侠传魔与道官网最新版剑魂之刃免费gm版明星梦工厂游戏宝宝爱拼图祖玛泡泡龙皇家骑士团多牛百变方块啪啪联盟乱世神将bt版坦克大决战新版王者守卫内购无限钻石金币明星梦工厂游戏塔防西游记无限内购版汉家江湖福利版封仙之怒手机版萌菌大作战2变态版三国杀OL互通版最新航海王启航满v版牧羊人之心内购版超神三国志正版荣耀战国无限内购版美杜莎传奇最新版安卓三国萌将录无限元宝版