如果只要 获取一个确定名字的窗口标题 ,在VBA中使用,比如切换窗口。打开任务管理器,看看就对了。懒人做法。
如下:
以下仅供参考,为了找放映窗口标题,实现在PPT放映窗口与其他窗口间切换,百度N久,基本是垃圾信息,一怒之下自己贴了一个,希望对后来人有用。
注:没做优化,有没用的代码。
Sub Main() '启动定时切换
lngTimerID = SetTimer(0, 0, 1000, AddressOf Update)
IngTimer1 = SetTimer(0, 1, 10000, AddressOf SwitchWindow)
End Sub
Sub stopA() '关闭定时切换,需要手工按ALT+F8 运行,不会自己运行的
lngTimerID = KillTimer(0, lngTimerID)
lngTimerID = KillTimer(1, lngTimerID)
End Sub
Sub SwitchWindow()
Dim app1, app2 As Object
Dim str1, str2 As String
Dim sBuffer As String
Dim lHwnd_1 As Long
Dim caption1 As String
Dim cnt As Integer
cnt = 0
str1 = "无标题 - 记事本" '此处放普通窗口标题名
str2 = "PowerPoint 幻灯片放映 - [时间更新及窗口切换V100]" '此处放放映窗口标题名
On Error GoTo EE
If (bSwitch) Then
bSwitch = False
AppActivate str1
Else
bSwitch = True
AppActivate str2
End If
EE: cnt = 1
End Sub