PDA

View Full Version : آموزش: چطور بفهمیم یک برنامه در حال اجرا هست



Saman_12
سه شنبه 05 مرداد 1389, 12:57 عصر
سلا دوستان عزیز.
:لبخند:با یه تایپیک و با عنوان مناسب خدمت رسیدیم.:لبخند:
شما برای اینکه بفمید که یک بر نامه در حال اجرا می باشد می تونید از دوروش زیر استفاده کنید.
1. روش اول با استفاده از نام برنامه موردنظر(Process Name) :


On Error Resume Next
Dim Process_Run As Boolean
Process_Run = Process.GetProcessesByName("Process Name").First.ProcessorAffinity
If Process_Run = True Then
MsgBox("Process Runing", MsgBoxStyle.Information, "Run")
Else
MsgBox("Process Not Runing", MsgBoxStyle.Exclamation, "Run")
End If

این جوری هم می تونید از استفاده کنید :


Try
Dim Process_Run As Integer
Process_Run = Process.GetProcessesByName("Process Name").First.Id
MsgBox("Process Runing", MsgBoxStyle.Information, "Run")
Catch ex As Exception
MsgBox("Process Not Runing", MsgBoxStyle.Exclamation, "Run")
End Try

خوب میرسیم سر روش دوم که با استفاده از Pid هست(Process Pid)


On Error Resume Next
Dim Process_Run As Boolean
Process_Run = Process.GetProcessById("Process Pid").ProcessorAffinity
If Process_Run = True Then
MsgBox("Process Runing", MsgBoxStyle.Information, "Run")
Else
MsgBox("Process Not Runing", MsgBoxStyle.Exclamation, "Run")
End If

می تونید این جوری هم استفاده کنید :


Try
Dim Process_Run As Integer
Process_Run = Process.GetProcessById("Process Pid").Id
MsgBox("Process Runing", MsgBoxStyle.Information, "Run")
Catch ex As Exception
MsgBox("Process Not Runing", MsgBoxStyle.Exclamation, "Run")
End Try

آموزش به پایان رسید امید وارم حداکثر استفاده رو ببرید!
!!!!!!!!!!!!!:لبخندساده:GoodLuck