PC-Aktionen an mehrere PCs im Netzwerk senden

[1ceman]

ja hab ich wohl falsch verstanden...hatte mich zwar irgendwie gewundert, aber mir gedacht, dass ich bestimmt falsch liege...

das Problem ist nur, dass es zwar jetzt läuft, also es kommen keine Fehlermeldungen mehr, aber es tut sich sonst auch net viel...

[Relicted]

:gruebel: mit der fehlerbeschreibung kann ich leider nicht viel anfangen... da wird dann hilfe schwer... zip mal deinen quellcode und lad ihn hoch dann kann man mal reinschauen..

[1ceman]

ok ist auch etwas komisch beschrieben, ich wollte nur sagen, dass es nicht funktioniert, also die Tastatue eingabe wird nicht in das Memo geschrieben.

So hab mal das ganze Projekt hochgeladen...Danke für die Hilfe

[Relicted]

ok fehler gefunden...

Delphi-Quellcode:

function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
//es ist ebenfalls moeglich die Bearbeitung an eine Bedingung zu knuepfen
//it's possible to call CallNextHookEx conditional only.
  Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
  case nCode < 0 of
    TRUE: exit; //wenn code kleiner 0 wird nix gemacht
                //if code smaller 0 nothing has to be done
    FALSE:
      begin
      sendmessage(WindowHandle, WM_KeyLogMessage, wParam, lParam);

in dem sendmessage stand HookHandle... is natürlich bullshit... muss windowhandle heißen...

ausserdem ist der

Delphi-Quellcode:

    HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc, HInstance, 0);

hook nur lokal (innerhalb deiner anwendung...
bitte wie vorhin beschrieben auf

Delphi-Quellcode:

    HookHandle := SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardHookProc, HInstance, 0);

ändern und die message als const = 13 deklarieren... dann geht alles !


gruß
reli

[1ceman]

erst nochmal vielen dank ;)

Hab das HookHandle in sendmessage zu WindowHandle geändert.
hab "HookHandle := SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardHookProc, HInstance, 0);" eingefügt(ersetzt)

Nur das "ändern und die message als const = 13 deklarieren... dann geht alles ! " versteh ich net...
meinst du mit message WM_KeyLogMessage??

hab das jetzt einfach mal so gemacht (in der dll):

Delphi-Quellcode:

const
  WM_KeyLogMessage: Cardinal = 13;

aber leider funktioniert es immer noch net, oder ich bin einfach zu dumm...

[Relicted]

neeeeee....

Delphi-Quellcode:

const
  WH_Keyboard_LL = 13;

wie ich vor ein paar posts schon geschrieben habe...

gruß
reli

[1ceman]

asoooo...jetzt verstehe ich das ;)
Und es funktioniert...*freu*
Nochmal vielen vielen dank für deine Hilfe und Mühe...

Hab auch noch das Uninstall richtig gemacht und nen MouseHook eingebaut...funktionier alles super.

[Relicted]

;-)

kein problem - dafür gibts dieses forum :-)


gruß
reli

[1ceman]

so hab irgendwie noch nen kleines problem mit dem auswerten von wParam und lParam und ncode.
Also hab versucht xpos und ypos auszugeben, was auch funktioniert, aber nur solange die maus über der Form ist...
Ich hab folgenden Code in die funktion mousehookproc gepackt:

Delphi-Quellcode:

setprop(WindowHandle, 'mous_xpos', PMOUSEHOOKSTRUCT(lParam)^.pt.x);
setprop(WindowHandle, 'mous_ypos', PMOUSEHOOKSTRUCT(lParam)^.pt.y);

#

und in der form hab ich diese funtion:

Delphi-Quellcode:

procedure TF_Netz_Server.GotKeyMessage( var msg : TMessage );
var li:longint;
begin
li := longint(getprop(hwnd, 'mous_xpos'));
//getprop(hwnd, 'keyb_ncode');
M_History.Lines.Add(inttostr(li));
M_History.Lines.Add(inttostr(msg.lParam));
end;

Und ich vweiß auch nicht genau wie ich herausbekommen soll welche taste gedrückt wurde.

[Relicted]

genau wie WH_Keyboard und WH_Keyboard_LL verhält sich das ganze mit der maus... die messages ohne _LL sind nur lokal - also innerhalb des programms.

take that:

Delphi-Quellcode:

const
  WH_Mouse_LL = 14;

gruß
reli