تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف نطبق عملية حفظ باسم للصفحة
#1
اعود من البداية لاسال عن كود حفظ الصفحة كـ صفحة ويب كاملة
مثل الموجود باي متصفح ..كيف يمكن نطبقها بان نحفظ الصفحة كاملة بنقرة زر؟
الرد
تم الشكر بواسطة:
#2
كود :
My.Computer.FileSystem.WriteAllText("Path.html", WebBrowser1.DocumentText, True)
الرد
تم الشكر بواسطة: سعود
#3
اخي الكريم كما هو واضح بالكود الطريقة ليست المطلوبة.
المطلوب حفظ صفحة ويب كاملة كما الحال مع اي متصفح .
الرد
تم الشكر بواسطة:
#4
WebBrowser1.DocumentText
مثالي كما تلاحظه فهو للحفظ مافي اداة WebBrowser1
هل تقصد بدون الاداة WebBrowser1؟
الرد
تم الشكر بواسطة: سعود
#5
اخي الكريم هذه الطريقة بسيطة جدا فهي تحفظ فقط مصدر الصفحة يعني لو طبقتها وفصلت الانترنت ستجد ان الصفحة بدون روابط يعني فقط نص.
جرب من القائمة حفظ كصفحة ويب وانظر كيف يحفظ الصور وكافة المحتويات.
الرد
تم الشكر بواسطة:
#6
صح كلامك غير
WebBrowser1.Document
الى
WebBrowser1.Document.Body.InnerHtml

طبعآآ المتصفحات تحفظ الصور والاشياء بمجلد خارجي لاحظها بنفسك
بمعنى تعمل تحميل على جميع محتويات الصفحة
الرد
تم الشكر بواسطة:
#7
طيب وش رايك بالكود هذا
كود :
WebBrowser1.ShowSaveAsDialog()
لكن شلون نحفظ بشكل ديناميكي؟؟؟

رسالة الخطا ماودها تفارقني اعوذ بالله
Illegal characters in path.
حتى بالرابط اللي اعطانياه الكود
كود :
Dim wc As New Net.WebClient
        wc.Encoding = Encoding.Default
        wc.DownloadFile(WebBrowser1.Url.Host & WebBrowser1.Url.PathAndQuery, ".htm")

صح الخطا الاخير كان الرابط لايبدا ب http
جاري اكمال التجربة مع الجوع
الرد
تم الشكر بواسطة: 3booody
#8
الافضل لك ان تحمل جميع محتويات الصفحة بمجلد واحد مثل المتصفحات
تعمل حلقة تكرارية تقوم بتحميل جميع الصور

ان شاء الله يساعدك شخص ذو خبره اكثر مني
الرد
تم الشكر بواسطة: سعود
#9
ياسلام وجدت كود مريح للغاية مع وجوب النظر لتطويعه للعملية الديناميكية
اولا اسند رابط لاداة المتصفح
ثانيا في حدث
WebBrowser1_DocumentCompleted

اكتب
كود :
WebBrowser1.ShowSaveAsDialog()
        Dim wc As New Net.WebClient
        wc.Encoding = Encoding.Default
        Dim fp As String = WebBrowser1.Url.Host & WebBrowser1.Url.PathAndQuery
        fp.Trim.Replace(" ", "")
        If fp.StartsWith("http://") = False Then
            fp.Insert(0, "http://")
        End If
      
        Dim page As String = wc.DownloadString(fp)
        IO.File.WriteAllText(Application.StartupPath & "\index.htm", page, Encoding.Default)

من يعدل على الكود بحيث يكون الحفظ مكان واحد وايضا يكون مسار كل الصور بنفس مكان الصفحة؟؟
الظاهر نرجع لـ regex SadSadSad

ممتاز ياشباب الوضع تم بشكل رائع لكن سالفة مربع الحوار شلون نتخطاها؟
ايضا اداة المتصفح شلون نستخدم الكود لانشاء مستعرض مع حدث الاكتمال؟؟؟

اكتشفت ان السطرين التاليين هما فقط المسؤلان عن نجاح العملية
كود :
WebBrowser1.Navigate("http://vb4arb.com/vb/showthread.php?tid=727")

        WebBrowser1.ShowSaveAsDialog()
الاول في حدث نقر زر
والاخر في حدث اكتمال تحميل الصفحة

=======================================
==================================

لكن سالفة مربع الحوار شلون نتخطاها؟
ايضا اداة المتصفح شلون نستخدم الكود لانشاء مستعرض مع حدث الاكتمال؟؟؟


http://msdn.microsoft.com/en-us/library/...leted.aspx

اتمنى احد يشرح المكتوب بالرابط وكيف نستخدم اضافة حدث الاكتمال
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عملية حسابية محمد خيري 6 57 15-11-18, 04:26 PM
آخر رد: محمد خيري
  [VB.NET] اضافة سريال لكل عملية محمد اسماعيل 2 60 07-11-18, 08:00 PM
آخر رد: dasktop
  [VB.NET] بحاجة لمساعدة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول السعيدي 8 141 03-11-18, 01:28 PM
آخر رد: elgokr
  تحديد الصف بعد عملية التحديث محمد اسماعيل 3 117 31-10-18, 11:41 PM
آخر رد: elgokr
  [VB.NET] خطا اثناء عملية الحذف محمد اسماعيل 6 124 31-10-18, 10:02 PM
آخر رد: elgokr
  خطا فى عملية الحفظ سمير جمال 0 68 20-10-18, 06:23 PM
آخر رد: سمير جمال
  [سؤال] إجراء عملية حسابية داخل خلايا الداتاغريدفيو saidou23 0 73 28-09-18, 04:27 AM
آخر رد: saidou23
  عملية البحث باستخدام أكثر من Combobox بستخدام تقنية LINQ FatmaAli 2 159 27-09-18, 02:13 PM
آخر رد: FatmaAli
  [VB.NET] كيفية جعل عملية الحذف مثلا تتزامن مع اداة Progreese Bar larbihamri 1 150 10-09-18, 11:40 AM
آخر رد: 911
  [VB.NET] اريد كود التحقق من ان عملية التحميل تمت ام لم تتم في لغة الفجوال.نت MoatazMedo5 2 183 05-08-18, 03:00 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم