هل من كود يحفظ ما كتب على الكيبورد

اخى الكريم انت مش عايز كود انت عايز برنامج key logger على العموم لعمل ذالك هتستخدم دوال ال api

داله اسمها : GetKeyState تمرر لها رقم المفتاح , تديلك حاله المفتاح -127 ,-128 اى المفتاح فى حاله ضغط

0,1 اى المفتاح فى حاله عدم الضغط .

بتعرف الداله دى الاول هكذا :

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

و لنفرض انك عايز تعرف الحرف A فى حاله ضغط ام لا :

dim s as long
s= getkeystate(clng(65))

if  s<0 then 
msgbox "A"
END IF

ليه كتبنا الرقم 65 ؟ لان ده الرقم الخاص بالرمزA كما هو معرف فى جدول المحارف ASCII

و لكل رمز ليه الرقم بتاعو .

طيب ده علشان الحرف A فقط طيب الباقى ؟ هتعمل حلقه FOR I = 0 TO 255

و فى كل لفه تقوم الداله السابقه باخذ حاله الزر فاذا كان مضغوط تمرر الرقم الى اجراء بيه مثلا :

SELECT CASE I 
CASE 65:
text1 = text1 & "A"

و هكذااااا مع الباقى  

END SELECT

و فى النهايه هتظهر الحروف اللى اتكتبت فى TEXT1

بس متنساش تضع التكرار داخل تايمر INTERVAL = 1

و بالنسبه لحفظ التكست فى ملف نصوص دى بقه سهله و مش محتاجه غير انك تعمل بحث فى المنتدى عن دروس التعامل مع الملفات .