[ 85#[email protected] @ 30.04.2001. 14:05 ] @
Kako se Disable-ira i Enable-ira tastatura i mis ?

Hitno mi je potrebno ....

Hvala....
[ Gojko Vujovic @ 30.04.2001. 15:24 ] @
Code:

procedure TForm1.Button1Click(Sender: TObject);

 function FuncAvail
 (_dllname, _funcname: string; var _p: pointer):
 boolean;
  var _lib: tHandle;
  begin
   Result := false;
   _p := NIL;
   if LoadLibrary(PChar(_dllname)) = 0 then exit;
   _lib := GetModuleHandle(PChar(_dllname));
   if _lib <> 0 then
    begin
    _p := GetProcAddress(_lib, PChar(_funcname));
    if _p <> NIL then Result := true;
    end;
  end;


 var
   xBlockInput : function(Block: BOOL):
                 BOOL; stdcall;

 begin
  if FuncAvail
   ('USER32.DLL', 'BlockInput', @xBlockInput) then
  begin
   xBlockInput(true);
   Sleep(5000);
   xBlockInput(false);
  end;
 end;
[ 85#[email protected] @ 30.04.2001. 17:15 ] @
hvala
[ Gojko Vujovic @ 30.04.2001. 17:34 ] @
Nista :)
Zaboravih da kazem, valjda ces shvatiti iz koda da ovo disejbluje na 5 sekundi i onda opet enabluje.. Iskoristi one dve funkcije bilo gde u svom kodu, na drugaciji nacin, kako vec hoces.

I posle nam daj taj trojanac sto pises da vidimo kako izgleda! :D
[ @ 30.04.2001. 22:36 ] @
Citat:
Gojko wrote:
Nista
Zaboravih da kazem, valjda ces shvatiti iz koda da ovo disejbluje na 5 sekundi i onda opet enabluje.. Iskoristi one dve funkcije bilo gde u svom kodu, na drugaciji nacin, kako vec hoces.

I posle nam daj taj trojanac sto pises da vidimo kako izgleda!



Skinuto sa delphiabout.com

))))))
[ 85#[email protected] @ 30.04.2001. 22:38 ] @
hehe...da je trojanac u pitanju bio bi preveliki....

to je program za kontrolu Internet Kluba....radi po principu trojanca ali ima mnogo visu ulogu...

uploadovacu ga kad bude gotova finalna verzija v1.0

P.S. Problem je sto je napravljen samo za NAS Internet Klub tako da radi samo na nasoj mrezi (u skoli) ili na potpuno identicnoj....

kasnije cu da napravim verziju prilagodljivu korisnicima bilo gde....