11 lines
243 B
Text
11 lines
243 B
Text
Shell("tasklist > temp.txt")
|
|
|
|
Dim linea As String
|
|
Open "temp.txt" For Input As #1
|
|
Do While Not Eof(1)
|
|
Line Input #1, linea
|
|
If Instr(linea, "fbc.exe") = 0 Then Print "Task is Running" : Exit Do
|
|
Loop
|
|
Close #1
|
|
Shell("del temp.txt")
|
|
Sleep
|