delphi ile tuş takibi , çözülmedi :(

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb delphi ile tuş takibi , çözülmedi :(

Bu konudaki kullanıcılar: 1 misafir

11
Cevap 1063
Tıklama 0
Öne Çıkarma

1. sayfa

delphi ile tuş takibi , çözülmedi :(

Cevap Yaz

sherlockholmes_1980

20 yıl

Yüzbaşı

Konu Sahibi

selam arkadaşlar ,

delphi ile yapmakta olduğum programda şöyle bir durum var: form gizli , ancak basılan tuşları takip etmem gerekiyor. kısaca bir keylogger tarzı bir program , form aktif değilken basılan tuşları nasıl yakalayabilirim?

< Bu mesaj bu kişi tarafından değiştirildi sherlockholmes_1980 -- 13 Eylül 2005, 12:54:50 >

METAL

20 yıl

Yarbay

form aktif olmak zorunda sadece visible:=flase; olacak

ama key logger nasıl yağılır biraz düşünmek lazım pek yasal olmadığından yardım almakta kolay olmuyor bir sürü delphi sitesi var ama orda bunları yazmayı bie düşünme

Bu mesaja 1 cevap geldi.

ender_arslanturk

20 yıl

Teğmen

Merhaba

Olay çok basit örnek olarak size boş bir projedeki forma edit ve label nesnesi koyun...

Sonra editin keypress olayına

Label1.caption:=inttostr( key ( ord ) ) ;

yazın sonucu görün...

Kolay Gelsin...

Bu mesaja 1 cevap geldi.

METAL

20 yıl

Yarbay

eksik yazmışa benziyorsun bi daha kontrol etsen iyi olacak

Bu mesaja 1 cevap geldi.

ender_arslanturk

20 yıl

Teğmen

Label1.caption:=inttostr( ord ( key ) ) ; kafam karışık birde böyle denermisin...

Bu mesaja 2 cevap geldi.

METAL

20 yıl

Yarbay

bu sadece uş kodlarını gösteriyor eh bi bakım key logger sayılır ama bu hiç bişe işe yaramaz

olsun yinede sağolasın ilgilendiğin için

Bu mesaja 1 cevap geldi.

ender_arslanturk

20 yıl

Teğmen

Kardeş sende beyenmiyon yahu...

Eh biraz geliştirmen gerekecek ben sadece bildiğimi paylaştım...

sherlockholmes_1980

20 yıl

Yüzbaşı

Konu Sahibi

quote:

Orjinalden alıntı: ender_arslanturk

Label1.caption:=inttostr( ord ( key ) ) ; kafam karışık birde böyle denermisin...

ilgine tşekkür ederim. ama bu kodlar sadece form aktif iken basılan tuşları yakalıyor , ben uygulama min. iken tuşları yakalamk istiyorum

http://www.planet-source-code.com/URLSEO/vb/scripts/ShowCode!asp/txtCodeId!1616/lngWid!7/anyname.htm

uygulamasını düzenledim ancak ;

-program türkçe karakterleri görmüyor
-num lock açık iken num lock'tan girilen karakterleri görmüyor
-birden fazla tuşa aynı anda basma durumunda başarılı sonuç vermiyor

Bu mesaja 1 cevap geldi.

drony

20 yıl

Yarbay

global hotkey ile mümkün
bir ara böyle bi kod yazmıştım...
yakın zamanda kodları eklerim ..

< Bu mesaj bu kişi tarafından değiştirildi drony -- 13 Eylül 2005, 18:40:12 >
Bu mesaja 1 cevap geldi.

sherlockholmes_1980

20 yıl

Yüzbaşı

Konu Sahibi

quote:

Orjinalden alıntı: drony

global hotkey ile mümkün
bir ara böyle bi kod yazmıştım...
yakın zamanda kodları eklerim ..

binbaşım , kodları sabırsızlıkla bekliyorum. bu arada , programı düzenleme çalışmalarım sürüyor.

kolay gelsin.

drony

20 yıl

Yarbay

timer'ın interval değeri '1' olacak!
bu basit bir örnek sadece harfler. rakam ve sembolleride sen yap artık:) uğraşmadan emek harcamadan bir yerlere gelinmez..

procedure TForm1.Timer1Timer(Sender: TObject); 
  var 
  tus_say, tus : Integer; 
  begin 
  tus_say := 0; 
  repeat 
  tus := GetAsyncKeyState(tus_say); 
  if tus = -32767 then 
  begin 
  if (tus_say >= 65) and (tus_say <= 90) then 
  Memo1.Text := Memo1.Text + Chr(tus_say); 
  end; 
  inc(tus_say); 
  until tus_say = 255; 
  end;

Bu mesaja 1 cevap geldi.

sherlockholmes_1980

20 yıl

Yüzbaşı

Konu Sahibi

albayım , ilgine teşekkür ederim... diğer karakterler ve rakamlar için gerekli düzenlemeleri yapmayı deniyeyim..

kolay gelsin.

saygılarımla.

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb delphi ile tuş takibi , çözülmedi :(