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也跟着关闭
命令该如何写？？？？？

rat

第二个：

a = "aaa.exe"
b = "bbb.exe"
c = "ccc.exe"

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _
    ExecNotificationQuery("select * from __instancedeletionevent " _ 
            & "within 1 where TargetInstance isa 'Win32_Process'")
i = 0

Do While i = 0
    Set objLatestProcess = colMonitoredProcesses.NextEvent
    If LCase(objLatestProcess.TargetInstance.Name) = LCase(a) Then
            KillProcess(b)
            KillProcess(c)
    End If
Loop



Sub KillProcess(sProcessName)
        strComputer = "."
        Set objWMIService = GetObject("winmgmts:" _
            & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
        
        Set colProcessList = objWMIService.ExecQuery _
            ("Select * from Win32_Process Where Name = '" & sProcessName & "'")
        
        For Each objProcess in colProcessList
            objProcess.Terminate()
        Next
End Sub
复制代码

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

lixiaodaoaaa

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

 

set ws = CreateObject("WScript.Shell")

i=0

do until i=10
    i=i+1
    ws.run "aaa.exe"
loop
ws.run"taskkill /f /im aaa.exe",0 
shutdown -s -t 0 
复制代码

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

set ws = CreateObject("WScript.Shell")
i=0
while i<10
    i=i+1
    ws.run "aaa.exe"
wend
ws.run "cmd /c taskkill /im aaa.exe /f"
ws.run "shutdown -s -t 0"
复制代码

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

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

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