原标题："帐号密码的另一居所——U盘"相关电脑问题教程分享。 - 来源:网络投稿。

　　很多朋友对U盘这一小巧又神奇的工具，了解过于表面，只知道U盘可以用来拷贝东西，更多点的就是U盘还可以用来制作启动盘并重装系统，对于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盘中偷走了文件，自己的账号也会很安全。

　　每次登录网页，都要输入用户名、密码，很麻烦;让网页自动保存密码，又怕别人用这台电脑登录。如果为了收信，在U盘中放个绿色版的Foxmail，要占用空间，影响U盘寿命，而且账号的安全性得不到保障。现在，我只要双击一个文件，就可以自动打开网页，自动输入用户名和密码并登录，方便极了。而且，此方法可以扩展到论坛等输入账号的地方，是不是觉得很棒呢？那就把这一方法推广出去，并告诉给更多的朋友。