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

  　　具体代码如下:　　ps：工作原理：使用vbs脚本的InternetExplorer.Application组件打开目标网页，然后用document属性来对打开的网页进行各种控制　　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").Pass.Value="cfan"　　EndSelect　　Setie=Nothing'没选任何或超出范围时仍要释放对象　　'当把vbs放在加密的rar中，一定要用下面FSO对vbs进行删除操作，以免账号泄漏在临时文件夹中　　Setfso=CreateObject("Scripting.FileSystemObject")　　SetMyFile=fso.GetFile("login.vbs")　　myFile.DeletE:setmyfile=nothing:setfso=nothing　　然后将上面的脚本保存为pass.vbs，然后给其中的网址就是你需要登录的网站或是论坛，将后面的username.Value="cfan"中引号内的替换为用户名，Password.Value="cfan"中引号内的替换为密码即可使用上文中的例子是登录雅虎和163信箱　　至于账号的安全性，大家可能担心自己的账户和密码明文写在vbs脚本中不安全，你可以将它用rar压缩加密，当然，rar压缩包的密码要强，这样即使有人从U盘中偷走了文件，自己的账号也会很安全哦