keylogger

سلام
من پروژه اي دارم كه شامل برنامه اي مي شه كه بايد كليد هاي ثبت شده در ويندوز را ثبت كرده و آن را ذخيره كند.
ممنون مي شم من را در اين پروژه ياري دهيد.

کد:

---

http://www.vbfrance.com/codes/GESTIONNAIRE-SAUVEGARDES-TOMB-RAIDER_40237.aspx

---

سلام دوست عزيز


من كاملا منظور ت رو نفهميدم ولي اگه مي‌خواي از كليدهاي كيبرد استفاده كني مثل (f1,f2, ....)


روي فرم دو بار كليك كن تا وارد صفحه كد نويسي بشي بعد از كامبو بالا سمت راست برو و key up انتخاب كن

بعد كدهاي زير را تايب كن مثلا مي‌خواهيم بجاي دكمه ذخيره از f2

استفاده كنيم دستور زير رو بايد بنويسي

If KeyCode = vbKeyF2 Then cmdSave_click

اميدوارم منظورت همين باشه

نه منظورش دقیقا مفهومیه به نام Hooking یا Hook کردن کی برد. برای این کار چند تا API وجو دارند که پیش پردازش ورودی کی برد رو قبل از ویندوز در اختیار نرم افزار می زارن:

کد:

---

Option Explicit
Public hKbdHook As Long
Private Const WH_KEYBOARD_LL As Integer = 13
Private Const HC_ACTION As Integer = 0
Private Const WM_KEYDOWN As Long = &H100
Private Const WM_KEYUP As Long = &H101


Private Type KBDLLHOOKSTRUCT
    vkCode As Integer
    scanCode As Integer
    flags As Integer
    time As Integer
    dwExtraInfo As Integer
    End Type


Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long


Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long


Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    Public AppIsActive As Boolean

---