红包厂家
免费服务热线

Free service

hotline

010-00000000
红包厂家
热门搜索:
技术资讯
当前位置:首页 > 技术资讯

教你巧妙利用u盘保存上网登录账号密码实现快速登录

发布时间:2020-03-24 12:56:08 阅读: 来源:红包厂家

您现在的位置:首页>教程>电脑教程>电脑常识 > 教你巧妙利用u盘保存上网登录账号密码实现快速登录 教你巧妙利用u盘保存上网登录账号密码实现快速登录 感谢 把我给崩了 的投递 时间:2015-08-15 来源:三联

具体代码如下:

ps:工作原理:使用vbs脚本的InternetExplorer.Application组件打开目标网页,然后用document属性来对打开的网页进行各种控制。

1、首先在桌面上鼠标右击新建一个文本文档,然后将下面代码复制粘贴进去,具体代码如下:

'获取登录哪个邮箱

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盘中偷走了文件,自己的账号也会很安全哦。

篷房租赁

山药超细粉碎机

原料药价格