ارسال صوره عن طريق الونسوك

هذا المثـــــال جدا رائع فيه مطلوبك ..

vbSendMail.zip

السلام عليكم

انا مش عارف أيه موضوع المشاركة السابقة لكن

ده مشروع تصوير شاشة الضحية وتنفيذ ضغطات الماوس كمان..

كنت صممته من زمان ..أيام ما كان الواحد ليه نفس يصمم الحاجات دي.

طبعا ال routine بتاع ارسال الصور محتاج تعديل ليرسل حسب سرعة الشبكة.

علي فكرة المشروع باستخدام دوال Winsock API .

طبعا انا وضعتلك المشروع بغرض التعلم وليس بغرض أنك تصمم برنامج هاك..

علي العموم أي شيء مش مفهوم أبقي اسأل فيه

لازم تجرب المشروع الأول علي أنظمة 9x و ME لأنني صممت المشروع علي تلك الأنظمة ولا تنتقل إلي XP قبل قراءة الكود جيدا لأنه ستواجهك أخطاء ..فمثلا مسار سطح المكتب في 9x,Me تجده علي المسار التالي

C:\windows\Desktop

هذا المسار غير موجود علي XP...

وهكذا...

إذا أردت مشاريع أخري أبقي أطلبها...

Screen_Capture.zip

في الاول اشكرك كل من الخ ( HnHn ) والاخ ( pharaonic ) على المباردة

ولكن يا اخواني قمت بتحميل البرامج وقمت بتطبيقها لكنها لم تعمل معي ارجوا ان تشرحوا لي الطريقة المثلى وشكرا

مشكور اخ Pharaonic_Guy على هالبرنامج الجميل

اما بالنسبة لسؤال الاخ العالم عن شرح البرنامج .. أنا غير مهتم بشرح الاكواد لأن الموضوع ما يخصني

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

تحياتي

بسم الله الرحمن الرحيم

HnHn كتب:

اما بالنسبة لسؤال الاخ العالم عن شرح البرنامج  .. أنا غير مهتم بشرح الاكواد لأن الموضوع ما يخصني

←

-- راجع ردك أخي العزيز HnHn

---------------------------------

اما بالنسبة لك أخي العالم فهذا شرح الكود الذي وضعته اتمنى أن يفيدك

'كود ارسال الصورة
'متغير لأسم لحفظ مسار الصورة
Dim sFile as String
'حقيقة أنا لا أدري لما أستعمل هذا الثابث في هذا الكود
Const MaxCunk = 4100

' الفنكشن اللي حترسل بيها الصورة و بما أنها من نوع Boolean
'فانها سترجع قيمة صحيحة اذا تم ارسال الصورة 
Public Function SendPicture(FName as string) as Boolean
'هذا المتغير هو الذي سيستقبل الصورة التي سيتم ارسالها
Dim PictureChunk as String

sFile = Freefile
'أرسال كلمة openfile
'وسنرى لاحقا في كود الأستقبال في ماذا ستنفعنا
Winsock.SendData "OpenFile"
doevents
'فتح الصورة 
Open FName for Binary As #sFile
'ووضع محتواها في المتغير PictureChunk
while Not EOF(sFile)
PictureChunk = Input(MaxChunk,#sFile)
'أرسال المتغير الذي طبعا يحتوي على الصورة
Winsock.SendData = PictureChunk
DoEvents
wend
'أغلاق الملف
Close #sFile
'نرجع قيمة الدالة الى True

SendPicture = True
'نرسل كلمة Close
Winsock.SendData "Close"
'Picture was Sent
End Sub

' هنا كود الأستقبال
To Receive
في حدث DataArrival
Winsock.....DataArrival.....()
'أعلان بعض المتغيرات
Dim StrData as string,Def_Path as String,sFile as String
'أستقبال البيانات المرسلة من طرف الجهاز الآخر ووضعها في المتغير strData
Winsock.GetData StrData,vbstring
'عمل حقة Select 
'لفحص ما يأتي من الجهاز الآخر
Select Case Trim$(strData)
'و هنا كما قلنا سابقا سنعرف لماذا أرسلنا كلمة Open
'أذا كانت الكلمة المرسلة هي Open
Case "OpenFile"
'نقوم بفتح صورة في الجهاز و التي سنضع فيها محتوى الصورة القادمة
sFile = FreeFile
Def_Path = App.Path & "\Picture.bmp"

Open Def_Path for Binary As #sFile '<-- Open the File
'اما اذا كانت الكلمة القادمة هي Close
' فسنقوم بأغلاق الصورة
Case "Close"

Close #Sfile '<-- Close the File
'اما غير ذلك
Case Else
'نقوم بوضع البيانات القادمة في الصورة
Put #sFile,,StrData '<-- Write tio the File

End Select
end Sub