Tastaturhook auf Bildschirmschoner

[hesch21]

Hallo allerseits

tönt vermutlich im ersten Moment etwas blöd aber es geht um folgendes: Ich möchte (auch) bei laufendem Bildschirmschoner eine beliebige Tastenkombination abfangen können, ohne dass sich der Bildschirmschoner verändert, d.h. der Bildschirmschoner soll normal weiter laufen, wenn die vordefinierte Tastenkombiniation gedrückt wurde.
Es geht um die Auslösung eines stillen Alarms und genau deshalb sollte am Bildschirm keine Reaktion sichtbar sein.
Das Ganze logischerweise bei PW-geschützen und undgeschützen Screen-Savern.

Ich habe bereits versucht, aus einem Dienst einen Hook auf den Saver-DT zu setzen und den Hook über ein unsicherbares auf den Screen-Saver-Desktop gesetztes Programm zu starten. beides ohne Erfolg.

Hat jemand noch eine andere Idee?

[Delphi-Laie]

Ein Hook ist gar nicht nötig.

Im OnKeyPress, besser OnKeyDown, wird geprüft, welche Taste bzw. Tastenkombination gedrückt wurde und der Schoner eben nur optional beendet. Wurde die definierte Tastenkombination erkannt, dann verzweigt sich der Code in die Richtung des "stillen Alarms".

[himitsu]

Doch, es ist ein Hook oder Dergleichen nötig.

OnKeyPress funktioniert garnicht, da hier der Bildschirmshoner aktiv ist und nicht das eigene Programm.
Und diese Messages werden nur an das Programm gesendet, welches den Eingabefokus besitzt, hier also der Bildschirmschoner.

OK, sein Programm kann zwar ganz bequem über AsyncKeyState die gewüschte Tastenkombination pollend abfragen,
dann bekommt der Bildschirmschoner aber dennoch dieses mit und beendet sich, bzw. reagiert ebenfalls darauf.

PS: Es klingt zumindestens stark danach, daß es nicht "sein" Bildschirmschoner ist. :zwinker:

[Delphi-Laie]

Och, das Nicht-Bildschirmschoner-Programm soll die Tastendrücke überwachen?

Dann muß (?) es natürlich doch ein Hook sein. Oder ein sog. Capture, aber das weiß ich jetzt nicht genau. Assarbads Hookanleitung hilft hier sehr gut weiter.

[hesch21]

Hallo zusammen

habe vielleicht zwei wichtige Punkte vergessen:
1. Es sollte mit jedem Bildschirmschoner möglich sein. Wie es mit einem eigenen Bildschirmschoner geht, weiss ich. Ich kann aber meine Kunden nicht zwingen, meinen Bildschirmschoner zu verwenden. Ausserdem ist es nicht ganz einfach, zu verhindern, dass die Benutzer den Bildschirmschoner wechseln.
2. Ich sollte die 'Meldung' der Tastenkombination an einen Dienst bekommen.

Ich habe aber soeben eine Idee: Kann man eigentlich den aktuellen Bildschirmschoner programmtechnisch ankicken? Wenn ja, könnte ich ja sofort nach Erhalt der Tastenkombination den Screen-Saver wieder starten. Vielleicht geht das schnell genug damit es nicht auffällt.

[ConnorMcLeod]

IIRC, soll man nach der eigenen Ereignisbehandlung im Hook

Delphi-Quellcode:

CallNextHookEx

aufrufen. Wenn man das nicht macht, sondern

Delphi-Quellcode:

Result := 1;

, dann wird der Tastendruck verschluckt und es passiert nichts weiter. Damit sollte der Schoner gar nichts von einem Tastendruck mitbekommen.

Ich glaube mal gelesen zu haben, dass seit Vista/Win7 in Diensten keine Hooks mehr funktionieren.

[himitsu]

Irgendwie kann man ja systemweite Hotkeys registrieren?
Eventuell wird dieses Hotkey/Shortcut dann nicht mehr vom Windows an das aktive Programm weitergeleitet.



Ja, neustarten ist möglich, aber merken wird man es natürlich dennoch.
> Das Programm/Der Bildschirmschoner wird ja beendet und kurz danach neu gestartet.

ShellExecute und die *.scr aufrufen ... geht genauso, als wenn du im Explorer die *.scr doppelklickst.

[CCRDude]

Zitat:

Zitat von ConnorMcLeod (Beitrag 1168898)

Ich glaube mal gelesen zu haben, dass seit Vista/Win7 in Diensten keine Hooks mehr funktionieren.

Nicht mehr "so einfach", aber durchaus machbar. Die einfachste Möglichkeit, die mir einfällt: madCodeHook. Kostet zwar, spart aber unglaublich Nerven.

Wobei, "in Diensten"? Der Hook soll ja im Screensaver sein, läuft der in einem Dienst? Oder meinst Du die Behandlung aus einem Dienst heraus? Muss halt IPC mit dem Hook heran.

