上网账号密码也可以保存在U盘里

2013/12/2 来源:www.arpun.com 作者:小白

每次登录网页, 都要输入用户名、密码, 很麻烦;让网页自动保存密码, 又怕别人用这台电脑登录。 如果为了收信, 在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盘中偷走了文件, 自己的账号也会很安全。

网友评论
评论(...
全部评论