+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : برنامج شبية بالـTeemView (/showthread.php?tid=18738)
برنامج شبية بالـTeemView - Basil Abdallah - 08-01-17
السلام عليكم
اعطاني اليوم احد الاخوة هذا الموقع http://www.screenleap.com/ لعمل بث مباشر من الشاشة
ففكرت لو اني اقدر اسوي برنامج بنفس مبدأ هذا الموقع
بلشت في العمل و الان انا انهيته تقريبا و بعمل بشكل ممتاز مبدأ عمل البرنامج انه بلتقط صور متتالية للشاشة و برفعهن على موقع او سيرفر يدعم الـFTP و البرنامج الاخر يقوم بسحب هذي الصور من السيرفر و يقوم بعرضهن بسرعات متفاوتة بالترتيب
فعلا المشروع زبط معي بس المشكلة اني بدي كود يرفع الصور مباشرتا على سيرفر FTP كتبت كم كود ولكن ظهرت لي كم مشكلة
و رجعت لطريقتي الاولى الي هي بحفظ الصورة ثم يقوم برفعها على السيرفر
فلذلك لو في احد من المبرمجين عندهخبرة بالموضوع و يعطيني كود يقوم برفع الصورة الموجودة في PictureBox1 الى السيرفر
ممكن يفيدك هذا الكود
كود :
Dim server As New WebClient
server.Credentials = New Net.NetworkCredential("Username", "Password")
server.UploadFile("رابط السيرفر ", "مسار الصورة على جهاز الحاسوب")
RE: برنامج شبية بالـTeemView - MSCFC - 08-01-17
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
في الحقيقة رغم أنني لست متخصص في VB.NET
لكني سأجيبك بطريقة VB6 وربما ستفيدك إجابتي
يتم وضع PictureBox1 في فورم لمفرده ( فورم المعاينة )
بشرط تغير حالة الإطار ( border ) إلى None لا شيئ
ثم تقوم بعمل تصوير للفورم
هذا الكود يكون في General Decleration :
كود :
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كود :
keybd_event VK_SNAPSHOT, 1, 1, 1أنتظرك
RE: برنامج شبية بالـTeemView - Basil Abdallah - 08-01-17
وينكم يا شباب بدي بس كود اوو فكرة او طريقة اي شي يفيدني
اعتذر لم ارى مشاركتك الجميلة انتضر ردي
(08-01-17, 09:59 PM)MSCFC كتب :انا مشكلتي كيف ارفع الصورة الى السيرفر و بخصوص التصوير لا مشكلة عندي فيه ابداًبسم الله الرحمن الرحيمالسلام عليكم ورحمة الله وبركاتهفي الحقيقة رغم أنني لست متخصص في VB.NETلكني سأجيبك بطريقة VB6 وربما ستفيدك إجابتييتم وضع PictureBox1 في فورم لمفرده ( فورم المعاينة )بشرط تغير حالة الإطار ( border ) إلى None لا شيئثم تقوم بعمل تصوير للفورمهذا الكود يكون في General Decleration :وهذا الكود كفيل بالتقاط صورة للفورم ونقلها إلى الحافظة :كود :
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الآن بإمكانك الرفع مباشرة بالكود الخاص بككود :
keybd_event VK_SNAPSHOT, 1, 1, 1أنتظرك
فلذلك اتمنى ان يكون لديك جواب يكفي لسؤالي
RE: برنامج شبية بالـTeemView - Basil Abdallah - 09-01-17
وينكم يا شباب ؟
RE: برنامج شبية بالـTeemView - MSCFC - 09-01-17
السلام عليكم
استبدل مسار الصورة بـ ClipBoard.Getimage
وسيعمل إن شاء الله
RE: برنامج شبية بالـTeemView - Basil Abdallah - 09-01-17
انتا مش فاهم علي شوف هذي الصورة التقطها البرنامج - صورة عفوية
http://chat.freehostingphp.com/a.png
كيف اجعل الـPictureBox1 يعرض هذه الصورة مع العلم اني جربت الاكواد الشعبه و دوال الويب براوزر بس ما نفع معي
و جربت مرى اخرى و رفعت الصورة على مركز رفع و جربت افتحها على الPictureBox1 فتحت
فليش ما رضيت تفتح على الرابط بالاعلى هل من طريقة ؟
RE: برنامج شبية بالـTeemView - الشاكي لله - 10-01-17
(09-01-17, 10:37 PM)Basil Abdallah كتب : انتا مش فاهم علي شوف هذي الصورة التقطها البرنامج - صورة عفوية
http://chat.freehostingphp.com/a.png
كيف اجعل الـPictureBox1 يعرض هذه الصورة مع العلم اني جربت الاكواد الشعبه و دوال الويب براوزر بس ما نفع معي
و جربت مرى اخرى و رفعت الصورة على مركز رفع و جربت افتحها على الPictureBox1 فتحت
فليش ما رضيت تفتح على الرابط بالاعلى هل من طريقة ؟
جرب
PictureBox.Load
RE: برنامج شبية بالـTeemView - Basil Abdallah - 10-01-17
اكيد جربتها ومن يجهلها ؟
بس نفس الشي
ممم
احنا تركنا السؤال الرئيسي للموضوع و سؤالي كيف اخلي الPictureBox1 يعرض صورة مباشرتا من قاعدة البيانات وعلى سبيل المثال هذي الصورة http://chat.freehostingphp.com/a.png
عشان تفهمو اكثر جربو الكود الاتي و ردولي خبر
كود :
Try
PictureBox1.Load("http://chat.freehostingphp.com/a.png")
Catch ex As Exception
MsgBox(ErrorToString)
End TryRE: برنامج شبية بالـTeemView - الشاكي لله - 10-01-17
امم ..جرب هذي :
PHP كود :
Dim wc as new WebClient
Dim imgData As Byte() = wc.DownloadData("url")
Using (Dim ms As new System.IO.MemoryStream(imgData))
Using (Dim img = Image.FromStream(ms))
PictureBox1.Image = img
End Using
End Using
RE: برنامج شبية بالـTeemView - مساعدة - 10-01-17
السلام عليكم
تصحيح لكود الأستاذ الشاكي لله
كود :
Dim wc as new WebClient
Dim imgData As Byte() = wc.DownloadData("url")
Using ms As new System.IO.MemoryStream(imgData)
PictureBox1.Image = Image.FromStream(ms)
End Usingكود :
PictureBox1.ImageLocation = "url image"لكن طلب الاستاذ Basil هو كيفية رفع الصورة الموجودة في أداة PictureBox إلى السيرفر باستخدام الأمر UploadFile،
وتكون الطريقة لكود الأستاذ بحفظ الصورة أولا بملف مؤقت ثم رفعها
تفضل الكود
كود :
If PictureBox1.Image IsNot Nothing Then
Dim filename As String = "picture.jpg"
PictureBox1.Image.Save(filename)
Dim server As New WebClient
server.Credentials = New Net.NetworkCredential("Username", "Password")
server.UploadFile("رابط السيرفر ", filename)
End Ifممكن يفيدك مشاهدة هذا الدرس
https://www.youtube.com/watch?v=azkTFwA0bXM