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

Keyboard and Mouse Disable/Enable

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

[ Pregleda: 4184 | Odgovora: 5 ] > FB > Twit

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 - pre 279 meseci
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...
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Keyboard and Mouse Disable/Enable30.04.2001. u 15:24 - pre 279 meseci
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;
 
Odgovor na temu

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 - pre 279 meseci
hvala
I'm taking over a TV Network...
Finish up honey and get to sleep...
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Keyboard and Mouse Disable/Enable30.04.2001. u 17:34 - pre 279 meseci
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
 
Odgovor na temu

vuja




Profil

icon Re: Re: Keyboard and Mouse Disable/Enable30.04.2001. u 22:36 - pre 279 meseci
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

))))))
 
Odgovor na temu

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 - pre 279 meseci
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...
 
Odgovor na temu

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

[ Pregleda: 4184 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

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