Wort ständig automatisch eingeben

[moori]

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