Hi !
Ich will so eine Art xFire away-bot schreiben.
dazu muss ich das Fenster finden und text senden und den senden button drücken - doch wie immer klappt gar nix
hier der Code :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
mystring:
string = '
Ich bin gerade nicht am PC !';
var
wh: HWND;
i: Integer;
begin
wh := FindWindow('
Sky Walker - Chat-Fenster', '
ChatSkinWnd');
// Window finden
Windows.SetFocus(wh);
// Focus auf das empfangende Prg. damit es auch Keys verarbeitet ?
if wh <> 0
then
begin
for i := 1
to length(mystring)
do
begin
// Word() oder Ord() - Hauptsache aus z.B. 'A' wird 65 :-)
SendMessage(wh, WM_CHAR, Word(mystring[i]), 0);
end;
Windows.SetFocus(
Handle);
// Focus auf dein Prg.
end else
ShowMessage('
Sorry, Window not found, start the Notepad pleace ?');
end;
ich hab mal die ganzen classnamen als bild angehängt.
desweiteren weiss ich auch noch nicht wie ich den button drücken soll, oder wie er heisst..
ihr seht ich habe mal wieder ein Sack voll Probleme
ich würde mich über nen paar tipps sehr freuen
Gruß Assun
PS : ich hab hier mal noch die classennamen als bild angehängt :