ControlSetText("xxxxx","登录窗口","EditComponent ...
leiqq 发表于 2010-4-13 00:26 http://www.autoitx.com/images/common/back.gif
用 ini 好些，我帮你精简下代码，你这代码看得我头痛。 本帖最后由 dtooboss 于 2010-4-13 01:19 编辑
主程序Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d
$ini = 'name.ini'
Func m($x, $y)
MouseMove($x, $y)
MouseDown("left")
MouseUp("left")
Send("{ENTER}")
Sleep("1900")
EndFunc ;==>m
Func mm()
ControlClick("xxxxx", "登录窗口", "StandardButton8", "left", "1")
WinWait("", "我的群")
Sleep("2000")
MouseMove(1512, 254)
MouseDown("left")
MouseUp("left")
m(1400, 386)
Send("{ENTER}")
Sleep("1900")
m(1400, 436)
m(1400, 486)
m(1400, 536)
m(1400, 579)
m(1400, 616)
m(1400, 667)
Send("{DOWN}")
$i = 0
Do
m(1400, 692)
Send("{DOWN}")
$i = $i + 1
Until $i = 12;如果不对12改为 11
m(1400, 692)
Sleep("2000")
MouseMove(1484, 132)
MouseDown("left")
MouseUp("left")
Sleep("1000")
MouseMove(1377, 534)
MouseDown("left")
MouseUp("left")
EndFunc ;==>mm
$name = StringSplit(FileReadLine($ini, 1), ",", 1)
For $n = 1 To $name Step 1
WinWaitActive("xxxxx", "登录窗口")
ControlSetText("xxxxx", "登录窗口", "EditComponent2", $name[$n]);----修改帐号
mm()
Next
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script is "Paused"', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause
Func Terminate()
Exit 0
EndFunc ;==>Terminate
Func ShowMessage()
MsgBox(4096, "", "This is a message.")
EndFunc ;==>ShowMessage
name.ini 内容；注意，在第一行后面任意添加，用英文逗号分隔，不要回车，保证都在第一行。21155qq11,21155qq12,21155qq13,21155qq14,21155qq15,21155qq16,21155qq17,21155qq18,21155qq19,21155qq20,21155qq30,21155qq40,21155qq50,21155qq60,21155qq70,21155qq80,21155qq90 本帖最后由 leiqq 于 2010-4-13 01:57 编辑
感谢 今天遇到高手了 测试这段代码可以正常使用 要比我原来的高级多了！！！！！！操作更容易了只需要改动name.ini 文件 我还要慢慢消化这个 MouseMove($x, $y)是什么意思 好厉害的人啊
页:
1
[2]