27-10-13, 11:17 AM
27-10-13, 12:45 PM
كود :
My.Computer.FileSystem.WriteAllText("Path.html", WebBrowser1.DocumentText, True)
27-10-13, 01:13 PM
اخي الكريم كما هو واضح بالكود الطريقة ليست المطلوبة.
المطلوب حفظ صفحة ويب كاملة كما الحال مع اي متصفح .
المطلوب حفظ صفحة ويب كاملة كما الحال مع اي متصفح .
27-10-13, 01:45 PM
WebBrowser1.DocumentText
مثالي كما تلاحظه فهو للحفظ مافي اداة WebBrowser1
هل تقصد بدون الاداة WebBrowser1؟
مثالي كما تلاحظه فهو للحفظ مافي اداة WebBrowser1
هل تقصد بدون الاداة WebBrowser1؟
27-10-13, 01:56 PM
اخي الكريم هذه الطريقة بسيطة جدا فهي تحفظ فقط مصدر الصفحة يعني لو طبقتها وفصلت الانترنت ستجد ان الصفحة بدون روابط يعني فقط نص.
جرب من القائمة حفظ كصفحة ويب وانظر كيف يحفظ الصور وكافة المحتويات.
جرب من القائمة حفظ كصفحة ويب وانظر كيف يحفظ الصور وكافة المحتويات.
27-10-13, 02:10 PM
صح كلامك غير
WebBrowser1.Document
الى
WebBrowser1.Document.Body.InnerHtml
طبعآآ المتصفحات تحفظ الصور والاشياء بمجلد خارجي لاحظها بنفسك
بمعنى تعمل تحميل على جميع محتويات الصفحة
WebBrowser1.Document
الى
WebBrowser1.Document.Body.InnerHtml
طبعآآ المتصفحات تحفظ الصور والاشياء بمجلد خارجي لاحظها بنفسك
بمعنى تعمل تحميل على جميع محتويات الصفحة
27-10-13, 02:12 PM
طيب وش رايك بالكود هذا
لكن شلون نحفظ بشكل ديناميكي؟؟؟
رسالة الخطا ماودها تفارقني اعوذ بالله
Illegal characters in path.
حتى بالرابط اللي اعطانياه الكود
صح الخطا الاخير كان الرابط لايبدا ب http
جاري اكمال التجربة مع الجوع
كود :
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
جاري اكمال التجربة مع الجوع
27-10-13, 02:39 PM
الافضل لك ان تحمل جميع محتويات الصفحة بمجلد واحد مثل المتصفحات
تعمل حلقة تكرارية تقوم بتحميل جميع الصور
ان شاء الله يساعدك شخص ذو خبره اكثر مني
تعمل حلقة تكرارية تقوم بتحميل جميع الصور
ان شاء الله يساعدك شخص ذو خبره اكثر مني
27-10-13, 02:52 PM
ياسلام وجدت كود مريح للغاية مع وجوب النظر لتطويعه للعملية الديناميكية
اولا اسند رابط لاداة المتصفح
ثانيا في حدث
WebBrowser1_DocumentCompleted
اكتب
من يعدل على الكود بحيث يكون الحفظ مكان واحد وايضا يكون مسار كل الصور بنفس مكان الصفحة؟؟
الظاهر نرجع لـ regex
ممتاز ياشباب الوضع تم بشكل رائع لكن سالفة مربع الحوار شلون نتخطاها؟
ايضا اداة المتصفح شلون نستخدم الكود لانشاء مستعرض مع حدث الاكتمال؟؟؟
اكتشفت ان السطرين التاليين هما فقط المسؤلان عن نجاح العملية
الاول في حدث نقر زر
والاخر في حدث اكتمال تحميل الصفحة
=======================================
==================================
لكن سالفة مربع الحوار شلون نتخطاها؟
ايضا اداة المتصفح شلون نستخدم الكود لانشاء مستعرض مع حدث الاكتمال؟؟؟
http://msdn.microsoft.com/en-us/library/...leted.aspx
اتمنى احد يشرح المكتوب بالرابط وكيف نستخدم اضافة حدث الاكتمال
اولا اسند رابط لاداة المتصفح
ثانيا في حدث
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
ممتاز ياشباب الوضع تم بشكل رائع لكن سالفة مربع الحوار شلون نتخطاها؟
ايضا اداة المتصفح شلون نستخدم الكود لانشاء مستعرض مع حدث الاكتمال؟؟؟
اكتشفت ان السطرين التاليين هما فقط المسؤلان عن نجاح العملية
كود :
WebBrowser1.Navigate("http://vb4arb.com/vb/showthread.php?tid=727")
WebBrowser1.ShowSaveAsDialog()
والاخر في حدث اكتمال تحميل الصفحة
=======================================
==================================
لكن سالفة مربع الحوار شلون نتخطاها؟
ايضا اداة المتصفح شلون نستخدم الكود لانشاء مستعرض مع حدث الاكتمال؟؟؟
http://msdn.microsoft.com/en-us/library/...leted.aspx
اتمنى احد يشرح المكتوب بالرابط وكيف نستخدم اضافة حدث الاكتمال