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 1071
Tıklama 0
Öne Çıkarma

1. sayfa

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

Cevap Yaz

sherlockholmes_1980

20 yıl (954 mesaj)

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?

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

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

METAL

20 yıl (4075 mesaj)

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 (749 mesaj)

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 (4075 mesaj)

Yarbay

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

Bu mesaja 1 cevap geldi.

ender_arslanturk

20 yıl (749 mesaj)

Teğmen

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

Bu mesaja 2 cevap geldi.

METAL

20 yıl (4075 mesaj)

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 (749 mesaj)

Teğmen

Kardeş sende beyenmiyon yahu...

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

sherlockholmes_1980

20 yıl (954 mesaj)

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 (20565 mesaj)

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 (954 mesaj)

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 (20565 mesaj)

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 (954 mesaj)

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 :(