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


浣跨敤vbs鑴氭湰鏉ョ洃鎺indows鏈嶅姟鍣ㄤ笂鐨勫簲鐢ㄧ▼搴?涓嶅瓨鍦ㄥ氨鍚姩)

　　本文标签：vbs瀹堝崼杩涚▼,鐩戞帶杩涚▼

杩欎釜vbs浠ｇ爜涓昏瀹炵幇鐨勫姛鑳藉氨鏄繍琛岃绋嬪簭锛屽氨浼氬湪杩涚▼涓嚭鐜颁竴涓獁script.exe 瀹冧細姣忛殧10s鎵潰涓�娆¤繘绋嬩腑鏄惁瀛樺湪notepad.exe杩欎釜绋嬪簭,涓嶅瓨鍦ㄥ氨鍚姩銆傝繖涓惎鍔ㄧ▼搴忓彲鑳借窡杩涚▼鍚嶄笉涓�鏍凤紝濂芥瘮tomcat搴旂敤锛屽惎鍔ㄧ殑鏄痵tartup.bat锛屽悗鍙拌繘绋嬪悕涓簀ava.exe,杩欐牱灏遍渶瑕佽皟鏁翠唬鐮乸roname="java.exe"

鍏充簬濡傛灉鍏虫帀鐩戞帶 鍙互鍦ㄨ繍琛屼笅鎵цtaskkill /f /im wscript.exe 鎴栬�呭湪浠诲姟绠＄悊鍣?杩涚▼涓壘鍒皐script.exe 缁撴潫杩涚▼灏卞彲浠ヤ簡

璋冩暣WshShell.Run("startup.bat")

鏍稿績浠ｇ爜

dim wmi,proc,procs,proname,flag,WshShell
Do
proname="notepadjb51.exe" '闇�瑕佺洃娴嬬殑鏈嶅姟杩涚▼鐨勫悕绉帮紝鑷鏇挎崲杩欓噷鐨勮浜嬫湰杩涚▼鍚?
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!.rootcimv2")
set procs=wmi.execquery("select * from win32_process")
flag=true
for each proc in procs
if strcomp(proc.name,proname)=0 then
flag=false
exit for
end if
next
set wmi=nothing
if flag then
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run ("notepadjb51.exe")
end if
wscript.sleep 10000 '妫�娴嬮棿闅旀椂

VBS鍐欎釜灏忚剼鏈?瀹炴椂鐩戞祴鎸囧畾绋嬪簭鏄惁杩愯 瀵硅繍琛岀殑杞欢杩涜鎿嶄綔 鏈�鍚庡叧闂繍琛岃蒋浠?/h3> 
strComputer = "."
Set objShell = CreateObject("Wscript.Shell") 
do
Set wbemServices = Getobject("winmgmts:\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_process")
For Each wbemObject In wbemObjectSet
if wbemObject.name="QQ.exe" then
  WScript.Sleep 1000
  objShell.SendKeys "{F12}"
  WScript.Sleep 1000
  objShell.SendKeys "{ENTER}"
  dim WSHshell 
  set WSHshell = wscript.createobject("wscript.shell") 
  WSHshell.run "taskkill /im wscript.exe /f ",0 ,true 
end if
Next
loop

鎵瑰鐞嗘娴嬭繘绋嬫槸鍚﹀瓨鍦紱杩欎釜鎴戠敤鏉ユ娴嬫枃鍖栬繘绋嬫槸鍚﹀瓨鍦紝鍥犱负鏄豢鑹茬増鐨勶紝寰堝鏄撹鍏抽棴锛屾墍浠ラ渶瑕佹娴嬨�?/h3> 
tasklist /nh|find /i "ClientOfWatcher.exe"
if ERRORLEVEL 1 (start C:watcherClientOfWatcher.exe) else (exit)

VBS瀹氭椂妫�娴嬭繘绋嬫槸鍚﹀瓨鍦紝濡傛灉涓嶅瓨鍦ㄥ氨鍚姩杩涚▼銆?/h3> 
option Explicit    
dim wmi,proc,procs,proname,flag,WshShell    
Do  
    proname="ClientOfWatcher.exe" '闇�瑕佺洃娴嬬殑鏈嶅姟杩涚▼鐨勫悕绉帮紝鑷鏇挎崲杩欓噷鐨勮浜嬫湰杩涚▼鍚?   
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\.
ootcimv2")    
set procs=wmi.execquery("select * from win32_process")    
  flag=true    
for each proc in procs    
    if strcomp(proc.name,proname)=0 then    
      flag=false    
      exit for    
    end if    
next    
  set wmi=nothing    
  if flag then    
    Set WshShell = Wscript.CreateObject("Wscript.Shell")    
    WshShell.Run ("C:WatcherClientOfWatcher.exe")    
end if    
  wscript.sleep 50000 '妫�娴嬮棿闅旀椂闂达紝杩欓噷鏄?0绉?   
loop

鍏充簬vbs绯荤粺杩愯鍚庯紝绯荤粺杩涚▼涓骇鐢熷ぇ閲弚script.exe

taskkill /IM wscript.exe /F
taskkill /IM cscript.exe /F
taskkill /IM consent.exe /F
taskkill /IM ChsIME.exe /F

鎵�鏈夊缓璁湇鍔″櫒涓婅繍琛寁bs鍚庯紝濡傛灉鍑虹幇澶ч噺wscript.exe杩涚▼锛屽彲浠ュ姞涓婁笅闈㈢殑鍛戒护

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true

鍒版杩欑瘒鍏充簬浣跨敤vbs鑴氭湰鏉ョ洃鎺indows鏈嶅姟鍣ㄤ笂鐨勫簲鐢ㄧ▼搴?涓嶅瓨鍦ㄥ氨鍚姩)鐨勬枃绔犲氨浠嬬粛鍒拌繖浜?鏇村鐩稿叧vbs瀹堝崼杩涚▼鍐呭璇锋悳绱㈣剼鏈箣瀹朵互鍓嶇殑鏂囩珷鎴栫户缁祻瑙堜笅闈㈢殑鐩稿叧鏂囩珷甯屾湜澶у浠ュ悗澶氬鏀寔鑴氭湰涔嬪锛?/p>