关于检测一个程序是否打开的代码~高手赐教~解决方案
关于检测一个程序是否打开的代码~~高手赐教~~
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByVal lpdwProcessId As Long) As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As Long
a = FindWindow(vbNullString, "帮助")
If a <> 0 Then
Label1.Text = "己运行"
Else
Label1.Text = "己关闭"
End If
End Sub
这个是我网上找来的关于检测一个程序是否开启的代码...但是貌似是VB6的...不知道VB.NET怎么写???高手赐教!
------解决方案--------------------
不过应该把Long都改成UInt32。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByVal lpdwProcessId As Long) As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As Long
a = FindWindow(vbNullString, "帮助")
If a <> 0 Then
Label1.Text = "己运行"
Else
Label1.Text = "己关闭"
End If
End Sub
这个是我网上找来的关于检测一个程序是否开启的代码...但是貌似是VB6的...不知道VB.NET怎么写???高手赐教!
------解决方案--------------------
不过应该把Long都改成UInt32。