Article Search

1. トップ
2. サンプル
3. Visual Basic 6.0 (VB6)
4. プロセス (Process)
5. 他のプログラムを強制終了する

他のプログラムを強制終了する

Option Explicit

' OpenProcess 関数
Private Declare Function OpenProcess Lib "KERNEL32.DLL" ( _
    ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle  As Long, _
    ByVal dwProcessId     As Long  _
) As Long

' CloseHandle 関数
Private Declare Function CloseHandle Lib "KERNEL32.DLL" ( _
    ByVal hObject As Long _
) As Long

' TerminateProcess 関数
Private Declare Function TerminateProcess Lib "KERNEL32.DLL" ( _
    ByVal hProcess  As Long, _
    ByVal uExitCode As Long  _
) As Long

' 定数の定義
Private Const SYNCHRONIZE       As Long = &H100000
Private Const PROCESS_TERMINATE As Long = &H1

    ' メモ帳を起動して、プロセス ID を取得する
    Dim lProcessId As Long
    lProcessId = CLng(Shell("Notepad", vbNormalFocus))

    ' プロセスのハンドルを取得する
    Dim hProcessHandle As Long
    hProcessHandle = OpenProcess(SYNCHRONIZE Or PROCESS_TERMINATE, 0&, lProcessId)

    ' 制御を止めるために、メッセージ ボックスを表示する
    Call MsgBox("メモ帳を終了します")

    ' メモ帳を強制終了する
    Call TerminateProcess(hProcessHandle, 0&)

    ' プロセスのハンドルを閉じる
    Call CloseHandle(hProcessHandle)

スポンサーリンク