منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اصدقائي اريد منكم مساعدتي في طريقة اختيار ملف من الجهاز باستخدام اداة WebBrowser للتحكم بمنتدانا العزيز

لقد قمت بعمل برنامج صغير يقوم بالضغط على زر الاستعراض في موقع ما

وبعدها تظهر لي شاشة الديالوج Select File

واقوم يدوياً باختيار الملف وبعدها اضغط oK ولكن هذة الطريقة مملة وطويلة لانني اريد ان ارفع على الموقع في كل مرة اكثر من 10 صور

واريد الحل بجعل البرنامج لا يظهر الشاشة الافتراضية التي تظهر بل يقوم بارسال موقع الملف الى الشاشة ولكن وهي تعمل في الخلفية BackGround اي لا تظهر وقد حاولت اخفائها وان
اجعل البرنامج يتحكم بها لكن لم استطيع ذلك

وشاكرة لكم اهتمامكم

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

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

كما هو الحال في الكود التالي

PHP كود :

Public Function SavePages(ByVal links2s As String)

        Try

            Dim SaveFileDialog1 As New SaveFileDialog()
            SaveFileDialog1.Filter = "mht files (*.mht)|*.mht|All files (*.*)|*.*"


            wb.Navigate(links2s)
            Do Until wb.ReadyState = WebBrowserReadyState.Complete
                My.Application.DoEvents()
            Loop

            SavePage(wb.Url.ToString, "D:\All Pages Vb4arab\" & filename & ".mht")

        Catch ex As Exception

        End Try
    End Function

    Private Sub SavePage(ByVal Url As String, ByVal FilePath As String)
        Try

            Dim iMessage As CDO.Message = New CDO.Message
            iMessage.CreateMHTMLBody(Url, CDO.CdoMHTMLFlags.cdoSuppressObjects, "فاتن", "1234")
            Dim adodbstream As ADODB.Stream = New ADODB.Stream
            adodbstream.Type = ADODB.StreamTypeEnum.adTypeText
            adodbstream.Charset = "US-ASCII"
            adodbstream.Open()
            iMessage.DataSource.SaveToObject(adodbstream, "_Stream")
            adodbstream.SaveToFile(FilePath, ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
        Catch ex As Exception

            TextBox6.Text += "Error is : " & ex.Message & vbNewLine & "Url : " & Url & vbNewLine & "Path : " & FilePath & vbNewLine & "================" & vbNewLine

        End Try

    End Sub 


يوجد مثال للتعديل عليه مرفق

صورة توضيحية

وهي الشرح الي جبت منو الكود السابق الخاص بحفظ صفحات الانترنت دون ظهور شاشة الحفظ

http://social.msdn.microsoft.com/forums/...5d16f458c/

لا بد من ظهور مربع الحوار

kslawy كتب :لا بد من ظهور مربع الحوار

انا متأكدة انو في والطريقة معقولة لاني عملت من زمان كود خاص بالغاء شاشة الحفظ بأسم
كما ذكرت بالموضوع

وقمت بأخذ الطريقة من الرابط التالي

http://social.msdn.microsoft.com/forums/...5d16f458c/

سؤال خارج موضوعك ،، ما الفائدة من البرنامج ،، اذا كان القصد من هذا عرض صفحات المنتدى القديم من خلال رفع مرفقاته ،، فيمكنك الدخول على هذا الرابط


http://vb4arb.com/vb/showthread.php?3398...%E3-%A1%A1


اما اذا كان العمل المراد منه رفع ملفات المنتدى القديم فقد قمت باستخدام اسلوب اسرع من اسلووبك

اولا قمت برفع جميع المرفقات على الميديا فير دفعه واحده ،،، ثم أخذت اسماء اللفات و وضعتها بقاعدة بيانات و ثم قم بعمل كود يحلل صفحة المنتدى المفتوحه ثم يستبدل الروابط القديمه بالجديدة

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


بالنسبه لك اختي ،، على العموم ،، لم افهد الفائدة من برنامج اذا وضحتي اكثر ربما اقدر ان اساعدك ،،

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

السكر المغرور كتب :سؤال خارج موضوعك ،، ما الفائدة من البرنامج ،، اذا كان القصد من هذا عرض صفحات المنتدى القديم من خلال رفع مرفقاته ،، فيمكنك الدخول على هذا الرابط


http://vb4arb.com/vb/showthread.php?3398...%E3-%A1%A1


اما اذا كان العمل المراد منه رفع ملفات المنتدى القديم فقد قمت باستخدام اسلوب اسرع من اسلووبك

اولا قمت برفع جميع المرفقات على الميديا فير دفعه واحده ،،، ثم أخذت اسماء اللفات و وضعتها بقاعدة بيانات و ثم قم بعمل كود يحلل صفحة المنتدى المفتوحه ثم يستبدل الروابط القديمه بالجديدة

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


بالنسبه لك اختي ،، على العموم ،، لم افهد الفائدة من برنامج اذا وضحتي اكثر ربما اقدر ان اساعدك ،،

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

شكراً لك للرد لكن انا لا اريد عمل شيئ للمنتدى انا بشتغل على نظام ارشفة للشركة عندنا

ولكن لا مانع من وضعك الكود المصدري هنا :o في الموضوع لانو ممكن انا استفيد والكل يستفيد من الكود

تفضلي برنامج VB4Arab Uploader في المرفقات لرفع الملفات بدون إستخدام المتصفح

Osama_Ghareeb كتب :تفضلي برنامج VB4Arab Uploader في المرفقات لرفع الملفات بدون إستخدام المتصفح

تمت تجربة البرنامج ويعمل جيداً

هل يمكنني استخدام الكود لرفع ملفات لموقع Kutub بدون الحوجة لتعديل أي جزئية في الكود سوى رابط صفحة الـ Upload ؟

kslawy كتب :تمت تجربة البرنامج ويعمل جيداً

هل يمكنني استخدام الكود لرفع ملفات لموقع Kutub بدون الحوجة لتعديل أي جزئية في الكود سوى رابط صفحة الـ Upload ؟

لازم تحلل موقع كتب وتشوف شلون عملية الرفع وإيش هي الصفحة و طريقة إرسال البيانات ... إستخدم أداة Tamper Data الموجودة في الـ Firefox للتحليل

بالنسبة لطريقة صنع البرنامج فهي كالتالي :


في صفحة التحميل للموقع اللي بدك ياه رح يكون فيها أداة نوعها HTML Form

بالنسبة للمنتدى هاد فأوامر صفحة التحميل كالتالي :


الأوامر المحددة بالأخضر ما بتفيدنا برمجيا
أما الأوامر المحددة بالبنفسجي :
method بتدل على نوع الطلب وغالبا بيكون POST
action بتدل على الصفحة اللي رح يرتسلها الطلب واللي هي uploader.php?do=doupload
enctype بيدل على طريقة إرسال الطلب فإن كانت application/x-www-form-urlencoded أو مو موجودة فرح تكون طريقة الإرسال كالتالي :
name1=value1&name2=value2&...






وإذا كانت القيمة multipart/form-data فرح تكون طريقة الإرسال كالتالي :

بالنسبة لـ -----------------------------265001916915724 فهو أمر محدد منرسله للموقع مشان يفرق بين البيانات... وطريقة إرساله للموقع كالتالي :




طريقة معرفة البيانات المرسلة :
بالنسبة للأوامر اللي بترتسل فهي كل أداة HTML داخل أداة الـ Form إلها قيمة في خاصية name فمثلا في الأمر اللي فوق :
في أداة اسمها do وهي مخفية وقيمتها ثابتة وفي تسع أدوات اسمهم file[] وفي أداة اسمها upload واللي هي زر الحفظ (المفروض ما يكون إله Name المفروض يكون id شكله خطأ برمجي (ما بيأثر شي) لأنه ما له داعي )

*ملاحظة : إذا كان نوع الأداة ملف (type="file") رح تكون طريقة إرسال البيانات كالتالي :


file1.txt اسم الملف
text/plain نوع الملف
file1 data محتوى الملف


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


وهيك بما إنه enctype قيمتها multipart/form-data فرح تكون البيانات المرسلة كالتالي :





بالتوفيق للجميع :o