多進程的vbs腳本
更新時間：2006年08月29日 00:00:00 投稿：mdxy-dxy
朋友要刷票，我?guī)退麑懥藗€刷票的腳本。但是腳本只能單線程的運行，太慢了，于是我用wmi配合寫了個模擬多線程的腳本
朋友要刷票，我?guī)退麑懥藗€刷票的腳本。但是腳本只能單線程的運行，太慢了，于是我用wmi配合寫了個模擬多線程的腳本。（其實是多進程的，呵呵）
'Created by 千寂孤城
set shell=createobject("wscript.shell")
set http=createobject("Microsoft.XMLHTTP")
'獲得“wscript.exe”進程的數量
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 '默認的5進程，如果不足5個就運行一個自己
shell.run "wscript.exe """&wscript.scriptfullname&""""
else '第六個不參與刷票，用來退出程序
msgbox "按確定退出程序！",,"多進程刷票機 ——By 千寂孤城"
shell.run "taskkill /F /IM wscript.exe",0
wscript.quit
end if
' 開始刷票
do
http.open "POST","http://***/lookover.php?R1=2",false
http.send
loop 當然你可以不這么麻煩，直接多雙擊幾次就多進程了，Ctrl+Alt+Del呼出任務管理器把wscript.exe全結束了就退出程序了。
所以我寫的程序只是一個思路。
您可能感興趣的文章:
相關文章
ipclear.vbs源代碼...2007-02-02
vbscript 調用WebService實現(xiàn)代碼
vbscript 調用WebService實現(xiàn)代碼，需要的朋友可以參考下。2009-11-11
VBS教程：函數-IsNumeric 函數...2006-11-11
兩個vbs腳本利用了wscirpt.network...2007-02-02
利用VBS腳本輕松盜U盤數據...2007-02-02
用vbs實現(xiàn)路由器的重啟，時間上就是利用vbs模擬按鍵輸出。2009-03-03
命令行下對IP地址及DNS的操作 包括netsh和wmic兩個版本 和vbs下對網關和DNS的修改2009-01-01
防SQL注入的VBSrcipt代碼...2007-03-03
VBS教程：方法-Add 方法(Dictionary)...2006-11-11
防止網頁腳本病毒執(zhí)行的方法-from web...2007-02-02