اغلاق برنامج فجول عن طريق الاكسس

[سلمان الشهراني]

اساتذتنا

ارغب في كود يغلق لي برنامج معمول على الفجول بيسك من نموذج الاكسس

موجود على هذا المسار
"C:\ALhatem\User Interface\FingerPrint_Reade.exe"
وشاكر للجميع

[jjafferr]

وعليكم السلام

 

تقدر تستخدم هذا الكود:

Private Sub Command1_Click()
    TerminateProcess ("calc.exe")
End Sub
 
Private Sub TerminateProcess(app_exe As String)
    Dim Process As Object
    For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & app_exe & "'")
        Process.Terminate
    Next
End Sub

 

واذا ما فادك ، استعمل الكود من هنا:

http://www.vbforums.com/showthread.php?318582-Terminating-Running-EXE&p=1878673#post1878673

 

جعفر

[سلمان الشهراني]

2 ساعات مضت, jjafferr said:

وعليكم السلام

 

تقدر تستخدم هذا الكود:

Private Sub Command1_Click()
    TerminateProcess ("calc.exe")
End Sub
 
Private Sub TerminateProcess(app_exe As String)
    Dim Process As Object
    For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & app_exe & "'")
        Process.Terminate
    Next
End Sub

 

واذا ما فادك ، استعمل الكود من هنا:

http://www.vbforums.com/showthread.php?318582-Terminating-Running-EXE&p=1878673#post1878673

 

جعفر

 

االله يعطيك الف الف عافيه
جميل جدا وفعلا اشتغل و 100%

[jjafferr]

[m.r]

خوية جعفر هذا الكود ما اشتغل وياي