Al-maher Syr

New member

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته :
أما بعد : أنا عضو جديد معكم و أتمني تقبلوني .....
بدخل بصلب الموضوع مباشرة :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


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

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

هنا
وشكراً

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

المواضيع المشابهة


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

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

يرجى في حال لديك أي استفسار عن (الفيجوال بيسك ) أرجو مراسلة احدى مشرفين المنتدى على الخاص
 

عودة
أعلى