VBS固定循环命令

zinet

例一：有一脚本代码如下：

set ws=createobject("wscript.shell")
ws.run "aaa.exe"
wscript.sleep 10000
ws.run"taskkill /f /im aaa.exe",0
如何让vbs脚本自动循环运行10后,自动关机
命令该如何写？？？？？


例二：有一脚本代码如下：
set ws=createobject("wscript.shell")
ws.run "aaa.exe"
当aaa.exe启动时，相继调用bbb.exe和ccc.exe启动
当aaa.exe关闭时，bbb.exe和ccc.exe依然运行
请问能否用脚本命令当aaa.exe退出时，bbb.exe和ccc.exe也跟着关闭
命令该如何写？？？？？

lixiaodaoaaa

第一个好写点，第二个貌似不好写。。

1. 
   
2. 
   
3. set ws = CreateObject("WScript.Shell")
   
4. 
   
5. i=0
   
6. 
   
7. do until i=10
   
8.     i=i+1
   
9.     ws.run "aaa.exe"
   
10. loop
    
11. ws.run"taskkill /f /im aaa.exe",0
    
12. shutdown -s -t 0

复制代码

或者下面的代码也可以循环10次，就可以了
实际上，我是用vbs实现的。

1. set ws = CreateObject("WScript.Shell")
   
2. i=0
   
3. while i<10
   
4.     i=i+1
   
5.     ws.run "aaa.exe"
   
6. wend
   
7. ws.run "cmd /c taskkill /im aaa.exe /f"
   
8. ws.run "shutdown -s -t 0"

复制代码

完了。特别感谢 zqz0012005 看了他的东西模仿过来的，自己仔细看他的帖子，回答的非常的经典！

参考帖子 http://bbs.bathome.net/thread-1979-1-1.html

[ 本帖最后由 lixiaodaoaaa 于 2008-10-21 02:49 编辑 ]

rat

第二个：

1. a = "aaa.exe"
   
2. b = "bbb.exe"
   
3. c = "ccc.exe"
   
4. 
   
5. strComputer = "."
   
6. Set objWMIService = GetObject("winmgmts:" _
   
7.     & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
   
8. Set colMonitoredProcesses = objWMIService. _
   
9.     ExecNotificationQuery("select * from __instancedeletionevent " _
   
10.             & "within 1 where TargetInstance isa 'Win32_Process'")
    
11. i = 0
    
12. 
    
13. Do While i = 0
    
14.     Set objLatestProcess = colMonitoredProcesses.NextEvent
    
15.     If LCase(objLatestProcess.TargetInstance.Name) = LCase(a) Then
    
16.             KillProcess(b)
    
17.             KillProcess(c)
    
18.     End If
    
19. Loop
    
20. 
    
21. 
    
22. 
    
23. Sub KillProcess(sProcessName)
    
24.         strComputer = "."
    
25.         Set objWMIService = GetObject("winmgmts:" _
    
26.             & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
    
27.         
    
28.         Set colProcessList = objWMIService.ExecQuery _
    
29.             ("Select * from Win32_Process Where Name = '" & sProcessName & "'")
    
30.         
    
31.         For Each objProcess in colProcessList
    
32.             objProcess.Terminate()
    
33.         Next
    
34. End Sub

复制代码

[ 本帖最后由 rat 于 2008-10-21 12:53 编辑 ]