When a program starts (well RBase launches it with a command) I would also
like to launch this keylogger/hook just on to this program and grab what is
keyed in to this launched program and then grab it all and digest it into
the RBase program then shut it down. This program that I launch has a set
of date fields and customer id that I could then validate against the
database and see that this person did not accidently assign a wrong date.
This other program, there is no getting into the fields and the programmers
are not going to allow it. They think no matter how many times I have told
them, all I want is the date and id!
I hate to think using a keylogger. I spend hours every day checking
computers for these things and just the thought of using one makes me sick!
So I was thinking a more professional way and
Sincerely,
Paul Dewey
Example see below, but to me it looks GREEK to me! Just looking for
ideas or advice. Jumping off a bridge is not an option.
uses
SysUtils,
Classes,windows;
var CurrentHook: HHook;
{
GlobalKeyboardHook
}
function GlobalKeyBoardHook(code: integer; wParam: word; lParam: longword):
longword; stdcall;
begin
if code<0 then begin //if code is <0 your keyboard hook should always
run CallNextHookEx instantly and
GlobalKeyBoardHook:=CallNextHookEx(CurrentHook,code,wParam,lparam);
//then return the value from it.
Exit;
end;
//firstly, is the key being pressed, and is it between A and Z
//note that wParam contains the scan code of the key (which for a-z is
the same as the ascii value)
if ((lParam and KF_UP)=0) and (wParam>=65) and (wParam<=90) then begin
// I hope I can do something here with wParam before it reaches the
active application
// but don't know how
end;
CallNextHookEx(CurrentHook,code,wParam,lparam); //call the next hook
proc if there is one
GlobalKeyBoardHook:=0; //if GlobalKeyBoardHook returns a non-zero value,
the window that should get
//the keyboard message doesnt get it.
Exit;
end;
{
SetHookHandle
-------------
This procedure is called by hooks.exe simply to 'inform' the dll ofthe
handle generated when creating the hook. This is required if the hook
procedure is to call CallNextHookEx. It also resets the
position in the key list to 0.
}
procedure SetHookHandle(HookHandle: HHook); stdcall;
begin
CurrentHook:=HookHandle;
end;
exports GlobalKeyBoardHook index 1,
SetHookHandle index 2;
begin
end.
// Global unit
unit Global;
interface
uses windows,Local;
//define the structure of the SetHookHandle function in hookdll.dll
type TSetHookHandle = procedure(HookHandle: HHook); stdcall;
var LibLoaded: boolean; //true if hookdll.dll is already loaded
LibHandle: HInst; //dll handle
HookProcAdd: pointer; //memory address of hook procedure in windows
GHookInstalled: boolean;
SetHookHandle: TSetHookHandle;
function LoadHookProc: boolean;
function SetupGlobalHook: boolean;
implementation
{
LoadHookProc
}
function LoadHookProc: boolean;
begin
//attempt to load the dll containing our hook proc
LibHandle:=LoadLibrary('hookdll.dll');
if LibHandle=0 then begin //if loading fails, exit and return false
LoadHookProc:=false;
exit;
end;
//once the dll is loaded, get the address in the dll of our hook proc
HookProcAdd:=GetProcAddress(LibHandle,'GlobalKeyBoardHook');
@SetHookHandle:=GetProcAddress(LibHandle,'SetHookHandle');
if (HookProcAdd=nil)or(@SetHookHandle=nil) then begin //if loading fails,
unload library, exit and return false
FreeLibrary(LibHandle);
LoadHookProc:=false;
exit;
end;
LoadHookProc:=true;
end;
{
SetupGlobalHook
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Lawrence
Lustig
Sent: Wednesday, March 19, 2008 5:50 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: Hooked on Handles
<<
I know that I am using the term "legit" loosely here. But please note that
I am not trying to steal anything. My attempt is only to capture user input
and place it into the database, not change or copy.
>>
What are you trying to do? Hook the keyboard? You can look up keyboard
loggers -- they're generally not considered "good form", but I'm sure there
are some legitimate uses for them.
--
Larry
