![]() |
xFire Chatfenster Text senden !?!
Liste der Anhänge anzeigen (Anzahl: 2)
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:
ich hab mal die ganzen classnamen als bild angehängt.
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; 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 : |
Re: xFire Chatfenster Text senden !?!
hallo Assun,
wird denn das Fenster mit Findwindow() überhaupt gefunden? ich habs auch getestet, doch das fenster wurde gar nicht gefunden... Hilzingen am Bodensee? au en schwiizer? :mrgreen: :mrgreen: gruss urbanbruhin |
Re: xFire Chatfenster Text senden !?!
ne es wird nich so recht gefunden :(
hab viele codes die ich hier per suche gefunden habe ausprobiert.....aber keins funtzt. bzw bei nem anderen ähnlichen code hat er das window zwar gefunden aber es geschah nix...den code hab ich aber vergesen :wall: HELP :?: [OT] jo en halbschwiitzer sag i e mol. :mrgreen: ich wohn ca. 2 km von der schweitzer grenze entfernt ;-) (nahe Villingen-Schwenningen oder so :gruebel:[/OT] |
Re: xFire Chatfenster Text senden !?!
Hoi,
ich habe noch ein bisschen weiterprobiert, die erste zeile muss so heissen:
Delphi-Quellcode:
wh := FindWindow('ChatSkinWnd', 'Sky Walker - Chat-Fenster'); // Window finden
Zitat:
gruss urbanbruhin |
Re: xFire Chatfenster Text senden !?!
also ich habs jetzt so:
Delphi-Quellcode:
und beim klick auf den Button meckert ZoneAlarm sogar "Project1.exe wants to manipulate Keyboard events of xfire.exe" aber ich seh nix davon. soll heissen im eingabefeld von xfire kommt nix an :(
procedure TForm1.Button1Click(Sender: TObject);
const mystring: string = 'Ich bin gerade nicht am PC !'; var wh: HWND; i: Integer; begin wh := FindWindow('ChatSkinWnd', 'blackmambojimbo - Chat-Fenster'); // 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; |
Re: xFire Chatfenster Text senden !?!
sorry, aber weiter kann ich dir nicht helfen, da kenn ich mich nicht so aus :|
Zitat:
OT: schreib den code noch ein paar mal, dann hab ich gleich alle deine xFire kontakte :mrgreen: Sky Walker, blackmambojimbo ... |
Re: xFire Chatfenster Text senden !?!
Die neue Version mit Spyware Schutz schon ;-)
ach maaaaan :( kann mir keiner helfen ? Warum kommt denn da nix an ?? |
Re: xFire Chatfenster Text senden !?!
Moin Sebastian,
hast Du denn mal ZoneAlarm ausgeschaltet, um zu prüfen, ob das Programm das nicht blockiert? |
Re: xFire Chatfenster Text senden !?!
jo habs grad ausgeschalten. bringt auch nix :(
|
Re: xFire Chatfenster Text senden !?!
Ob es so sinnvoll ist, wenn du einen ganzen Text schreibenwillst jedes Zeichen einzeln zu senden... Warum nimmst du nicht WM_SETTEXT? Desweiteren sollte die Forensuch bezüglich dieses Themas se3hr ergiebig sein:
![]() ![]() ![]() ![]() Ich würde mir das Ediut für den Text übrigens direkt suchen mit ![]() ![]() ![]() |
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:11 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz