巧借U盘自动登录各种软件网页的账号
  • 作者:佚名
  • 时间:2016-02-16

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

    特荐:U盘装系统       

    1.新建一个文本文档;更多精彩內容繼續關注新白菜u盤啓動盤制作工具官網www.laomaotao.cn.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 5     '等待5秒,确保网页已打开完毕

    ie.document.getElementById("login").Value = "username"  '将id为login的表单填为username

    ie.document.getElementById("passwd").Value = "密码"

    Set ie = Nothing     '释放对象占用的内存

    Case "1"   '第二个登录过程

    ie.navigate ""

    Wscript.Sleep 5

    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.laomaotao.cn.com。祝朋友天天快樂。
 

相关推荐