需要工具：
API函数：工具下载地址
FindWindow ←寻找窗口列表中第一个符合指定条件的顶级窗口
GetWindowThreadProcessId ←获取与指定窗口关联在一起的一个进程和线程标识符
相关API声明：FindWindow
↓
Private * Function FindWindow Lib “user32“ Alias “FindWindowA“ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
GetWindowThreadProcessId
↓
Private * Function GetWindowThreadProcessId Lib “user32“ (ByVal hwnd As Long, lpdwProcessId As Long)
As Long
需要的控件：Label、Timer
自定义函数：Dim hwnd As Long
源代码：
Private * Function FindWindow Lib “user32“ Alias “FindWindowA“ (ByVal lpClassName As String, ByVal lpWindowName As String)
As Long
Private * 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 = “游戏未运行“.
Else
Label1.Caption = “游戏已运行“
End If
End Sub
第一课授课完毕，敬请关注下一节课