VBA 获取窗口标题 - 在PPT放映窗口与其他窗口间切换

如果只要 获取一个确定名字的窗口标题 ，在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