$sSrc = _
"#include <WinAPI.au3>" & @CRLF & _
"#include <FontConstants.au3>" & @CRLF & _
"While Not WinExists('Input Title')" & @CRLF & _
" Sleep(10)" & @CRLF & _
"WEnd" & @CRLF & _
"$hInput = ControlGetHandle('Input Title', '', 'Static1')" & @CRLF & _
"$hFont = _WinAPI_CreateFont(12, 12, 0, 0, $FW_NORMAL, False, False, False, $DEFAULT_CHARSET, $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, 'Georgia')" & @CRLF & _
"_WinAPI_SetFont($hInput, $hFont)"
$hFile = FileOpen(@TempDir & "\SetFont.au3", 2)
FileWrite($hFile, $sSrc)
FileClose($hFile)
Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @TempDir & '\SetFont.au3"')
InputBox("Input Title", "This is a Prompt")