مقبض البرنامج

بسم الله الرّحمن الرّحيم

Option Explicit

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long

Dim Re



Private Sub Command1_Click()

    'لتشغيل البرنامج والحصول على مقبضه

    Dim Path As String

    

    Path = "c:test.exe"

    

    Re = Shell(Path, 5)

End Sub



Private Sub Command2_Click()

    'لإيقاف تشغيل البرنامج

    TerminateProcess OpenProcess(&H100000, 0, Re), 0

End Sub