تشخیص ران بودن برنامه و اجرای ان

[hasht.rood]

سلام دوستان میخواستم بدونم چطوری میشه یک برنامه نوشت که اجرا بودن یک برنامه رو چک کنه و اگر در پروسس نبود (ران نبود) اون رو اجرا کنه.
به عبارتی هر ثانیه اون برنامه رو چک کنه که بسته نباشه
منتظر راهنماییهاتون هستم
با تشکر فراوان

[M.T.P]

با تابع زیر می تونید بررسی کنید که پروسه مورد نظر در لیست پروسه ها هست یا خیر.


Function IsProcessRunning(ProcessName As String) As Boolean
On Error Resume Next
Dim Process, strObject
IsProcessRunning = False
strObject = "winmgmts://"
For Each Process In GetObject(strObject).InstancesOf("win32_process")
If UCase(Process.name) = UCase(ProcessName) Then
IsProcessRunning = True
Exit Function
End If
Next
End Function

[Veteran]

با این میتونین اجرا کنین

shell "ادرس فایل اجرایی"

[mr-adler]

با تابع زیر می تونید بررسی کنید که پروسه مورد نظر در لیست پروسه ها هست یا خیر.


Function IsProcessRunning(ProcessName As String) As Boolean
On Error Resume Next
Dim Process, strObject
IsProcessRunning = False
strObject = "winmgmts://"
For Each Process In GetObject(strObject).InstancesOf("win32_process")
If UCase(Process.name) = UCase(ProcessName) Then
IsProcessRunning = True
Exit Function
End If
Next
End Function

روش اسون تری نیست؟؟؟:افسرده:

[M.T.P]

روش اسون تری نیست؟؟؟

زیاد مشکل نیست!

به عنوان مثال اگه خواستید بفهمید نرم افزار NotePad اجرا شده یا نه...
به این شکل صداش میزنید:



MsgBox IsProcessRunning("Notepad.exe")

اگه مقدار برگشتی True باشه ، یعنی برنامه تو پروسه هاست.