XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Programm fernsteuern (Beispiel: Notepad)
Der angegebene Pfad zum Speichern ist ggf. anzupassen
Declare Notepad&, NotepadWin&
Notepad starten
Let Notepad& = WinExec(NOTEPAD.EXE,1)  Notepad starten
Let NotepadWin& = GetActiveWindow()      Handle des Notepad-Hauptfensters
Text senden
SendString(0,Hallo Welt!
)
SendString(0,Dieser Text kommt vom PROFAN-Programm!{ENTER})
SendString(0,{- 20}{ENTER})
SendString(0,+(fertig)!)
Menübefele senden
SendKey(NotepadWin&,18)              Alt
SendKey(NotepadWin&,68)              D (Datei)
SendKey(NotepadWin&,85)              U (speichern Unter)
Speichern-Dialog ausfüllen
SendString(0,D:\TEST.TXT)
SendString(0,{ENTER})              ... und OK
SendKey(NotepadWin&,18)              Alt
SendKey(NotepadWin&,68)              D (Datei)
SendKey(NotepadWin&,66)              B (Beenden)
Fin