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