Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi xFire Chatfenster Text senden !?! (https://www.delphipraxis.net/54629-xfire-chatfenster-text-senden.html)

Assun 8. Okt 2005 13:25


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:
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 8. Okt 2005 13:55

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

Assun 8. Okt 2005 13:59

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]

100nF 8. Okt 2005 14:01

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:

jo en halbschwiitzer sag i e mol.
:mrgreen: :mrgreen:

gruss
urbanbruhin

Assun 8. Okt 2005 14:08

Re: xFire Chatfenster Text senden !?!
 
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 8. Okt 2005 14:12

Re: xFire Chatfenster Text senden !?!
 
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 8. Okt 2005 14:14

Re: xFire Chatfenster Text senden !?!
 
Die neue Version mit Spyware Schutz schon ;-)

ach maaaaan :( kann mir keiner helfen ?

Warum kommt denn da nix an ??

Christian Seehase 8. Okt 2005 15:10

Re: xFire Chatfenster Text senden !?!
 
Moin Sebastian,

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

Assun 8. Okt 2005 15:20

Re: xFire Chatfenster Text senden !?!
 
jo habs grad ausgeschalten. bringt auch nix :(

Luckie 8. Okt 2005 15:31

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: Hier im Forum suchenWM_SETTEXT, Hier im Forum suchenProgramm fernsteuern, Hier im Forum suchenFindWindow, Hier im Forum suchenFindWindowEx.

Ich würde mir das Ediut für den Text übrigens direkt suchen mit MSDN-Library durchsuchenFindWindowEx und dann mit MSDN-Library durchsuchenWM_SETTEXT direkt reinschreiben. Genauso würde ich auch mit der Schaltfläche verfahren: Suchen und mit MSDN-Library durchsuchenBM_CLICK einen Klick auslösen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:57 Uhr.
Seite 1 von 2  1 2      

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