该段代码从setting.ini文件中读取QQ号和密码,然后自动进行登录和退出并进行记录,适用于QQ2009版本
setting.ini文件格式如下:
[MSN]
MSN1No=MSN1Pwd
MSN2No=MSN2Pwd
MSN3No=MSN3Pwd
AutoIt代码如下:
#include <Date.au3> #include <IE.au3> Global $INIFile,$Values $INIFile = "setting.ini" $Values = IniReadSection($INIFile, "MSN") $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/Windows Live/Messenger/msnmsgr.exe") ; 沉睡sleep(毫秒),这是为了等用户登录的对话框出现 ;Sleep(5000) ; 等待MSN用户登录的对话框 WinWait("Windows Live Messenger") ; 在"用户"框中输入MSN号; Sleep(1000) ;Send($Values[$Index][0]) ControlSend("Windows Live Messenger", "", "", $Values[$Index][0]) Sleep(1000) ;send("{Tab}") ControlSend("Windows Live Messenger", "", "", "{Tab}") ;在"密码"框中输入密码 ;Send($Values[$Index][1]) ControlSend("Windows Live Messenger", "", "", $Values[$Index][1]) Sleep(1000) ;Send("{Enter}") ControlSend("Windows Live Messenger", "", "", "{Enter}") FileWrite($outfile, '<item type="MSN" time="'& _Now() &'" code="' & $Values[$Index][0] &'" ') sleep(100000) if WinExists("Windows Live Messenger","无法") Then FileWriteLine($outfile, 'success="false"/>') WinClose("Windows Live Messenger") Else FileWriteLine($outfile, 'success="true"/>') sleep(1000) WinActivate("Windows Live Messenger") Sleep(1000) ;Send("{alt}") ControlSend("Windows Live Messenger", "", "", "{alt}") Sleep(500) ;Send("{down}") ControlSend("Windows Live Messenger", "", "", "{down}") Sleep(500) ;Send("{enter}") ControlSend("Windows Live Messenger", "", "", "{enter}") EndIf sleep(1000) WinClose("Windows Live Messenger") sleep(1000) Next FileWriteLine($outfile, '</test>') FileClose($outfile)