中关村系统之家官网教你怎样将上网登录账号与密码保存在U盘实现快捷登录
时间：2016-01-07 11:42
小编：易激活
下面以登录雅虎和163信箱为例，给大家详细介绍，具体操作如下：
1、在桌面空白处右键新建一个文本文档，将下面代码复制粘贴进去，具体代码内容如下：
'获取登录哪个邮箱
index=inputbox("0--yahoo"&vbcrlf&vbcrlf&"1--163"，"选择邮箱"，0)
'创建InternetExplorer.Application对象
Setie=CreateObject("internetexplorer.application")
ie.Visible=1'设置网页的可见性
SelectCaseIndex
Case"0"'当选择0--yahoo时
ie.navigate"http://cn.mail.yahoo.com/"'打开yahoo邮箱登录页
Wscript.Sleep5000'等待5秒，确保网页已打开完毕
ie.document.getElementById("login").Value="username"'将id为login的表单填为username
ie.document.getElementById("passwd").Value="密码"
Setie=Nothing'释放对象占用的内存
Case"1"'第二个登录过程
ie.navigate"http://mail.163.com"
Wscript.Sleep5000
ie.document.getElementById("login163").username.Value="cfan"
ie.document.getElementById("login163").Password.Value="cfan"
EndSelect
Setie=Nothing'没选任何或超出范围时仍要释放对象
'当把vbs放在加密的rar中，一定要用下面FSO对vbs进行删除操作，以免账号泄漏在临时文件夹中
Setfso=CreateObject("Scripting.FileSystemObject")
SetMyFile=fso.GetFile("login.vbs")
myFile.DeletE:setmyfile=nothing:setfso=nothing
2、选择另存为pass.vbs，以上其中的网址就是你需要登录的网站或是论坛，然后将后面的username.Value="cfan"中引号内的替换为用户名，Password.Value="cfan"中引号内的替换为密码即可使用。
3、如果担心自己的账户和密码明文写在vbs脚本中不安全，你可将此记事本用rar压缩加密，当然，rar压缩包的密码要强，这样即使U盘丢失或有人拷贝走U盘中的文件，自己的账号也是安全的。
通过以上设置后，只要双击U盘中的这个文件，就可以自动打开网页，自动输入用户名和密码并登录，非常方便。
