Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi sherlockholmes_1980 -- 13 Eylül 2005, 12:54:50 > |
Hızlı 
Bildirim
delphi ile tuş takibi , çözülmedi :(
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Apple Watch Series 10 GPS + Cellular 42 mm Gümüş Rengi Kasa Akıllı Saat ve Bulut Mavisi Spor Loop - Standart. Fitness Takibi, EKG Uygulaması, Hep Açık Retina Ekran, Karbon Nötr : Amazon.com.tr: Elektronik
https://www.amazon.com.tr/dp/B0DGJVQQMP?th=1
16 sa. önce paylaşıldı
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
1 Misafir - 1 Masaüstü
Giriş
Mesaj
-
-
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
-
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... -
eksik yazmışa benziyorsun bi daha kontrol etsen iyi olacak
-
Label1.caption:=inttostr( ord ( key ) ) ; kafam karışık birde böyle denermisin... 
-
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
-
Kardeş sende beyenmiyon yahu...
Eh biraz geliştirmen gerekecek ben sadece bildiğimi paylaştım...
-
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
-
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 > -
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. -
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; -
albayım , ilgine teşekkür ederim... diğer karakterler ve rakamlar için gerekli düzenlemeleri yapmayı deniyeyim..
kolay gelsin.
saygılarımla.
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
