vb6.0からのタスクの終了

質問

VB6.0について質問です。
VBからタスクマネージャーのアプリケーションに表示されているタスクを
選んで終了させたいのですが可能ですか？
(例えばいくつかアプリケーションが起動しているなかメモ帳だけを終了させたいです。)
ご教授お願いします。

回答No.1

KenKen_SP · ベストアンサー

こんばんは。WMI を使ったお手軽サンプルです。

' // Sample
Private Sub Command1_Click()
　　Call Shell("notepad.exe", vbNormalFocus)
　　MsgBox "メモ帳を起動しました。これを終了させます。"
　　Call ProcessTerminate("notepad.exe")
End Sub

' // WMI でプロセスを終了させる
Private Sub ProcessTerminate(ByVal ModuleName As String)
　　Dim Sql　As String
　　Dim Proc As Object
　　Sql = "SELECT * FROM win32_process WHERE name='" & ModuleName & "'"
　　For Each Proc In GetObject("winmgmts:").ExecQuery(Sql)
　　　　If StrComp(Proc.Name, ModuleName, vbTextCompare) = 0 Then
　　　　　　Proc.Terminate
　　　　End If
　　Next
End Sub