需要VB API函数:FindWindow ←寻找窗口列表中第一个符合指定条件的顶级窗口GetWindowThreadProcessId ←获取与指定窗口关联在一起的一个进程和线程标识符--------------------------------------------------------------------------------------------------------------------------------------------------------相关API声明:FindWindow↓Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long GetWindowThreadProcessId↓Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long)As Long--------------------------------------------------------------------------------------------------------------------------------------------------------需要的控件:Label、Timer-------------------------------------------------------------------------------------------------------------------------------------------------------- 自定义函数:Dim hwnd As Long-------------------------------------------------------------------------------------------------------------------------------------------------------- 源代码:Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long)As LongPrivate Sub Timer1_Timer()Dim hwnd As Long" 储存 FindWindow 函数返回的句柄hwnd = FindWindow(vbNullString, "Windows Media Player")" 取得进程标识符"只要把Windows Media Player换成游戏的名称就可了!If hwnd = 0 ThenLabel1.Caption = "游戏未运行"ElseLabel1.Caption = "游戏已运行"End IfEnd Sub
电子书 :VB黑客编程高手—30天打造黑客程序编写高手

发表评论

电子邮件地址不会被公开。 必填项已用*标注

This site uses Akismet to reduce spam. Learn how your comment data is processed.