ياسلام وجدت كود مريح للغاية مع وجوب النظر لتطويعه للعملية الديناميكية
اولا اسند رابط لاداة المتصفح
ثانيا في حدث
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
اتمنى احد يشرح المكتوب بالرابط وكيف نستخدم اضافة حدث الاكتمال
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
