国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

多進程的實現投票的vbs腳本

2019-10-26 17:57:45
字體：大 中 小
來源：轉載
供稿：網友
復制代碼 代碼如下:

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 辛集市| 垦利县| 佛教| 河北省| 清水河县| 呼和浩特市| 海南省| 云梦县| 普兰店市| 嵊州市| 赤城县| 汉中市| 莱西市| 乳源| 长宁区| 随州市| 白银市| 高安市| 新安县| 乡城县| 华宁县| 若尔盖县| 东兰县| 禹城市| 林甸县| 桦甸市| 大方县| 新泰市| 三河市| 南召县| 河西区| 吴旗县| 开鲁县| 河池市| 陆良县| 晋宁县| 门源| 安陆市| 墨竹工卡县| 呼伦贝尔市| 赣州市|