起動したアプリケーションを終了するには？

初心者２ 2001-10-27 19:33:15 No: 74983

下記のプログラムのですが動作しません。恥ずかしいのですが、私にはどうにも分かりませんので教えていただけないでしょうか。
もちろん、全く違うプログラムでもかまいませんので、起動プログラムを終了させる方法を教えていただけないでしょうか？
使用環境 win ME VB6−Learning

プログラムのコピー
Private Sub Command1_Click()

Shell "C:\Program Files\NetMeeting\CONF.EXE", vbNormalFocus

End Sub

Private Sub Command2_Click()
    Dim Process As Object
    Dim SQL As String

    SQL = "SELECT Caption FROM Win32_Process" _
        & " WHERE Name='C:\\Program Files\\NetMeeting\\CONF.EXE'"

    With GetObject("winmgmts:")
        For Each Process In .ExecQuery(SQL)
            Process.Terminate
        Next
    End With
End Sub

Private Sub Form_Load()

End Sub

α 2001-10-27 21:57:50 No: 74984

このページにAPIを使ったサンプルがありますが、このプログラムは初めてみる用語がありますね。

たかみちえ 2001-10-28 02:09:22 No: 74985

えー、ほんとにプログラムを終了させるだけですか？

でもそうなら、αさんの言うとおりで出来ます。
このページのサンプルにあるので、見てください。

初心者２ 2001-10-30 09:12:12 No: 74986

回答ありがとうございます。故障によりインターネットにつなげなくて遅れましした。
確かにアプリの技術関連にありました。ありがとうございました。
しかし、私には、解読不可能でアプリを直接終了させることはできませんでした。
初心者のページに投稿すればよかったと反省をしています。
内容が難しそうなので、ここに投稿しました。
私のやりたいことは、 C:\Program Files\NetMeeting\CONF.EXE で立ち上げた
アプリを直接終了させたいのです。
自分の力量を省みないで申し訳ないのですが、どなたか教えていただけないでしょうか。

たかみちえ 2001-10-31 02:30:19 No: 74987

そのソフトのハンドルをもらって、Sendmessageで終了させられます。
ハンドルの入手方法は…。キャプションバーがあって、いつもおなじ文字なら、
Appactivateでアクティブにして、GetForeGroundwindowで得る。
これで終わらせられます。

クラス名を使って探す方法もありますけど…。
一般的なソフトではみなおなじことが多いです。

初心者２ 2001-10-31 08:26:52 No: 74988

たかみちえさまありがとうございます。
私の力量では、無理のようです。ＶＢもはじめたばかりで、初歩的な所しか分かっておりません。
できもしないのにプログラムを組もうとするのが間違いの基のようです。