AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Tastaturhook auf Bildschirmschoner

Ein Thema von hesch21 · begonnen am 29. Mai 2012 · letzter Beitrag vom 25. Jan 2013
Antwort Antwort
CCRDude

Registriert seit: 9. Jun 2011
678 Beiträge
 
FreePascal / Lazarus
 
#1

AW: Tastaturhook auf Bildschirmschoner

  Alt 31. Mai 2012, 12:27
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.
  Mit Zitat antworten Zitat
hesch21

Registriert seit: 31. Aug 2004
Ort: Basel
114 Beiträge
 
Delphi XE2 Enterprise
 
#2

AW: Tastaturhook auf Bildschirmschoner

  Alt 15. Jun 2012, 14:38
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?
Heinz Schneider

Geändert von hesch21 (15. Jun 2012 um 14:41 Uhr)
  Mit Zitat antworten Zitat
CCRDude

Registriert seit: 9. Jun 2011
678 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Tastaturhook auf Bildschirmschoner

  Alt 18. Jun 2012, 09:00
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.
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#4

AW: Tastaturhook auf Bildschirmschoner

  Alt 18. Jun 2012, 09:37
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.

Geändert von nahpets (18. Jun 2012 um 09:51 Uhr) Grund: Quelltext so angepasst, dass explizit auf die Drucktaste abgefragt wird (für den Fall, dass mehrere Hotkey im System registir
  Mit Zitat antworten Zitat
hesch21

Registriert seit: 31. Aug 2004
Ort: Basel
114 Beiträge
 
Delphi XE2 Enterprise
 
#5

AW: Tastaturhook auf Bildschirmschoner

  Alt 18. Jun 2012, 11:05
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.
Heinz Schneider
  Mit Zitat antworten Zitat
hesch21

Registriert seit: 31. Aug 2004
Ort: Basel
114 Beiträge
 
Delphi XE2 Enterprise
 
#6

AW: Tastaturhook auf Bildschirmschoner

  Alt 22. Jun 2012, 09:12
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.
Heinz Schneider
  Mit Zitat antworten Zitat
hesch21

Registriert seit: 31. Aug 2004
Ort: Basel
114 Beiträge
 
Delphi XE2 Enterprise
 
#7

AW: Tastaturhook auf Bildschirmschoner

  Alt 25. Jun 2012, 16:12
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?
Heinz Schneider
  Mit Zitat antworten Zitat
Antwort Antwort

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:31 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-2025 by Thomas Breitkreuz