vba通過findwindow穫?cè)〈翱诰浔醽闩袛嗍欠駹?wèi)活動(dòng)窗口

vba通過findwindow穫?cè)〈翱诰浔醽闩袛嗍欠駹?wèi)活動(dòng)窗口

'定義Findwindow windows API 函數(shù)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long  '定義GetForegroundWindows API 穫?cè)∽钋包I窗體 Private Declare Function GetForegroundWindow Lib "user32" () As Long
 '可以通過查看前景窗口是否爲(wèi)指定窗口判斷
 hwd1 = FindWindow("#32770", "QQ用戶登録")
  
   '穫得指定窗口句柄 hwd2 = GetForegroundWindow

'穫得前景窗口句柄 If hwd1 = hwd2 Then MsgBox "指定窗口爲(wèi)活動(dòng)狀態(tài)！"
'判斷是否相衕