ps教程论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 1844|回复: 0
收起左侧

告诉你们其实账号密码藏身U盘中

[复制链接]
发表于 2007-6-17 20:41:29 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

x
每次登录网页,都要输入用户名、密码,很麻烦;让网页自动保存密码,又怕别人用这台电脑登录。如果为了收信,在U盘中放个绿色版的Foxmail,要占用空间,影响U盘寿命,而且账号的安全性得不到保障。
<P>  现在,我只要双击一个文件,就可以自动打开网页,自动输入用户名和密码并登录,方便极了。而且,此方法可以扩展到论坛等输入账号的地方。具体代码如下:</P>
<P>  <STRONG>小提示:工作原理</STRONG></P>
<P>  使用vbs脚本的InternetExplorer.Application组件打开目标网页,然后用document属性来对打开的网页进行各种控制。</P>
<P>
<TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellSpacing=0 cellPadding=6 width="95%" align=center border=0>
<TBODY>
<TR>
<TD style="WORD-WRAP: break-word" bgColor=#fdfddf>  ' 获取登录哪个邮箱
<P>  index=inputbox("0--yahoo "&amp;vbcrlf&amp;vbcrlf&amp;"1--163","选择邮箱",0)</P>
<P>  ' 创建InternetExplorer.Application对象</P>
<P>  Set ie = CreateObject("internetexplorer.application")</P>
<P>  ie.Visible = 1&nbsp; ' 设置网页的可见性</P>
<P>  Select Case Index </P>
<P>  Case "0"&nbsp; ' 当选择0--yahoo时</P>
<P>  ie.navigate "http://cn.mail.yahoo.com/"&nbsp;&nbsp;<BR>   ' 打开yahoo邮箱登录页</P>
<P>  Wscript.Sleep 5000 ' 等待5秒,确保网页已打开完毕</P>
<P>  ie.document.getElementById("login").Value = "username"&nbsp; <BR>  ' 将id为login的表单填为username</P>
<P>  ie.document.getElementById("passwd").Value = "密码"</P>
<P>  Set ie = Nothing&nbsp;&nbsp;&nbsp;&nbsp; ' 释放对象占用的内存</P>
<P>  Case "1"&nbsp;&nbsp; ' 第二个登录过程</P>
<P>  ie.navigate "http://mail.163.com"</P>
<P>  Wscript.Sleep 5000</P>
<P>  ie.document.getElementById("login163").username.Value = "cfan"</P>
<P>  ie.document.getElementById("login163").Password.Value = "cfan"</P>
<P>  End Select</P>
<P>  Set ie = Nothing&nbsp;&nbsp; ' 没选任何或超出范围时仍要释放对象</P>
<P>  ' 当把vbs放在加密的rar中,一定要用下面FSO对vbs进行删除操作,<BR>  '以免账号泄漏在临时文件夹中</P>
<P>  Set fso = CreateObject("Scripting.FileSystemObject")</P>
<P>  Set MyFile = fso.GetFile("login.vbs")</P>
<P>  myFile.DeletE:set myfile=nothing:set fso=nothing</P></TD></TR></TBODY></TABLE><BR>  <STRONG>说明</STRONG>:<BR><BR>  将脚本保存为pass.vbs,把其中的网址就是你需要登录的网站或是论坛,将后面的username.Value = "cfan"中引号内的替换为用户名,Password.Value = "cfan"中引号内的替换为密码即可使用。上文中的例子是登录雅虎和163信箱。</P>
<P>  关于账号安全性的说明:你可能担心自己的账户和密码明文写在vbs脚本中不安全,你可以将它用rar压缩加密,每次输一个密码就可以想怎么登就怎么登。当然,rar压缩包的密码要强,这样即使有人从U盘中偷走了文件,自己的账号也会很安全。<BR></P><BR><script language="JavaScript" src="http://www.16xx8.com/bbs/2.js"></script><BR>
您需要登录后才可以回帖 登录 | 注册

本版积分规则

求建议和反映问题|小黑屋|免责声名|Archiver|photoshop教程论坛 ( 粤ICP备07017357号 )

GMT+8, 2024-6-20 23:38 , Processed in 0.026967 second(s), 10 queries , XCache On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表