xFire Chatfenster Text senden !?!

[Assun]

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 :

[100nF]

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

[Assun]

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]

[100nF]

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:

jo en halbschwiitzer sag i e mol.

:mrgreen: :mrgreen:

gruss
urbanbruhin

[Assun]

also ich habs jetzt so:

Delphi-Quellcode:

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;

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 :(

[100nF]

sorry, aber weiter kann ich dir nicht helfen, da kenn ich mich nicht so aus :|

Zitat:

und beim klick auf den Button meckert ZoneAlarm sogar "Project1.exe wants to manipulate Keyboard events of xfire.exe"

ich wusste gar nicht dass ZoneAlarm bei sowas meckert :gruebel:

OT: schreib den code noch ein paar mal, dann hab ich gleich alle deine xFire kontakte :mrgreen: Sky Walker, blackmambojimbo ...

[Assun]

Die neue Version mit Spyware Schutz schon ;-)

ach maaaaan :( kann mir keiner helfen ?

Warum kommt denn da nix an ??

[Christian Seehase]

Moin Sebastian,

hast Du denn mal ZoneAlarm ausgeschaltet, um zu prüfen, ob das Programm das nicht blockiert?

[Assun]

jo habs grad ausgeschalten. bringt auch nix :(

[Luckie]

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: WM_SETTEXT, Programm fernsteuern, FindWindow, FindWindowEx.

Ich würde mir das Ediut für den Text übrigens direkt suchen mit FindWindowEx und dann mit WM_SETTEXT direkt reinschreiben. Genauso würde ich auch mit der Schaltfläche verfahren: Suchen und mit BM_CLICK einen Klick auslösen.