form1.frm

wg制作入门系列之一 监视游戏程序是否运行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   1320
      Top             =   1920
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   375
      Left            =   1320
      TabIndex        =   0
      Top             =   600
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

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, lpdwProcessId As Long)

Private Sub Timer1_Timer()

    Dim hwnd As Long '储存 FindWindow 函数返回的句柄
    
    hwnd = FindWindow(vbNullString, "LP仿传奇单机版") '取得进程标识符
    
    '只要把Windows Media Player换成游戏的名称就可了！
    
    If hwnd = 0 Then
    
    Label1.Caption = "游戏未运行"
    
    Else
    
    Label1.Caption = "游戏已运行"
    
    End If

End Sub