论坛风格切换
正版合作和侵权请联系 sd173@foxmail.com
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
购买邀请后未收到邀请联系sdbeta@qq.com
  • 1696阅读
  • 2回复

[求助-网络问题]另类QQ登录(超级简单\安全) [复制链接]

上一主题 下一主题
离线深水易寒
 

发帖
2098
今日发帖
最后登录
2020-02-27
只看楼主 倒序阅读 使用道具 楼主  发表于: 2008-08-07 22:53:14
另类QQ登录(超级简单\安全)最近,由于QQ用户以及增值业务的增多,QQ也变得越来越不安全,盗号满天飞。那么,如何在这样的网络情况下保护我们QQ号的安全呢? 在这,就告诉大家一个既能很方便的登录QQ,而又不用重复的输入帐号密码;最重要的是还能有效的保护我们的QQ号码的方法:

一、打开记事本,输入以下代码(蓝色部分删去):

Dim WshShell, QQPath, QQselect
QQPath="C:\Program Files\QQ\QQ.exe" (---------------QQ或彩虹QQ路径)
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456"(----------------QQ号码)
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "13688587498" (----------------QQ密码)
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

以上代码的意思是: 首先,使用 函数创建一个 对象,然后运行QQ登录文件,接着把焦点移动到号码输入窗口,输入QQ号,再把焦点移动到密码输入窗口,输入密码,最后休眠200毫秒,然后模拟键盘输入回车键。

把红色的部分按自己的情况修改下,并保存为LOGQQ.vbs

双击这个LOGQQ.vbs文件,就可以登录我们的QQ了,是不是很方便呢?
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 沙发  发表于: 2008-08-08 19:25:39
呵呵 学习了:26)
离线暗夜精灵
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 板凳  发表于: 2008-08-09 08:53:17
这个是蛮有意思的 谢谢楼主 了