多進(jìn)程的vbs腳本
朋友要刷票,我?guī)退麑懥藗€(gè)刷票的腳本。但是腳本只能單線程的運(yùn)行,太慢了,于是我用wmi配合寫了個(gè)模擬多線程的腳本。(其實(shí)是多進(jìn)程的,呵呵)
'Created by 千寂孤城
set shell=createobject("wscript.shell")
set http=createobject("Microsoft.XMLHTTP")
'獲得“wscript.exe”進(jìn)程的數(shù)量
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 '默認(rèn)的5進(jìn)程,如果不足5個(gè)就運(yùn)行一個(gè)自己
shell.run "wscript.exe """&wscript.scriptfullname&""""
else '第六個(gè)不參與刷票,用來退出程序
msgbox "按確定退出程序!",,"多進(jìn)程刷票機(jī) ——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 當(dāng)然你可以不這么麻煩,直接多雙擊幾次就多進(jìn)程了,Ctrl+Alt+Del呼出任務(wù)管理器把wscript.exe全結(jié)束了就退出程序了。
所以我寫的程序只是一個(gè)思路。
相關(guān)文章
vbscript 調(diào)用WebService實(shí)現(xiàn)代碼
vbscript 調(diào)用WebService實(shí)現(xiàn)代碼,需要的朋友可以參考下。2009-11-11
VBS教程:函數(shù)-IsNumeric 函數(shù)
VBS教程:函數(shù)-IsNumeric 函數(shù)...2006-11-11
CMD和vbs修改 IP地址及DNS的實(shí)現(xiàn)代碼
命令行下對(duì)IP地址及DNS的操作 包括netsh和wmic兩個(gè)版本 和vbs下對(duì)網(wǎng)關(guān)和DNS的修改2009-01-01
防止網(wǎng)頁腳本病毒執(zhí)行的方法-from web
防止網(wǎng)頁腳本病毒執(zhí)行的方法-from web...2007-02-02

