Multi-process implementation of the voting VBS script _vbs

Copy Code code as follows:

Set Shell=createobject ("Wscript.Shell")
Set Http=createobject ("Microsoft.XMLHTTP")

' Get the number of "Wscript.exe" processes
A=0
For each PS in GetObject ("Winmgmts:\\.\root\cimv2:win32_process"). Instances_
If Ps.name= "Wscript.exe" then a=a+1
Next

If A<=5 then ' the default 5 process, if less than 5 will run a self
Shell.run "Wscript.exe" "&wscript.scriptfullname&" "" "
Else ' sixth does not participate in the brush ticket, used to exit the program
MsgBox "Press OK to exit the program!" ",," the multi-process brush ticket machine--by thousand silence gu City "
Shell.run "taskkill/f/im Wscript.exe", 0
Wscript.Quit
End If

' Start to brush the tickets
Todo
Http.open "POST", "http://***/lookover.php?" R1=2 ", False
Http.send
Loop