Vbs script for multi-process Voting

CopyCodeThe Code is as follows: Set shell = Createobject ("wscript. Shell ")
Set HTTP = Createobject ("Microsoft. XMLHTTP ")

'Obtain 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' is the default five processes. If less than five processes exist, run one of them.
Shell. Run "wscript.exe" "& wscript. scriptfullname &""""
Else 'Sixth ticket not used to exitProgram
Msgbox "exit the program according to OK! "," Multi-process ticket flushing machine -- by Qiji City"
Shell. Run "taskkill/f/IM wscript.exe", 0
Wscript. Quit
End if

'Start ticket Flushing
Do
HTTP. Open "Post", "http: // ***/lookover. php? R1 = 2 ", false
HTTP. Send
Loop