office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

vba通過findwindow獲取窗口句柄后并判斷是否為活動窗口

2017-09-17 08:00:00
zstmtony
原創
4517

vba通過findwindow獲取窗口句柄后并判斷是否為活動窗口


'定義Findwindow windows API 函數
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long  '定義GetForegroundWindows API 獲取最前面窗體 Private Declare Function GetForegroundWindow Lib "user32" () As Long
 '可以通過查看前景窗口是否為指定窗口判斷
 hwd1 = FindWindow("#32770", "QQ用戶登錄")
  
   '獲得指定窗口句柄 hwd2 = GetForegroundWindow

'獲得前景窗口句柄 If hwd1 = hwd2 Then MsgBox "指定窗口為活動狀態!"
'判斷是否相同
分享
北京十一选五基本走势