Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi In MSN Fenster schreiben (https://www.delphipraxis.net/86669-msn-fenster-schreiben.html)

Peter.K 17. Feb 2007 14:10


In MSN Fenster schreiben
 
hi also ich würde gerne wissen wie man in ein msn fenster schreiben kann also ich will ein msn addon erstellen das automatische nachrichten sendet. wenn jemand grad abwesent ist und wird trotzdem angeschrieben dann soll eine automatische antwort erfolgen. wie kann ich das realisieren?

TonyR 17. Feb 2007 14:59

Re: In MSN Fenster schreiben
 
Kann man bei MSN nicht auch einfach einen Satz für jeden Status hineinschreiben, der beim anderen Angezeigt wird, wenn der zugehörige Status eingestellt ist? Bei ICQ geht das...

Man kann das Handle von Komponenten aus anderen Fenstern bekommen (glaub ich zumindest...ich weis aber nicht, wie so was geht... Suche könnte Aufschluss geben).
Alternativ würde mir einfallen einfach die Tastenanschläge zu simulieren, wobei das Fenster dann aber eben aktiv sein muss...
Es schreibt bestimmt noch mal jemand mit nem besseren Vorschlag *g*

Peter.K 17. Feb 2007 15:21

Re: In MSN Fenster schreiben
 
mmmhhh trotzdem danke für deine antwort

p0w3r5tr34m3r 17. Feb 2007 15:36

Re: In MSN Fenster schreiben
 
suche mal nach FindWindow und SendMessage..
Vielleicht geht das auch mit MSN, bei meinem ICQ klappt es zumindest =)

Mit freundlichen Grüßen
p0w3r5tr34m3r

Peter.K 17. Feb 2007 15:42

Re: In MSN Fenster schreiben
 
hättest du vieleicht ein codebeispiel?

DP-Maintenance 17. Feb 2007 16:22

DP-Maintenance
 
Dieses Thema wurde von "sakura" von "Internet / LAN / ASP.NET" nach "Windows API / MS.NET Framework API" verschoben.
Passt etwas besser :)

p0w3r5tr34m3r 17. Feb 2007 16:27

Re: In MSN Fenster schreiben
 
Delphi-Quellcode:
var
  WindowID: integer;
  WindowText: array[0..255] of Char;
begin
  WindowID := FindWindow(nil, nil);
  while WindowID <> 0 do begin
    If IsWindowVisible(WindowID) and (GetWindow(WindowID, GW_OWNER) = 0) then begin
      GetWindowText(WindowID, @WindowText, SizeOf(WindowText));
      ShowMessage(WindowText);
    end;
  end;
end;
Da werden dir alle sichtbaren Fenster angezeigt und du kannst dann über die WindowID das Fenster "fokusieren" und dann eine Zeichenfolge über SendMessage in das Editfeld schreiben lassen.

Mit freundlichen Grüßen
p0w3r5tr34m3r

P.S.: in der Code Library müsste der Code eigentlich auch stehen ;-)

Peter.K 25. Feb 2007 12:20

Re: In MSN Fenster schreiben
 
wenn ich deinen code anwende um die fenster anzuzeigen bleibt alles einfach nur hengen.......kannst du nicht mal bidde deinen ganzen source posten also auch wie er das icq fenster findet?


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:18 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