مهران موسوی
چهارشنبه 11 اردیبهشت 1387, 13:19 عصر
سلام به دوستان خوب برنامه نويس ... !
بر اساس نياز يك از دوستان عزيزم ( tactools) ديروز روي يك جاسوس كيبور يا همونه Key loger وقت گذاشتم ... اخراي برنامه بود كه يهو به ذهنم رسيد به صورت يك كلاس بنويسمش و در يك يونيت قرارش بدم و در اختيار دوستان قرارش بدم تا اگر دوستان يك زماني بهش نياز داشتن ازش استفاده كنن ....
مشخصات
نام يونيت : Keybord_Spy.pas
نام كلاس : TKyebordSpy
توابع :
براي گرفتن كليد فشرده شده :
Function GetLog:String;براي غير فعال كردن مقدار بازگشتي Shift در صورت فشرده شدن كليد Shift
Procedure EnableShift(st:Boolean);براي غير فعال كردن مقدار بازگشتي Enter در صورت فشرده شدن كليد Enter
Procedure EnableSpace(st:Boolean);وي‍ژگي هاي اين كلاس :
1 ) تشخيص دقيق تمامي كليدهاي فشرده شده
2 ) تشخيص حروف كوچك و بزرگ ... دقيقا مانند متن نوشته شده
در كل چيز جالبي شده .... اگه مشكل خاصي داشت حتما اعلام كنيد ...
نكته : دوستان اگه خواستن چيزي بهش اظافه كنن بعد از اظافه كردن همين جا بزارن تا همه ازش استفاده كنن ...
بر اساس نياز يك از دوستان عزيزم ( tactools) ديروز روي يك جاسوس كيبور يا همونه Key loger وقت گذاشتم ... اخراي برنامه بود كه يهو به ذهنم رسيد به صورت يك كلاس بنويسمش و در يك يونيت قرارش بدم و در اختيار دوستان قرارش بدم تا اگر دوستان يك زماني بهش نياز داشتن ازش استفاده كنن ....
مشخصات
نام يونيت : Keybord_Spy.pas
نام كلاس : TKyebordSpy
توابع :
براي گرفتن كليد فشرده شده :
Function GetLog:String;براي غير فعال كردن مقدار بازگشتي Shift در صورت فشرده شدن كليد Shift
Procedure EnableShift(st:Boolean);براي غير فعال كردن مقدار بازگشتي Enter در صورت فشرده شدن كليد Enter
Procedure EnableSpace(st:Boolean);وي‍ژگي هاي اين كلاس :
1 ) تشخيص دقيق تمامي كليدهاي فشرده شده
2 ) تشخيص حروف كوچك و بزرگ ... دقيقا مانند متن نوشته شده
در كل چيز جالبي شده .... اگه مشكل خاصي داشت حتما اعلام كنيد ...
نكته : دوستان اگه خواستن چيزي بهش اظافه كنن بعد از اظافه كردن همين جا بزارن تا همه ازش استفاده كنن ...