多進(jìn)程的實(shí)現(xiàn)投票的vbs腳本
更新時(shí)間：2007年02月26日 00:00:00 作者：
復(fù)制代碼 代碼如下:
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
您可能感興趣的文章:
相關(guān)文章
VBS 獲取外網(wǎng)IP的實(shí)現(xiàn)代碼
這篇文章主要介紹了用vbs獲取外網(wǎng)的ip地址，通過(guò)用vbs訪問(wèn)ip顯示頁(yè)面的返回值實(shí)現(xiàn)，需要的朋友可以參考下2013-07-07
vbs版的sql查詢分析器，該有的功能都有了2008-08-08
UNIX時(shí)間，或稱POSIX時(shí)間是UNIX或類UNIX系統(tǒng)使用的時(shí)間表示方式：從協(xié)調(diào)世界時(shí)1970年1月1日0時(shí)0分0秒起至現(xiàn)在的總秒數(shù)，不包括閏秒。2011-01-01
VBScript語(yǔ)法速查及實(shí)例說(shuō)明
VBScript語(yǔ)法速查及實(shí)例說(shuō)明...2006-11-11
VBS實(shí)現(xiàn)將當(dāng)前時(shí)間轉(zhuǎn)換成UTC時(shí)間
這篇文章主要介紹了VBS實(shí)現(xiàn)將當(dāng)前時(shí)間轉(zhuǎn)換成UTC時(shí)間,十分的簡(jiǎn)單實(shí)用，需要的朋友可以參考下2015-05-05
用VBScript收集系統(tǒng)信息并上傳到ftp空間
這個(gè)腳本的功能是運(yùn)行后自動(dòng)將查詢到的計(jì)算機(jī)相關(guān)信息記錄到一個(gè)文檔中，然后在經(jīng)過(guò)FTP將生成的文件上傳至服務(wù)器保存，最后在清除運(yùn)行腳本是生成的文件并刪除自身。2010-12-12
VBS教程：正則表達(dá)式簡(jiǎn)介 -早期起源...2006-11-11
用vbs從本地 Administrators 組中刪除組...2007-03-03
VBS實(shí)現(xiàn)將Excel表格保存為txt文本
希望能夠找到個(gè)能給excel表另存為T(mén)XT的VBS代碼，雖然另存為可以選擇，但還是需要直接VBS執(zhí)行這一步另存為T(mén)XT格式的，應(yīng)該如何寫(xiě)代碼呢2012-12-12
用vbs實(shí)現(xiàn)的exe2swf工具腳本代碼
幾個(gè)超據(jù)學(xué)習(xí)價(jià)值的VBS腳本用法：將exe格式的flash拖放在此vbs文件上，即可生成swf文件2008-05-05