Senden Von Strings an andere Programme

[Maddin1]

hehe hoffe ich auch^^

Aber trotzdem nochmal und schon einmal vielen vielen Dank!
Ich hätte sonst keine Ahnung wie ich das sonst hätte machen sollen....

[toms]

Zitat von Maddin1:

hehe hoffe ich auch^^

Aber trotzdem nochmal und schon einmal vielen vielen Dank!
Ich hätte sonst keine Ahnung wie ich das sonst hätte machen sollen....

Es gab einen kleinen Fehler in GetICQChatHandle. Neue GetICQChatHandle:

Delphi-Quellcode:

 // Das Handle vom ICQ Chat Control ermitteln

function GetICQChatHandle(wndICQChat: HWND; DisplayName: string): HWND;
const
  ICQ_WIN_CLASS = '__oxFrame.class__';
  ICQ_MainWIN_Caption = 'ICQ';
var
  wnd: HWND;
  htmlDoc: IHTMLDocument2;
  Params: OleVariant;
  ClassName, captionName: string;
begin
  Result := 0;

  SetLength(ClassName, 255);
  SetLength(ClassName, GetClassName(wndICQChat, PChar(className), Length(className)));

  SetLength(captionName, GetWindowTextLength(wndICQChat));
  SetLength(captionName, GetWindowText(wndICQChat, PChar(captionName), Length(captionName) + 1));

  if (className = ICQ_WIN_CLASS) then // Falls ICQ Fenster Klasse übereinstimmt
    if (captionName <> 'ICQ') then // aber nicht das Hauptfenster
    // Falls ein Displayname angegeben ist muss er übereinstimmen
      if (DisplayName = '') or (Pos('DisplayName', captionName) <> 0) then
      begin
        wnd := FindWindowEx2(wndICQChat, ICQ_WIN_CLASS, 2);
        if wnd <> 0 then
        begin
     // Internet Explorer_Server vom Chatfenster suchen
          Result := FindWindowEx(wnd, 0, 'Internet Explorer_Server', nil);
        end;
      end;
end;

[Maddin1]

ahhh cool! es funzt!!! bhooaa dankeschööön.
na das ist ja cool! vielen vielen dank!

[Maddin1]

hmm mist, gibt aber trotzdem noch ein problem.

wenn ich diese Aktualisierung mache, sprich GetICQChatText in einer Schleife immer wiederholen lasse, dann stürzt das Programm nach gewisser Zeit ab mit der Fehlermeldung, zu viele Exceptions, die auf die Exe zugreifen.
also so sinngemäß^^


und kann ich jetzt einfach mit wm_settext, einen text an icq senden?

[toms]

Zitat von Maddin1:

hmm mist, gibt aber trotzdem noch ein problem.

wenn ich diese Aktualisierung mache, sprich GetICQChatText in einer Schleife immer wiederholen lasse, dann stürzt das Programm nach gewisser Zeit ab mit der Fehlermeldung, zu viele Exceptions, die auf die Exe zugreifen.
also so sinngemäß^^

Werde ich bei mir noch überprüfen.

Zitat:

und kann ich jetzt einfach mit wm_settext, einen text an icq senden?

Suche das Edit, setze den Text und sende den Text ab (Klick oder Enter simulieren)

[Maddin1]

Zitat:

Suche das Edit, setze den Text und sende den Text ab (Klick oder Enter simulieren)

naja da bestand ja eigentlich zuerst mein hauptproblem....
wie "spricht" man denn das an? kenn mich mit diesem Thema eigentlich überhaupt nicht aus weißt^^
könnte dir nichtmal deinen Quelltext richtig erklären, was was macht. sorry

<--aber übt dran^^

[toms]

Zitat von Maddin1:

Zitat:

Suche das Edit, setze den Text und sende den Text ab (Klick oder Enter simulieren)

naja da bestand ja eigentlich zuerst mein hauptproblem....
wie "spricht" man denn das an? kenn mich mit diesem Thema eigentlich überhaupt nicht aus weißt^^
<--aber übt dran^^

FindWindow, FindWindowEx.
Durchsuche mal das Forum. Es gibt dazu genügend Beiträge.

[Maddin1]

hehe naja soweit bin ich ja auch schon, aber eigentlich genau wegen dieser Sache hab ich mich ja hier an dich/euch gewendet. Wegen dem Senden eines Textes...das Eingabefeld heißt nicht RichEdit20A oder so, also, ich wüsste nicht an was ich den text senden sollte mit Wm_Settext über FindWindow und FindwindowEx.
Und die bereits vorhandenen Beiträge konnten diese Frage leider auch nicht beantworten..

[toms]

[quote="Maddin1"]das Eingabefeld heißt nicht RichEdit20A oder so, also, ich wüsste nicht an was ich den text senden sollte mit Wm_Settext über FindWindow und FindwindowEx.
quote]

Es handelt sich auch um einen "Internet Explorer_Server". D.h du musst den Text ins IHTMLDocument2 schreiben.

[Maddin1]

Zitat:

Es handelt sich auch um einen "Internet Explorer_Server". D.h du musst den Text ins IHTMLDocument2 schreiben.

Habe das mal gemacht, habe die Funtion GetICQChatText in die Prozedur SetICQChatText umgewandelt,
nur leider wandelt er so das falsche Edit in meinen Text um.