该段代码从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_Count Run("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("提示") Then FileWriteLine($outfile, 'success="false"/>') WinClose("提示") ElseIf WinExists("QQ安全中心") Then FileWriteLine($outfile, 'success="false"/>') WinClose("QQ安全中心") Else FileWriteLine($outfile, 'success="true"/>') EndIf sleep(1000) WinClose("QQ2009 正式版") sleep(1000) Next FileWriteLine($outfile, '</test>') FileClose($outfile)