|
Registriert seit: 14. Jun 2003
36 Beiträge
Delphi 4 Professional
|
Re: Wort ständig automatisch eingeben
15. Jul 2003, 22:17
Serrs,
Probier mal folgendes (Vorsicht habs nich getestet);
Delphi-Quellcode:
SendMessage(ActiveControl.Handle, WM_KEYDOWN, Ord('N'), 0);
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('N'), 0);
SendMessage(ActiveControl.Handle, WM_KEYDOWN, Ord('U'), 0);
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('U'), 0);
SendMessage(ActiveControl.Handle, WM_KEYDOWN, Ord('T'), 0);
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('T'), 0);
SendMessage(ActiveControl.Handle, WM_KEYDOWN, Ord('T'), 0);
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('T'), 0);
SendMessage(ActiveControl.Handle, WM_KEYDOWN, Ord('E'), 0);
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('E'), 0);
SendMessage(ActiveControl.Handle, WM_KEYDOWN, Ord('R'), 0);
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('R'), 0);
SendMessage(ActiveControl.Handle, WM_KEYDOWN, Ord('T'), 0);
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('T'), 0);
SendMessage(ActiveControl.Handle, WM_KEYDOWN, Ord('O'), 0);
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('O'), 0);
SendMessage(ActiveControl.Handle, WM_KEYDOWN, Ord('O'), 0);
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('O'), 0);
SendMessage(ActiveControl.Handle, WM_KEYDOWN, Ord('L'), 0);
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('L'), 0);
SendMessage(ActiveControl.Handle, WM_KEYDOWN, Ord('S'), 0);
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('S'), 0);
Verbinde das mit nem Timer stell den auf 20 Sek ein geh ins Spiel und warte ob du nun die "Harten Waffen" bekommst. (Nuttertools=Besten Waffen aus dem Spiel)
Gruss Moori
Ich brauche keine Pointer, Threads usw, ich krieg auch ohne schon genügend lustige Fehler! 
|