sadboyyang 发表于 2008-8-4 10:58:14

【分享】另类QQ登录（超级简单\安全）

最近，由于QQ用户以及增值业务的增多，QQ也变得越来越不安全，盗号木马满天飞。那么，如何在这样的网络情况下保护我们QQ号的安全呢？ 在这，就告诉大家一个既能很方便的登录QQ，而又不用重复的输入帐号密码；最重要的是还能有效的保护我们的QQ号码的方法：

一、打开记事本，输入以下代码：

Dim WshShell, QQPath, QQselect
QQPath="C:\Program Files\QQ\QQ.exe"                         （---------------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 "123456"                           （----------------QQ密码）
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

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

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

双击这个LOGQQ.vbs文件，就可以登录我们的QQ了，是不是很方便呢？

                        
                     
                               在这里我 《鄙视那些看贴不回的人》。
                                 在这里我 《鄙视那些看贴不回的人》。
                                    在这里我 《鄙视那些看贴不回的人》。

19730414 发表于 2008-8-4 11:14:38

正在使用中。。。

huiking 发表于 2008-8-4 11:16:38

偶去试试先

郁闷滴蜗牛 发表于 2008-8-4 11:30:26

偶使用登陆器应该没有问题的！

兔冬冬 发表于 2008-8-4 15:23:33

谢谢辛苦
页: [1]
查看完整版本: 【分享】另类QQ登录（超级简单\安全）