[hesch21]

Zitat:

Nicht mehr "so einfach", aber durchaus machbar. Die einfachste Möglichkeit, die mir einfällt: madCodeHook. Kostet zwar, spart aber unglaublich Nerven.

madCodeHook arbeitet mit einem Treiber. Ich bin soeben mit einem KeyBoardFilterTreiber, den ich trotz MS-SDK und MS-Unterstützung nicht stabil zum laufen gebracht habe und der ausserdem von allen Antivirus-Programmen als SpyWare erkannt wurde, ein gebranntes Kind. Ich werde mich deshalb hüten, für etwas (ziemlich viel) Geld auszugeben, wenn man davon nicht mal eine Demoversion haben kann.

Weshalb ich aber den Thread nochmals ausgrabe ist natürlich klar. Ich stehe immer noch an. Ich habe es zwar nach langem geschafft, herauszufinden, welcher Screen Saver überhaupt in Betrieb ist und wo der liegt. Wenn jemand interessiert, hier der Code:

Code:

{Prozess-Name aus Prozessliste auslesen}
function GetProcessName(PID: DWORD; var ProcessName, ProcessPfad: string): DWORD;
var dwReturn      : DWORD;
var hProcSnapShot : THandle;
var hModSnap      : THandle;
var pe32          : TProcessEntry32;
var ME32          : TModuleEntry32;
begin
  dwReturn := 0;
  hProcSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if hProcSnapShot <> INVALID_HANDLE_VALUE then
     begin
     pe32.dwSize := sizeof(TProcessEntry32);
     if Process32First(hProcSnapShot, pe32) then
        begin
        if PID = pe32.th32ProcessID then
           ProcessName := pe32.szExeFile;
        if ProcessName <> '' then
           begin
           while Process32Next(hProcSnapShot, pe32) do
                 begin
                 if PID = pe32.th32ProcessID then
                    begin
                    ProcessName := pe32.szExeFile;
                    hModSnap := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PE32.th32ProcessID);
                    if hModSnap <> INVALID_HANDLE_VALUE then
                       begin
                       ME32.dwSize := SizeOf(TModuleEntry32);
                       if Module32First(hModSnap, ME32) = True then
                          ProcessPfad := ME32.szExePath;
                       end;
                    CloseHandle(hModSnap);
                    break;
                    end;
                 end;
           end;
        end
     else
       dwReturn := GetLastError;
     CloseHandle(hProcSnapShot);
     end
  else
     dwReturn := GetLastError;
  result := dwReturn;
end;

{Prozessliste laden}
function GetProcessList(var ProcessList: TPIDList): DWORD;
var dwReturn      : DWORD;
var hProcSnapShot : THandle;
var pe32          : TProcessEntry32;
var j             : Cardinal;
begin
  dwReturn := 0;
  hProcSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if hProcSnapShot <> INVALID_HANDLE_VALUE then
     begin
     pe32.dwSize := sizeof(TProcessEntry32);
     j := 0;
     setlength(ProcessList, j + 1);
     if Process32First(hProcSnapShot, pe32) then
        begin
        ProcessList[j] := pe32.th32ProcessID;
        while Process32Next(hProcSnapShot, pe32) do
              begin
              Inc(j);
              setlength(ProcessList, j + 1);
              ProcessList[j] := pe32.th32ProcessID;
              end;
        end
     else
        dwReturn := GetLastError;
     CloseHandle(hProcSnapShot);
     end
  else
     dwReturn := GetLastError;
  result := dwReturn;
end;

man erhält Name und Pfad aller Prozesse und braucht nur noch nach '.SCR' zu filtern. Ist natürlich nicht alles von mir sondern 'zusammengklaut'.

Aber wie starte ich das Ding nun wieder aus dem Dienst heraus? Vorab, mit CreateProcessAsUser habe ich es auf allen drei Desktop-Varianten versucht und mit CreateProcessAsUser kenne ich mich einigermassen aus. Derselbe Dienst startet nämlich mehrere andere Prozesse, unter anderem auch auf Winlogon. Aber vermutlich muss der Screen Saver unter dem Benutzer laufen, der aktiv war, als er gestartet wurde.

Hat ja jemand noch eine Idee?

[CCRDude]

Zitat:

Zitat von hesch21 (Beitrag 1171049)

madCodeHook arbeitet mit einem Treiber. Ich bin soeben mit einem KeyBoardFilterTreiber, den ich trotz MS-SDK und MS-Unterstützung nicht stabil zum laufen gebracht habe und der ausserdem von allen Antivirus-Programmen als SpyWare erkannt wurde, ein gebranntes Kind. Ich werde mich deshalb hüten, für etwas (ziemlich viel) Geld auszugeben, wenn man davon nicht mal eine Demoversion haben kann.

