XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastendrücke an andere Programme senden (mit SendString)
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,D:TEST2TEST.TXT        Datei ggf. löschen
Reset #1

IfNot %IoResult

    Erase #1

EndIf

SendString(0,D:TEST2TEST.TXT)
SendString(0,{ENTER})              ... und OK
SendString(NotepadWin%,%DB)         ALT-D U = Datei - Beenden
End