;~ сохраняем старое значение
$backup = RegRead("HKCU\SOFTWARE\Microsoft\Notepad", "iPointSize")
;~ устанавливаем размер шрифта, тут 20 (нужный размер надо умножить на 10)
RegWrite("HKCU\SOFTWARE\Microsoft\Notepad", "iPointSize", "REG_DWORD", 200)
;~ запускаем блокнот
Run("notepad.exe")
;~ ждем появления окна
WinWaitActive("Безымянный — Блокнот")
;~ печатаем текст
Send("Это текст написан 20 шрифтом.")
Sleep(2000)
;~ еще раз меняем шрифт
RegWrite("HKCU\SOFTWARE\Microsoft\Notepad", "iPointSize", "REG_DWORD", 300)
Run("notepad.exe")
;~ ждем появления окна
WinWaitActive("Безымянный — Блокнот")
;~ печатаем текст
Send("Это текст написан 30 шрифтом.")
;~ восстанавливаем старое значение
RegWrite("HKCU\SOFTWARE\Microsoft\Notepad", "iPointSize", "REG_DWORD", $backup)