مطلوب مساعدة في عمل برنامج إختراق

الموضوع في 'قسم فيجوال بيسك - Visual Basic 6' بواسطة Al-maher Syr, بتاريخ ‏21 يناير 2013.

  1. Al-maher Syr

    Al-maher Syr New Member

    x
    بسم الله الرحمن الرحيم
    السلام عليكم ورحمة الله وبركاته :
    أما بعد : أنا عضو جديد معكم و أتمني تقبلوني .....
    بدخل بصلب الموضوع مباشرة :p
    أنا الحين في صدد عمل برنامج إختراق وأنا عندي كود لتشغيل الكاميرا يعني من نفس الجهاز وأنا أبغى أخلي هذا الكود للتجسس.
    هذي طريقة عمل الكود
    اولا : نفتح مشروع جديد بعد ان نتوكل على الله وسوف نختار من قائمة الادوات 2 كوماند ( زرين ) وتايمر واحد ثم picture واحدة كما في الصورة التالية :



    ولا تنسى ان تغير interval الي 200 في التايمر ( timer )
    طبعا الاسماء للادوات ستكون الافتراضية

    سننتهي من التصميم الفورم الاول وهذا ما نحتاجه فقط فورم واحد كما في الصورة السابقة .. سنحتاج الي مودول واظن ان الكثير يعرف كيف يضيفه الي مشروعه .

    نبدا بالفورم لنكتب الاكواد التالية ..
    اولا سنبدا بزر command 1 ونضع فيه الكود التالي مع شرحه( زر بدء تشغيل الكام)

    كود:
    Command1.Enabled = False 'ابطال زر البدء
    Command2.Enabled = True 'تمكين زر التوقف
    'هذا الكود لتنصيب نافذة التقاط الكام
    mCapHwnd = capCreateCaptureWindow("AlsahemCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
    DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0 'الاتصال بجهاز الالتقاط وهو الكام
    Timer1.Enabled = True 'تمكين التايمر
    ثانيا : زر command2 ونضع فيه هذا الكود ( التوقف )

    كود:
    Command1.Enabled = True 'تمكين زر البدء
    Command2.Enabled = False 'ابطال زر التوقف
    Timer1.Enabled = False 'ابطال التايمر
    DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0 'قطع الاتصال باللاقط وهو الكام
    ثالثا : ننتقل الي form وفي اجراء QueryUnload ونضع هذا الكود :

    كود:
    If Command2.Enabled = False Then
    DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
    End If
    'للتاكيد على قطع الاتصال وهنا استخدمنا قاعدة شرطية
    'فلو قيمة زر التوقف خاطئ اذن ينتج قطع الاتصال بالكام
    واخيرا وليس اخيرا في حدث Timer1 سنضع هذا الكود الجميل :

    كود:
    On Error Resume Next 'مصيدة الخطا
    SendMessage mCapHwnd, GET, 0, 0 'الحصول على الفريم الحالي للكام
    SendMessage mCapHwnd, COPY, 0, 0 'نسخ الفريم الحالي الي الكلببورد
    Picture1.Picture = Clipboard.GetData 'وضع بيانات الكليبورد الي صندوق الصور الذي وضعناه
    Clipboard.Clear 'تنظيف الكليبورد
    بهذا انتهينا من الفورم تصميما وبرمجة بفضل الله ولكن تبقى علينا بعض الاكواد وسوف نضعها في المودول وهي اكواد سهلة تمتع بها :

    كود:
    Public Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

    Public mCapHwnd As Long

    Public Const CONNECT As Long = 1034
    Public Const DISCONNECT As Long = 1035
    Public Const GET As Long = 1084
    Public Const COPY As Long = 1054


    بس أنا أبغى أقسمه إلى قسمين قسم عميل وآخر للسرفر

    وبالنسبة لبرنامجي هذا هو

    هنا
    وشكراً

    ملاحظة : البرنامج غير مفتوح المصدر
     
  2. NapsTer

    NapsTer Professional

    رد: مطلوب مساعدة في عمل برنامج إختراق

    أرجو مراجعة قوانين القسم جيداً ..
     

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