=========================================================
;本脚本实现的功能如下:
;1、自定义密码:可以保护QQ真实密码。
;2、自动登录:操作方便、简单化。
;3、可以批量登录:如果你有两三个QQ(或者更多)要登录的话,只要输一次密码就搞定。
;4、意外窗口自动处理,可靠性高,容错性强。
;5、请各位高手多多指教。
#NoTrayIcon ;不显示托盘图标
$Version = "My QQ 1.1"
If WinExists($Version) Then Exit ;防止程序重复运行
AutoItWinSetTitle($Version)
$i = 0
While 1
$i = $i + 1
If $i > 2 then ;如果密码错误两次就锁定操作系统
run("C:\WINDOWS\system32\rundll32.exe user32.dll,LockWorkStation")
Exit
Endif
$PassWord = InputBox ("我的QQ", "输入密码","","*",100,100)
if @error = 1 Then Exit
If $PassWord = "sdsd" Then ;判断自定义密码,登录相应的QQ号 ,也可设置一个密码对应多个QQ,还可以设置更多的密码和相应的QQ号
QQ(335335,"QQ密码") ;前一个参数是QQ号码,后面引号里的QQ的真实密码(引号不可缺)
;如果要批量登录的话只要在这行再加入一句或者更多[ QQ(QQ号码,"QQ密码") ] 就可以实现。
ExitLoop
EndIf
If $PassWord = "afaf" then ;设置简单的自定义密码可以方便输入,就算被别人看到密码也不用担心QQ被盗。
QQ(3333**,"QQ密码")
ExitLoop
EndIf
If $PassWord = "wewe" then
QQ(5211****,"QQ密码")
ExitLoop
EndIf
WEnd
Sleep(2000)
$x = 0
While $x < 60 ;如果出现意外情况,则直接杀意外窗口
$x = $x + 1
If WinExists("QQ", "") Or WinExists("热键注册", "") Then kill()
Sleep(100)
WEnd
;直接杀意外窗口函数,想杀其他意外窗口可以自行添加
Func kill()
WinKill("QQ", "你已经登录了一个相同号码")
WinKill("服务器拒绝", "密码不正确")
WinKill("热键注册", "")
Sleep(200)
WinKill("QQ用户登录", "QQ号码")
EndFunc
;QQ登录函数
Func QQ ($qqh,$mima)
run("D:\D:\Program Files\QQ2008\Bin\QQ.exe") ;QQ程序的路径(作者这里使用的是QQ2009)
WinWait("QQ用户登录", "QQ号码")
If Not WinActive("QQ用户登录","QQ号码") Then WinActivate("QQ用户登录","")
ControlSetText("QQ用户登录", "QQ号码", "Edit1", $qqh )
ControlSetText("QQ用户登录", "QQ密码", "Edit12", $mima )
ControlClick ("QQ用户登录", "QQ密码", "Button15")
================================================================================
邮箱:hongong3@vip.qq.com
求个邀请码
[课程]FART 脱壳王!加量不加价!FART作者讲授!