| 1 | #Requires AutoHotkey v2.0 |
| 2 | OnError((exception, mode) => (FileAppend(exception.Message, "**"), ExitApp(1))) |
| 3 | dm := Buffer(220, 0) |
| 4 | NumPut("UShort", 220, dm, 68) |
| 5 | if !DllCall("EnumDisplaySettingsW", "Ptr", 0, "UInt", 0xFFFFFFFF, "Ptr", dm) |
| 6 | throw Error("Cannot inspect display mode") |
| 7 | NumPut("UInt", NumGet(dm, 72, "UInt") | 0x180000, dm, 72) |
| 8 | NumPut("UInt", 1280, dm, 172) |
| 9 | NumPut("UInt", 720, dm, 176) |
| 10 | if DllCall("ChangeDisplaySettingsW", "Ptr", dm, "UInt", 0, "Int") != 0 |
| 11 | throw Error("Display mode rejected") |
| 12 | app := ComObject("OneNote.Application") |
| 13 | app.NavigateTo("{36F927E2-894E-46B6-9880-230A50839CFA}{1}{B0}", "{E2A450C5-7596-4142-BBC7-E4EDC8853D7E}{50}{B0}", false) |
| 14 | hwnd := WinWait("ahk_class Framework::CFrame ahk_exe ONENOTE.EXE",, 10) |
| 15 | if !hwnd |
| 16 | throw Error("OneNote window did not appear") |
| 17 | WinMaximize(hwnd) |
| 18 | WinActivate(hwnd) |
| 19 | if !WinWaitActive(hwnd,, 10) |
| 20 | throw Error("OneNote window did not become active") |
| 21 | Sleep 300 |
| 22 | Send "{Left}{Backspace}" |