XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text: Notepad starten und Text senden
Declare Notepad&, NotepadWin&
Notepad starten
Let Notepad& = WinExec(NOTEPAD.EXE,1)  Handle der Anwendung
Let NotepadWin& = GetActiveWindow()      Handle des Notepad-Hauptfensters
Handle des aktuellen Elementes ist in %GetFocus
SendString(0,Hallo Welt!
)
SendString(0,Dieser Text kommt vom PROFAN-Programm!{ENTER})
SendString(0,{- 20}{ENTER})
SendString(0,+(fertig)!)
SendString(NotepadWin&,%DU)        ALT-D U = Datei - Speichern unter
Assign #1,C:TEST.TXT        Datei ggf. löschen
Reset #1

IfNot %IoResult

    Erase #1

EndIf

SendString(0,C:TEST.TXT)
SendString(0,{ENTER})              ... und OK
SendString(NotepadWin&,%DB)         ALT-D B = Datei - Beenden
End