=========================================================
;本脚本实现的功能如下：
;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
求个邀请码
[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课
