office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

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

vba通过findwindow获取窗口句柄后并判断是否为活动窗口

2017-09-17 08:00:00
zstmtony
原创
5264

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 "指定窗口为活动状态!"
'判断是否相同
分享