بستن برنامه در حال اجرا توسر برنامه خودم

[xrezax]

دوستان چطور یک برنامه در حال اجرا رو بوسیله برنامه خودم ببندم /؟

سرچ هم کردم سورس هایی که بودن کار نمیدادن

[MohammadGh2011]

دوستان چطور یک برنامه در حال اجرا رو بوسیله برنامه خودم ببندم /؟

سرچ هم کردم سورس هایی که بودن کار نمیدادن
سلام عليکم
اسم برنامه رو به جاي notepad بنويسين:
Public Sub KillProcess(ByVal processName As String)

On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename

Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")

For Each oService In oServices

servicename = LCase(Trim(CStr(oService.Name) & ""))

If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If

Next

Set oServices = Nothing
Set oWMI = Nothing

ErrHandler:
Err.Clear
End Sub

Private Sub Command1_Click()
KillProcess "notepad"
End Sub


منبع (http://social.msdn.microsoft.com/Forums/eu/isvvba/thread/ab376f1f-115e-4692-8baa-fd8f2aa8572d)