软件开发培训班 >> 编程开发 >> VbScript


Windows绯荤粺涓�氳繃vbs瀹炵幇寰幆杩愯.bat/.exe绛夋枃浠? target=

　　本文标签：vbs瀹氭椂,vbs寰幆杩愯

鍦╒BScript涓紝浣犲彲浠ヤ娇鐢ㄤ竴涓棤闄愬惊鐜紝骞跺湪姣忔杩唬涓娇鐢?WScript.Sleep 鏂规硶鏆傚仠涓�娈垫椂闂达紝鐒跺悗鍚庣画缁х画鎵ц銆?/p>

涓�銆佸垱寤哄惊鐜繍琛岀殑run-everySecond.vbs鏂囦欢銆愬弻鍑绘鏂囦欢鍗冲彲鍚姩杩愯銆?/h3> 
dim a
set a=CreateObject("Wscript.Shell")
Do
##杩愯xxx.exe鏂囦欢,鍚庨潰鐨?琛ㄧず锛氫笉寮瑰嚭杩愯榛戠獥鍙?
a.run "E:/xxx.exe",0
Wscript.Sleep 60000
Loop

娉細

1.a.run "E:/xxx.exe",0 锛氳繍琛寈xx.exe鏂囦欢,鍚庨潰鐨?琛ㄧず涓嶅脊鍑鸿繍琛岄粦绐楀彛

2.Wscript.Sleep 60000锛氫紤鎭?0绉掞紝鍗虫瘡鍒嗛挓寰幆鎵ц

浠ｇ爜浜?/p> 

Set WshShell = WScript.CreateObject("WScript.Shell")
' 璁剧疆浣犳兂瑕佹墽琛岀殑绋嬪簭璺緞
strProgramToRun = "C:PathToYourProgram.exe"
' 璁剧疆闂撮殧鏃堕棿锛堟绉掞級
intervalTime = 1000 * 60 ' 渚嬪锛?0 绉?
Do While True
    ' 鎵ц绋嬪簭
    WshShell.Run strProgramToRun, 0, False
    ' 鏆傚仠鎸囧畾鐨勬椂闂?
    WScript.Sleep(intervalTime)
Loop

璇峰皢 strProgramToRun 鐨勫�兼浛鎹负浣犳兂瑕佹墽琛岀殑绋嬪簭鐨勮矾寰勩�俰ntervalTime 鍙橀噺瀹氫箟浜嗕袱娆℃墽琛屼箣闂寸殑闂撮殧鏃堕棿锛屼互姣涓哄崟浣嶃�?br />娉ㄦ剰锛氳繖涓剼鏈細鎸佺画涓嶆柇鍦拌繍琛岋紝鐩村埌浣犳墜鍔ㄧ粓姝㈠畠銆?/p>

浠ｇ爜涓?/p>

姣忛殧涓�娈垫椂闂磋嚜鍔ㄦ暡閿洏鐨勭殑vbs鑴氭湰

set ws=createobject("wscript.shell") 
do 
ws.sendkeys "{TAB}" 
WScript.Sleep Int(6	*Rnd+1)*1000
loop

姣忛殧1'6绉?鎸変竴娆AB閿?br />鍗冲彲浠ユ槸{TAB}涔熷彲浠F5}鍒锋柊椤甸潰
瀹氫箟姣忔鎸夐敭鐨勯棿闅?br />WScript.Sleep Int(6*Rnd+1)*1000
鐫＄湢涓�瀹氱殑鏃堕棿
Rnd : 鐢熸垚涓�涓猍0,1)鐨勬暟
*Int(6 Rnd+1) : 鐢熸垚涓�涓?-6涔嬮棿鐨勬暣鏁?br />1s = 1000ms
WScript.Sleep Int(6 *Rnd+1)*1000 : 姣忔鐫＄湢1'6绉?/p>

浜屻�佸垱寤哄仠姝㈠惊鐜繍琛岀殑shutdown-everySecond.vbs鏂囦欢銆愬弻鍑绘鏂囦欢鍗冲彲鍋滄杩愯銆?/h3> 
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true

鎴栬�呭垱寤哄仠姝㈣繍琛岀殑shutdown-everySecond.bat鏂囦欢銆愬弻鍑绘鏂囦欢鍗冲彲鍋滄杩愯銆?/p>

taskkill -f -t -im wscript.exe

娉細bat鏂囦欢锛屾病娉曞幓鎺夐粦绐楀彛鐨勫脊鍑?/p>

鍒版杩欑瘒鍏充簬Windows绯荤粺涓�氳繃vbs瀹炵幇寰幆杩愯.bat/.exe绛夋枃浠剁殑鏂囩珷灏变粙缁嶅埌杩欎簡,鏇村鐩稿叧vbs瀹氭椂寰幆杩愯鍐呭璇锋悳绱㈣剼鏈箣瀹朵互鍓嶇殑鏂囩珷鎴栫户缁祻瑙堜笅闈㈢殑鐩稿叧鏂囩珷甯屾湜澶у浠ュ悗澶氬鏀寔鑴氭湰涔嬪锛?/p>