复制代码 代码如下:

setshell=createobject("wscript.shell")

sethttp=createobject("Microsoft.XMLHTTP")

'获得"wscript.exe"进程的数量

a=0

foreachpsingetobject("winmgmts:.rootcimv2:win32_process").instances_

ifps.name="wscript.exe"thena=a+1

next

ifa<=5then'默认的5进程，如果不足5个就运行一个自己

shell.run"wscript.exe"""&wscript.scriptfullname&""""

else'第六个不参与刷票，用来退出程序

msgbox"按确定退出程序！",,"多进程刷票机——By千寂孤城"

shell.run"taskkill/F/IMwscript.exe",0

wscript.quit

endif

'开始刷票

do

http.open"POST","http://***/lookover.php?R1=2",false

http.send

loop