Question

我想用按键精灵写一个脚本,但写了很久还是有错误

大约是这样的, (Rem abc) 判断123.exe是否打开 如已打开 则等待15s后再到{abc}
如未打开 则到c盘/xxx/xxx/ 打开123.exe
有办法么?

Answer 1

Rem abc
//MsgBox ProgExist("notepad") //这里查找的是记事本程序,如果进程存在则返回大于1,否则返回0
If ProgExist("notepad") > 0 Then
Delay 1000 * 15
Else
Call Lib.API.运行程序("C:\WINDOWS\system32\notepad.exe")

End If
Goto abc
Function ProgExist(CompProg)
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process")
For Each obj In objs
Cont = Cont & obj.Description & chr(10)
Next
ProgExist = instr(Cont, CompProg)
End Function