来源:U大侠 时间:2019-09-18 浏览:125
操作方法:
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”中引号内的替换为密码即可使用。
更多精彩内容,请关注U大侠官网或者关注U大侠官方微信公众号(搜索“U大侠”,或者扫描下方二维码即可)。
U大侠微信公众号
有问题的小伙伴们也可以加入U大侠官方Q群(129073998),U大侠以及众多电脑大神将为大家一一解答。
2019-09-17 388
2015-02-23 7524
2019-11-01 270
2016-01-28 2747
2020-01-14 240
2020-01-16 115
2020-01-21 549
2020-02-12 84
2020-02-12 98
2020-02-12 104