Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Keyboard and Mouse Disable/Enable

[es] :: Pascal / Delphi / Kylix :: Keyboard and Mouse Disable/Enable

[ Pregleda: 1507 | Odgovora: 5 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

85#D@libor
Djuric Dalibor
Panchevo

Član broj: 145
Poruke: 97
*.telekom.yu



Profil

icon Keyboard and Mouse Disable/Enable30.04.2001. u 14:05

Kako se Disable-ira i Enable-ira tastatura i mis ?

Hitno mi je potrebno ....

Hvala....
I'm taking over a TV Network...
Finish up honey and get to sleep...
30.04.2001. u 14:05 

Gojko Vujovic
Juniper Networks
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13031
*.gojko.ss.

Sajt: www.gojkovujovic.com


Profil

icon Re: Keyboard and Mouse Disable/Enable30.04.2001. u 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;
30.04.2001. u 15:24 

85#D@libor
Djuric Dalibor
Panchevo

Član broj: 145
Poruke: 97
*.telekom.yu



Profil

icon Re: Keyboard and Mouse Disable/Enable30.04.2001. u 17:15
hvala
I'm taking over a TV Network...
Finish up honey and get to sleep...
30.04.2001. u 17:15 

Gojko Vujovic
Juniper Networks
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13031
*.gojko.ss.

Sajt: www.gojkovujovic.com


Profil

icon Re: Keyboard and Mouse Disable/Enable30.04.2001. u 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. u 17:34 

vuja

*.ptt.yu
icon Re: Re: Keyboard and Mouse Disable/Enable30.04.2001. u 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

))))))
30.04.2001. u 22:36 

85#D@libor
Djuric Dalibor
Panchevo

Član broj: 145
Poruke: 97
*.telekom.yu



Profil

icon Re: Keyboard and Mouse Disable/Enable30.04.2001. u 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....
I'm taking over a TV Network...
Finish up honey and get to sleep...
30.04.2001. u 22:38 

[es] :: Pascal / Delphi / Kylix :: Keyboard and Mouse Disable/Enable

[ Pregleda: 1507 | Odgovora: 5 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.