アプリが起動しているか確認だけしたい！ (ID:110149)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB.NETの場合 Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer Private Declare Function FindWindowEx Lib "user32" Alias _ "FindWindowExA" (ByVal hWnd1 As Integer, ByVal _ hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer Private Sub Command1_Click(ByVal eventSender As System.Object, _ ByVal eventArgs As System.EventArgs) Handles Command1.Click If FindWindowEx(0, 0, vbNullString, "電卓") Then MsgBox("電卓動いてます。") Else MsgBox("電卓動いてない。") End If End Sub Private Sub Command2_Click(ByVal eventSender As System.Object, _ ByVal eventArgs As System.EventArgs) Handles Command2.Click If FindWindow(vbNullString, "電卓") Then MsgBox("電卓動いてます。") Else MsgBox("電卓動いてない。") End If End Sub とやればどちらでもいけます。