100元些个贸易通2011版群群发脚本
实现功能按照记事本里的帐号批量登入登入后群发贸易通群信息后自动退出
在登入下个号群发群信息
以前有个脚本现在不能用了 请帮助修改也可以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 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
页:
[1]