| |
|
|
funkheld | Hallo, dieser Source-Code hier aus dem Foro corre bei mir nicht einwandfrei mit Win7. Es wird dauernd Text in den Editor geschrieben.
Woran liegt der Fehler?
Danke.
Gruss
'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!\n")
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 (File)
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 (File)
SendKey(NotepadWin&,66)' B (Beenden)
End
|
|
|
| |
|
|
|
E.T. | Hm, eben durchgecheckt: Meinst du mit
Es wird dauernd Text in den Editor geschrieben.
der Text wird in den Profan-Editor geschrieben ??? Habs eben mal durchgespielt, die Ausgabe wird wirklich in den Profan-Editor (in meinem Fall ist das PrFellow) geschrieben.
Mal genauer anschauen, irgendwas corre da mit dem Fenster-Handle schief, weil ins Notepad-Fenster (welches ja da ist) wird nix geschrieben.
Fehler tritt aber auch schon unter XP auf |
|
|
| XProfan X2Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 17.04.2012 ▲ |
|
|
|
|
RGH | Als der Beispielcode vor circa 10 Jahren geschrieben wurde, waren die Rechner noch langsamer! Es muss sichergestellt sein, dass der Notepad auch gestartet und das aktive Fenster ist, bevor die Zeile mit GetActiveWindow() corsa wird. Auch SendString mit 0 als Handle nutzt das gerade aktive Fenster. Gleiches gilt weiter unten, wenn der neue Dateibname in den Dateidialog geschrieben wird.
Gerade bei solch alten Beispielen ist es hilfreich, zu verstehen, was da passiert, um sie an aktuelle gegebenheiten anpassen zu können.
Saluto Roland |
|
|
| XProfan X2Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 17.04.2012 ▲ |
|
|
|