将上网账号密码保存在U盘里无需手动输入也不怕别人知道
程序员文章站
2023-11-17 08:20:04
将上网账号密码保存在U盘里无需手动输入也不怕别人知道每次登录网页都要输入用户名、密码,很麻烦,如果让网页自动保存密码,又怕别人用这台电脑登录,那么有什么好的方法可以解决呢?其实很简单的,我们可以将上网账号密码保存在U盘里,... 13-12-03...
每次登录网页,都要输入用户名、密码,很麻烦;让网页自动保存密码,又怕别人用这台电脑登录。如果为了收信,在u盘中放个绿色版的foxmail,要占用空间,影响u盘寿命,而且账号的安全性得不到保障。
现在,我只要双击一个文件,就可以自动打开网页,自动输入用户名和密码并登录,方便极了。而且,此方法可以扩展到论坛等输入账号的地方。具体代码如下:
小提示:工作原理
使用vbs脚本的internetexplorer.application组件打开目标网页,然后用document属性来对打开的网页进行各种控制。
'获取登录哪个邮箱
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盘中偷走了文件,自己的账号也会很安全。
现在,我只要双击一个文件,就可以自动打开网页,自动输入用户名和密码并登录,方便极了。而且,此方法可以扩展到论坛等输入账号的地方。具体代码如下:
小提示:工作原理
使用vbs脚本的internetexplorer.application组件打开目标网页,然后用document属性来对打开的网页进行各种控制。
'获取登录哪个邮箱
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盘中偷走了文件,自己的账号也会很安全。
上一篇: ORACLE 自动提交问题