批量登录TM程序,遇到困难,求助
我想做个程序,每3个一组登录TM。1、登录时模拟输入帐号跟密码
2、然后分别移动TM窗口到桌面固定坐标位置后最小化TM。
3、当3个都登录完后,全部结束进程退出
现在我在第2、3个环节遇到问题,不知道是不是代码有问题。
麻烦大家帮忙看下。#include <string.au3>
#include <File.au3>
#include <systray UDF.au3>
If FileExists("I.log") = 0 Then
$m = MsgBox(4, "提示", "不存在I.log文件,是否初始化创建?")
If $m = 6 Then FileWrite("I.log", "1")
If $m = 7 Then Exit
Else
$i = FileReadLine("I.log", 1)
EndIf
For $j = 1 To 3
$array = StringSplit(FileReadLine(FileOpen("QQ.txt", 0), $i), "----", 1)
$QQPID=Run("C:\Program Files\Tencent\TM\Bin\TM.EXE")
Sleep(1000)
ControlSetText("TM2009", "", "ATL:30A4D1D81", $array, 1)
Sleep(200)
ControlSend("TM2009", "", "Edit1", $array, 1)
Sleep(2000)
;Send("{enter}")
;$WinList = WinList('')
;For $j = 1 To $WinList
WinMove(WinGetHandle ("TM2009"), '', @DesktopWidth - 330, 20)
WinSetState(WinGetHandle ("TM2009"), '', @SW_SHOW)
;Sleep(2000)
ControlClick(WinGetHandle ("TM2009"), '', '', '', 1, 115, 379) ;==>点击登录按钮
Sleep(5000)
;Next
$i = $i + 1
_FileWriteToLine("I.log", 1, $i, 1)
Sleep(5000)
Next
;MINIMIZEQQWIN() ;最小化所有QQ
For $o=1 To 3
ProcessClose($QQPID)
_SysTrayIcon_Clean() ;刷新托盘图标
next
Func MINIMIZEQQWIN($QQTitle = 1) ;最小化所有QQ
If $QQTitle = 1 Then
$QQWINList = WinList('')
For $Qwl = 1 To $QQWINList
$QQWINPOS = WinGetPos($QQWINList[$Qwl])
If Not @error Then
ControlClick($QQWINList[$Qwl], '', '', 'left', 1, $QQWINPOS - 82, 10)
EndIf
Next
Else
If WinExists($QQTitle) Then
$QQWINPOS = WinGetPos($QQTitle)
If Not @error Then
ControlClick($QQTitle, '', '', 'left', 1, $QQWINPOS - 82, 10)
EndIf
EndIf
EndIf
EndFunc ;==>MINIMIZEQQWIN 把附件传上来了~~~~~ 不是 太懂路过了{:face (356):} 学习了。。。。 看看。研究下。。。
页:
[1]