怎么实现一个脚本被重复调用

dtooboss

这个账号是不是可以调用一个记事本文件一行一个号码
ControlSetText  ("xxxxx","登录窗口","EditComponent ...
leiqq 发表于 2010-4-13 00:26

用 ini 好些，我帮你精简下代码，你这代码看得我头痛。

dtooboss

主程序

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[0] 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

感谢 今天遇到高手了 测试这段代码可以正常使用 要比我原来的高级多了！！！！！！操作更容易了只需要改动name.ini 文件 我还要慢慢消化这个 MouseMove($x, $y)是什么意思

51ak

好厉害的人啊