عندي FORM فيها Pictuer Box بيتعرض فيها صور وعندي نفس الفورم في جهاز تاني متصل بالانترنت عايز اعرض نفس الصور اليه بتتعرض هنا في Pictuer Box الموجوده هن

أنت محتاج تبعت الصورة من جهاز لتانى كأى ملف , يعنى Server و Client أبحث بالمنتدى عن برامج الشات , هى نفس الفكرة.

وكل ده عنوان للموضوع :wacko: :blink:

فعلا يمكنك ذلك باستخدام winsock

شكرااا علي الرد لكن الفكره اني الصوره بتتغير كل ثانيه

من الاخر ال Pictuer Box ديه بيتعرض فيها الشاشه بتاعة الجهاز يعني الجهاز التاني في نفس ال Pictuer اليه عنده هيشوف الشاشه بتاعة الجهاز التاني لئني اليه بيتعرض في pictuer Box هو Print Screen للشاشه وبيتغير كل شويه.

لو الموضوع صعب في حل تاني اخلي الجهاز يشوف الشاشه بتاعة الجهاز التاني.

أتمنى أن ده مايكونش بأغراض التجسس ( بس هيكون لايه يعنى )

على العموم و لأول مرة فى حياتى أنصحك تستعمل أدوات جاهزة لكدة , لأن الـ VB ليس سريع بالأمور دى.

اطمن

ده برنامج زي Logmein

https://secure.logmein.com/home.asp

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

اني لمه باجي احفظ الصوره اليه في Pictuer Box ما بتتحفظ بيقول لي ما فيش صورة

اعتقد المشكلة في كود عرض الصورة ما يمشيش مع كود الحفظ

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" _
									(ByVal hDestDC As Long, _
									 ByVal x As Long, _
									 ByVal y As Long, _
									 ByVal nWidth As Long, _
									 ByVal nHeight As Long, _
									 ByVal hSrcDC As Long, _
									 ByVal xSrc As Long, _
									 ByVal ySrc As Long, _
									 ByVal dwRop As Long) As Long

Dim A As Long
Dim s As Long


A = GetDesktopWindow()
s = GetDC(A)
BitBlt Picture1.hDC, 0, 0, Screen.Width, Screen.Height, s, 0, 0, vbSrcCopy
Picture1.Refresh

وبحفظ بالكود ده

SavePicture Picture1.Picture, "c:\q.bmp"

لكن للئسف ما بيحفظ

هل خاصية الـ Autoredraw مضبوطة على True ؟

اه

حركة الشاشه بتتعرض عادي جدا جوه ال Pictuer Box لئني حاطط الكود جوه Timer لكن المشكلة اني عايز احفظ الصور اليه بتتعرض كود الحفظ اليه كاتبه فوق مش شغال مع العلم حته لمه بوقف ال Timer برده مش شغال

اوك , اضف السطر التالى :

Picture1.Picture = Picture1.Image

مع العلم أن برنامج زى كده هيستهلك الـ CPU Usage و هيكون غير عملى.

شكرا الكود اشتغل

اقتباس

مع العلم أن برنامج زى كده هيكون غير عملى.

طب ايه العمل؟؟؟