100元些个贸易通2011版群群发脚本

leiqq

实现功能按照记事本里的帐号批量登入
登入后群发贸易通群信息后自动退出
在登入下个号群发群信息
以前有个脚本现在不能用了 请帮助修改也可以

Global $Paused

HotKeySet("{NUMPADMULT}", "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("3500")

EndFunc   ;==>m

Func mm()



        ControlClick("阿里旺旺2009", "登录窗口", "StandardButton8", "left", "1")
        WinWait("", "我的群")
        Sleep("3000")
        MouseMove(1540, 271)
        MouseDown("left")
        MouseUp("left")
                 Sleep("3000")
        MouseMove(1540, 265)
        MouseDown("left")
        MouseUp("left")
MouseMove(1540, 278)
        MouseDown("left")
        MouseUp("left")
        m(1400, 386)
        Send("{ENTER}")
        ProcessClose("iexplore.exe")

        Sleep("3500")
        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 = 16;如果不对12改为 11
        m(1400, 692)
        Sleep("3500")
        MouseMove(1484, 132)
        MouseDown("left")
        MouseUp("left")
        Sleep("1000")
        MouseMove(1396, 541)
        MouseDown("left")
        MouseUp("left")
EndFunc   ;==>mm

$name = StringSplit(FileReadLine($ini, 1), ",", 1)
For $n = 1 To $name[0] Step 1

        WinWaitActive("阿里旺旺2009", "登录窗口")

        ControlSetText("阿里旺旺2009", "登录窗口", "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