Unsere Argumentation war letztendlich genau "andersrum". Zum einen verkauft Mathias Rauen die Lizenzen eben nicht "an jeden", sondern behält sich eine Prüfung vor; und wenn ich mich recht erinnere, hat er die Demo-Version sogar deshalb zurückgezogen, weil sie "mißbraucht" wurde. Dann hatten wir auch schon eigenen Code, der auch relativ gut lief - aber ein seriöses fertiges Modul ist im Zweifel bei den AV-Herstellern einfacher zu whitelisten als etwas eigenes. Wir schreiben ja selber Anti-Malware, deshalb war gerade dieser Punkt für uns doppelt wichtig, und die F/Ps waren bisher echt minimal und immer sofort gelöst. Dazu kommt, dass der Support meiner Erfahrung nach extrem vorbildlich ist.

[nahpets]

Hallo,

musst Du eine bestimmte oder eine definierbare Taste abfangen?

Wenn nein, dann ist die zu nutzende Taste die Drucktaste. Hier reagieren die Bildschirmschoner auf meinem Rechner nicht (und da bin ich optimistisch, dass das überall so ist).

Mit folgendem Code kann ein Programm den Tastendruck abfangen und eine Datei schreiben.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  protected
    procedure WMHotKey(var Message: TWMHotKey); message WM_HOTKEY;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMHotKey(var Message: TWMHotKey);
Var
  sl : TStringList;
begin
  if Message.HotKey = VK_SNAPSHOT then begin
    // Hier die gewünschte Aktion ausführen
    sl := TStringList.Create;
    sl.Text := DateTimeToStr(now);
    sl.SaveToFile('c:\temp\xxxxx.xxx');
    sl.Free;;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, VK_SNAPSHOT { Any unused number}, 0, VK_SNAPSHOT);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, VK_SNAPSHOT);
end;

end.

Probiere mal bitte aus, ob ein Dienst das auch mitbekommt, wenn ja, solltest Du anstelle des Schreibens einer Datei auch beliebige andere Aktionen ausführen können.

[hesch21]

Hallo Stephan

das geht leider aus zwei Gründen nicht: Erstens handelt es sich um eine vom Benutzer frei definierbare Tastenkomination (z.B. PageUp / PageDown) und zweites läuft der Dienst unter dem Benutzer SYSTEM ohne Handle zu einem Fenster.

Hallo CCRDude

Du hast sicher zu einem guten Teil recht. Nur ist das Teil für eine an sich relativ nicht sehr wichtige Funktionalität in userer Applikation doch ziemlich teuer. Und da möchten wir dann halt schon wenigstens zum voraus mal austesten können, ob's wenigstens so funktioniert, wie wir das benötigen und ob das Ding nicht bei der Installation bei den Antivirus-Programmen durchfällt.

[hesch21]

Ein Zwischenstand:
Ich habe mit Mathias Rauen Kontakt aufgenommen und er bezweifelt, dass mein Problem mit madCodeHook gelöst werden kann.
Aber eigentlich funktioniert es nun ... fast.
Ich habe einen Service, der mal als erstes in der Registry nachschaut, welcher Bildschirmschoner für den System-User eingetragen ist. Dann startet er ein kleines unsichtbares Programm auf dem gerade aktiven Desktop (üblicherweise beim Start des Rechners/Service der Winlogon-Desktop) und dieses Programm hooked die Tastatatur.
Die Hook-Dll meldet die Tastenkombination übrigens direkt an den Service.
Das Programm prüft mittels Timer laufend, ob ein Desktop-Wechsel stattgefunden hat. Wenn ja, wird das an den Service gemeldet. Ausserdem wird bei einem Wechsel auf den Screen-saver Desktop über die PID der Pfad des Bildschirmschoners ermittelt und ebenfalls an den Service gesandt. Dann wird der Hook abgehängt und das Programm wird beendet.
Der Service geht nun hin und startet das Programm gleich wieder auf dem neuen Desktop. Ausserdem überprüft er, ob eventuell der gemeldete Bildschirmschoner des Benutzers nicht mit jener des System-Users übereinstimmt. Wenn dem so ist, setzt er denjenigen des Systemusers auf den Zurückgemeldeten.
Wenn nun eine Tastenkombination gedrückt wird und beim Service die entsprechende Meldung eingeht und der Screen-Saver in Betrieb ist/war, schiesst der Service das Desktop-Programm ab und startet es mit einem speziellen Parameter neu. Dieser Parameter bewirkt, dass im Programm der Screen-Saver gestartet wird.
So weit so gut. Das funktioniert auch unter XP alles bestens. Nur bei W-7 nicht. Da scheint zwar alles normal zu laufen, nur der Hook auf dem Screen-saver Desktop reagiert nicht.
Ob's nun daran liegt, dass es ein 64-bit W-7 ist oder ob es unter Umständen am 3-D-Bildschirmschoner liegt (mit denen hatte ich auch schon in einem anderen Zusammenhang Mühe), konnte ich noch nicht austesten.

