[AHK]讀取演示PPT當前頁的備註

 功能：讀取演示狀態PPT的備註，目的是無法啟用演講者檢視時，DIY提示備註。
 本指令碼的實現感謝：火冷、萬年書妖、彪悍的小玄

/*
功能：讀取演示狀態PPT的備註，目的是無法啟用演講者檢視時，DIY提示備註。
本指令碼的實現感謝：火冷、萬年書妖、彪悍的小玄
*/
SetTimer, tip, 500
prePage:=0
Return
tip:
Try{
    this_show:=ComObjActive("Powerpoint.application").SlideShowWindows(1).View.slide
    curPage:=this_show.SlideIndex
    If(prePage!=curPage)
    {
        Text:=this_show.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
        ; ToolTip, %Text%, 0, 0
        showtext(Text)
        prePage:=curPage
    }
}
Catch
{
    ; ToolTip
    Gui,Destroy
}
Return


; showtext("HELO")
;;文字提示  ;在桌面上列印文字的
showtext(str)
{
    y := 100  ;;y is the y-coordinate of the prompting window
    ; y := A_ScreenHeight - 388   ;;y is the y-coordinate of the prompting window
    Gui,Destroy
    Gui,+AlwaysOnTop +Disabled -Caption -SysMenu +Owner +LastFound
    WinGet,hwnd,ID
    Gui, font, s16 cFF0000 w600, Verdana
    Gui, Color, FF0001
    WinSet, TransColor, FF0001 255

    w:=A_ScreenWidth-600
    ; Gui,Add,Text ,BackgroundTrans W%w%  R10 ,%str%    
    Gui,Add,Text ,BackgroundTrans W%w%  R10 ,%str%
    Gui, Show, NoActivate Y%y% NA, Title of Window


    ; Sleep,10000
    ; Gui,Destroy
}