巧借U盘自动登录各种软件网页的账号

每次登录某个软件或者网页的时候都需要输入密码账号真是麻烦，而且需要记住的密码账号那么多，哪有那个功夫和时间。所以小编今天要推荐给大家一个小技巧，利用U盘来帮你记住账号密码，而且不需要你手动输入，只要将U盘连接电脑就可以实现自动登入账号啦。想知道如何实现的吗？那就跟小编一起来看看吧。

    特荐：U盘装系统       

    1.新建一个文本文档；更多精彩內容繼續關注老毛桃u盤啓動盤制作工具官網www.laomaotaopan.com。祝朋友天天快樂。
 

    2.在文档总输入以下代码：

    （以登录163信箱为例子）

    '获取登录哪个邮箱

    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 ""   '打开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 ""

    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

    （说明:把其中的网址就是你需要登录的网站或是论坛，将后面的username.Value = "cfan"中引号内的替换为用户名，Password.Value = "cfan"中引号内的替换为密码即可使用。）

    3.将文本另存为pass.vbs即可。

    Ok，大功告成！以后上网登录网页就不要再抓耳挠腮的想密码了，也不用怕在电脑上保存密码被他人随意登录，只需药双击一个文件，就可以自动打开网页且自动登入账号密码，方便又安全。这么实用又安全的小技能不可错过，有兴趣的小伙伴们快动手试试吧。

更多精彩內容繼續關注老毛桃u盤啓動盤制作工具官網www.laomaotaopan.com。祝朋友天天快樂。