多進(jìn)程的vbs腳本
朋友要刷票,我?guī)退麑?xiě)了個(gè)刷票的腳本。但是腳本只能單線程的運(yùn)行,太慢了,于是我用wmi配合寫(xiě)了個(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è)不參與刷票,用來(lái)退出程序
msgbox "按確定退出程序!",,"多進(jìn)程刷票機(jī) ——By 千寂孤城"
shell.run "taskkill /F /IM wscript.exe",0
wscript.quit
end if
' 開(kāi)始刷票
do
http.open "POST","http://***/lookover.php?R1=2",false
http.send
loop 當(dāng)然你可以不這么麻煩,直接多雙擊幾次就多進(jìn)程了,Ctrl+Alt+Del呼出任務(wù)管理器把wscript.exe全結(jié)束了就退出程序了。
所以我寫(xiě)的程序只是一個(gè)思路。
相關(guān)文章
VBS實(shí)現(xiàn)GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具
VBS寫(xiě)的GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具,轉(zhuǎn)換工具下載:GB2Ue.vbs (3.34 kb)2010-06-06
可以得到當(dāng)前系統(tǒng)信息的腳本sysinfo.vbs
可以得到當(dāng)前系統(tǒng)信息的腳本sysinfo.vbs...2007-02-02
VBS教程:VBscript語(yǔ)句-Function 語(yǔ)句
VBS教程:VBscript語(yǔ)句-Function 語(yǔ)句...2006-11-11
VBS中CreateObject和WScript.CreateObject的區(qū)別介紹
很多VBS新手都很困惑CreateObject和WScript.CreateObject有什么區(qū)別,為什么一些代碼中用CreateObject,而另一些卻用WScript.CreateObject2013-05-05
window通過(guò)vbs+bat實(shí)現(xiàn)自動(dòng)在后臺(tái)運(yùn)行nodejs application
這篇文章主要介紹了window通過(guò)vbs+bat實(shí)現(xiàn)自動(dòng)在后臺(tái)運(yùn)行nodejs application,需要的朋友可以參考下2016-11-11
網(wǎng)絡(luò)接口利用率監(jiān)控VBS腳本代碼(Windows)
監(jiān)測(cè)windows主機(jī)網(wǎng)絡(luò)接口利用率的vbs代碼,需要的朋友可以參考下。2011-12-12

