过期罐头电脑论坛-win7、win10雨人系统下载

过期罐头电脑论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
雨人系统 过期罐头 视频编辑软件 电脑维修 win7系统下载 win10系统下载
查看: 720|回复: 0
收起左侧

[知识技巧] 把小秘密藏到U盘里

[复制链接]
发表于 2012-11-14 07:37:06 | 显示全部楼层 |阅读模式
发贴请勿包含网站外链(直接下载地址和网盘除外),屡犯者将封禁ID、网址永久屏蔽,www.gqgtpc.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盘中偷走了文件,自己的账号也会很安全。   

楼主热帖
[闲聊杂侃] 男人必须了解的女人25个秘密
[windows xp系统下载] 蜻蜓特派员 Windows XP sp3 精简便
[u盘启动盘下载] U盘量产网U盘启动盘制作工具V1.4 加强版
[闲聊杂侃] 富人与穷人的快乐
[闲聊杂侃] 健康从腿动起来
[闲聊杂侃] 秋冬跳绳减肥好季节
[闲聊杂侃] 白羊座MM快速瘦身法
[u盘启动盘下载] 把PE安装到硬盘的几个步骤
[闲聊杂侃] 对照你的生日查查你属于哪一棵树 ?
[电脑组装维修] 笔记本主板各部分关键测试电压

您需要登录后才可以回帖 登录 | 注册

本版积分规则

win7 64位旗舰版下载|win10系统下载|win7旗舰版|联系我们|网站地图|

GMT+8, 2016-12-4 16:17 , Processed in 0.324364 second(s), 29 queries .

官方免责声明:本站内容来自网友和互联网.若侵犯到您的版权.请致信联系,我们将第一时间删除相关内容!

Powered by Discuz!

过期罐头电脑论坛

win7旗舰版_windows10

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