yu2n

Const AppName = "QQ.exe"        ' 程序名称
Const AppPath = "D:\QQ\QQ.exe"  ' 程序路径，不知道路径的话留空

Main
Sub Main()
  ' 循环100次
  For i = 1 To 100
    ' 延时 1 秒
    ' WScript.Sleep 1000
    ' 检查QQ是否运行，运行则退出脚本
    If IsRun(AppName, AppPath) > 0 Then WScript.Quit(0)
  Next
  ' 没有QQ运行，则启动QQ
  CreateObject("Wscript.Shell").Run AppPath
End Sub

' 检查程序是否运行，返回运行个数
' Eg: IsRun("mshta.exe", "c:\test.hta") > 1
Function IsRun(byVal AppName, byVal AppPath)
    IsRun = 0 : i = 0
    For Each objItem in GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
        IF LCase(objItem.name) = LCase(AppName) Then
            If AppPath = "" Then IsRun = 1 : Exit Function
            IF Instr( LCase(objItem.CommandLine) , LCase(AppPath) ) Then i = i + 1
        End IF
    Next
    IsRun = i
End Function
复制代码

yu2n

回复 4# ydm566
你是如何判定没有循环100次的？
如果要延时的效果，把第9行代码前的单引号去掉。
如果要体会100次的效果，在第9行后面加1句：

Msgbox Now()
复制代码

yu2n

代码第2行“ 程序路径，不知道路径的话留空”。

Const AppPath = "D:\QQ\QQ.exe"  ' 程序路径，不知道路径的话留空
复制代码

' 程序路径，不知道路径的话留空