[hesch21]

So, ich komme nochmals.
inzwischen habe ich den 3-D-Bildschirmschoner und das 64-Bit-W-7 als Problemverursacher ausschliessen können. Ich komme aber nicht dahinter, wo der Unterschied zwischen XP und W-7 noch sein kann.
Nochmals wie das funktioniert: Ein Service startet ein unsichtbares Programm auf dem gerade aktiven Desktop (Default, Winlogon oder Screen-Saver). Dieses Programm lädt einen Hook (immer aus derselben Library). Sobald der Desktop ändert, wird der Hook beendet, der Wechsel an den Service gemeldet und das Programm beendet. Und das Spiel beginnt von vorne. Funktioniert auf allen Desktops auf XP einwandfrei.
Auf W-7 ebenso auf Winlogon und Default. Auf Screen-Saver aber ist die Sache seltsam. Das Programm wird geladen und der Hook eigentlich ebenfalls (SetWindowsHookEx in der DLL liefert ein Handle zurück). Nur eben, der Hook reagiert nicht, sobald eine Taste gedrückt wird, ist einfach der Screen-Blanker weg.

Hat jemand noch eine Idee, wo ich da noch suchen könnte?

[hesch21]

Ich bin immer noch an diesem Problem, aber der Sache einiges näher gekommen! An sich funktioniert ein Hook auf dem Bildschirmschoner-Desktop! Das Problem ist aber das, dass man bei der CallBack-Routine über CallNextHookEx die empfangenen Tastenwerte weitergeben sollte. Und wenn man das macht, reagiert natürlich der Bildschirmschoner, indem er sich beendet. Und damit ist es aus den für weiteren Hook-Empfang in meinem Programm. Es kommt also nur gerade das erste KeyDown-Event der ersten Taste. Da ich aber eine Doppeltasten-Kombination benötige, müssten zuerst zwei KeyDown- und danach zwei KeyUp-Events der richtigen Tastenkombination kommen.
Nun habe ich folgende Routine geschrieben:

Code:

function CallBackDelHook(Code: Integer; wParam: WPARAM; lParam:LPARAM): LRESULT; stdcall;
var SendStr : string;
var Res     : boolean;
var HiC     : DWORD;
begin
 Res := True;
 if code = HC_ACTION then
    begin
    if Erster = 0 then                {noch nichts}
       begin
       if (wParam = WM_KEYDOWN) then  {nur wenn Key Down}
          begin
          HiC := PKBDLLHookInfo(lParam).vkCode;
          if (HiC = TCode1) or (HiC = TCode2) then
             begin
             Erster := HiC;
             Res    := False;
             end;
          end;
       end
    else                             {bereits einer da}
       begin
       if (wParam = WM_KEYDOWN) then  {nur wenn Key Down}
          begin
          HiC := PKBDLLHookInfo(lParam).vkCode;
          if (HiC = TCode1) or (HiC = TCode2) then
             begin
             Zweiter := HiC;
             if Erster <> Zweiter then
                begin
                SendStr := 'Hook ' + format('%3d', [Erster]) +  ' ¦ ' + format('%3d', [Zweiter]);
                AssignFile(filno, Pfad + 'AMTest.log');
                Append(filno);
                Writeln(filno, TimeToStr(Now) + ' ' + SendStr);
                CloseFile(filno);
                Res    := False;
                end;
             end;
          end
       else                        {Key up und ausgelöst}
          begin
          if (Zweiter <> 0) and (Erster <> Zweiter) then
             Res    := False;
          end;
       end;
    end;
{ if Res = True then
    Result := CallNextHookEx(0, Code, wParam, lParam)
 else
    Result := 0;     }
end;

Die Idee: Die Tasten nicht weiter geben, wenn sie zur gewünschten Kombination gehören. Das wird über das Flag 'Res' gesteuert. Aber funktionieren tut es nicht. Wenn ich die unten auskommentierten Zeilen aktiviere, habe ich wieder den Effekt, dass mir der Bildschirmschoner nach einem Hookevent aktiviert wird. Wenn ich es aber so laufen lasse wie oben, dann funktioniert das Ganze mit dem Schönheitsfehler, dass sich danach der Bildschirmschoner nur noch mit der Maus beenden lässt.

Irgendwo mach ich einen Überlegungsfehler, seh ihn aber nicht.

[hesch21]

Hab's selbst gefunden!
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
If the hook procedure processed the message, it may return a nonzero value to prevent the system from passing the message to the rest of the hook chain or the target window procedure.

Also einfach Result := 1; (oder irgend ein anderer Wert <> 0)

Und es funktioniert !!!!