论坛风格切换切换到宽版
  • 3834阅读
  • 0回复

U盘助你保护密码帐号 [复制链接]

上一主题 下一主题
离线海豚
 

发帖
13950
金钱
436105
威望
0
贡献值
1
只看楼主 倒序阅读 使用道具 0 发表于: 2012-03-19


U盘助你保护密码帐号




每次登录网页,都要输入用户名、密码,很麻烦;让网页自动保存密码,又怕别人用这台电脑登录。如果为了收信,在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")
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
我爱潜水!
快速回复
限100 字节
 
上一个 下一个