作者：juniu网络   来源:互联网    发布时间:2023-08-02

相信大部分人都喜欢使用快捷方式，但因为对信息安全的保护，很多平台都是需要设定属于自己的账号以及登录密码，那么应该如何利用U盘来保存上网登陆账号以及密码实现快速登录呢？接下来小编就为大家分享该问题的操作方法。

　　操作方法：

　　1.首先，咱们将准备好的U盘插入到win7电脑的USB接口中，等待电脑将自己的U盘识别之后，咱们就返回到电脑的桌面位置。

　　2.咱们在桌面找一个空白处，点击鼠标右键，选择新建-文本文档，建立好之后咱们先不要命名，直接双击打开文本文档，将如下的代码复制进去：

　　‘获取登录哪个邮箱

　　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中引号内的替换为密码即可使用。