使用AutoIt批量自动登录QQ2009的代码

该段代码从setting.ini文件中读取QQ号和密码，然后自动进行登录和退出并进行记录，适用于QQ2009版本

setting.ini文件格式如下：

 [qq]
QQ1No=QQ1Pwd
QQ2No=QQ2Pwd
QQ3No=QQ3Pwd

 

AutoIt代码如下： 

#include <Date.au3>#include <IE.au3>Global $INIFile,$Values$INIFile = "setting.ini"$Values = IniReadSection($INIFile, "QQ")$MK_Count = $Values[0][0]$outFileName = "log.xml"$outfile = FileOpen($outFileName, 2)FileWriteLine($outfile, '<?xml version="1.0" encoding="GB2312"?>')FileWriteLine($outfile, '<test>')For $Index = 1 To $MK_CountRun("C:/Program Files/Tencent/QQ/Bin/QQ.exe"); 沉睡sleep(毫秒),这是为了等用户登录的对话框出现;Sleep(5000); 等待QQ用户登录的对话框WinWait("QQ2009 正式版")Sleep(2000); 在"用户"框中输入qq号;ControlSetText("QQ2009 正式版", "", "[CLASS:ATL:602E54D8; INSTANCE:1]", $Values[$Index][0]);在"密码"框中输入密码ControlSend("QQ2009 正式版", "", "Edit1", $Values[$Index][1])Sleep(1000)ControlSend("QQ2009 正式版", "", "Edit1", "{Enter}")FileWrite($outfile, '<item type="QQ" time="'& _Now() &'" code="' & $Values[$Index][0] &'" ')sleep(100000)if WinExists("提示") ThenFileWriteLine($outfile, 'success="false"/>')WinClose("提示")ElseIf WinExists("QQ安全中心") ThenFileWriteLine($outfile, 'success="false"/>')WinClose("QQ安全中心")ElseFileWriteLine($outfile, 'success="true"/>')EndIfsleep(1000)WinClose("QQ2009 正式版")sleep(1000)NextFileWriteLine($outfile, '</test>')FileClose($outfile)