منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] تعديل html قبل عرضه في WebBrowser - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تعديل html قبل عرضه في WebBrowser (/showthread.php?tid=18468)

الصفحات: 1 2

RE: تعديل html قبل عرضه في WebBrowser - bidaya - 21-12-16

(21-12-16, 02:37 PM)Basil Abdallah كتب :
(21-12-16, 02:22 PM)bidaya كتب :
(21-12-16, 02:12 PM)Basil Abdallah كتب : Dim Path As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\abc.txt"
IO.File.WriteAllText(Path, My.Resources.FileName)
Process.Start(Path)
حسب فهمي ؟

كيف احدد مكان التعديل في الخانتان الي بالمشروع  اي اريد التعديل على سطر معين بالملفHTMLكيف ذلك

اخي الكود لا يقوم بتغيير الارقام في الملف لاني اريد تغيير رقم فقط في الملف جزاك الله خيرا
للاسف لا اعلم كيف
Confused

شكرا جزيلا اخي الكريم لقد استفدة كثيرا من مثالك
في انتضار بقية الاعضاء

RE: تعديل html قبل عرضه في WebBrowser - Basil Abdallah - 21-12-16

ضع موضوع جديد حتى يرى الجميع طلبك

RE: تعديل html قبل عرضه في WebBrowser - ali.alfoly - 22-12-16

جزاك الله خيرا
وشكرا علي مسعادتك الجميلة
للعلم الخاصية DocumentText
تقوم بالغاء تنفيذ اكواد الجافا حاول تجرب كده شكل الصفحة قبل التعديل وبعد التعديل

RE: تعديل html قبل عرضه في WebBrowser - Basil Abdallah - 22-12-16

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

RE: تعديل html قبل عرضه في WebBrowser - LoveVb - 23-12-16

تفضل

كود :
       Dim f As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
        Dim elm As HtmlElement = Nothing
        For i% = 0 To f.Count - 1
            If f(i).GetAttribute("value") = "ValueName" Then
                elm = f(i) : Exit For
            End If
        Next
        elm.SetAttribute("value", "LoveVb")
لا تنسى تغيير input باسم الtag للعنصر 
وvalue باسم خاصية فريده للعنصر
وValueName قيمة الخاصية التي وضعتها في value
الاكواد في الاعلى اذا العنصر ليس له id
اذا كان العكس

كود :
        Dim elm As HtmlElement = WebBrowser1.Document.GetElementById("Id")

        elm.SetAttribute("AttribName", "LoveVb")
AttribName = اسم الخاصية

RE: تعديل html قبل عرضه في WebBrowser - LoveVb - 23-12-16

(22-12-16, 10:44 AM)ali.alfoly كتب : جزاك الله خيرا
وشكرا علي مسعادتك الجميلة
للعلم الخاصية DocumentText
تقوم بالغاء تنفيذ اكواد الجافا حاول تجرب كده شكل الصفحة قبل التعديل وبعد التعديل
ليس الغاء اكواد الجافا سكربت و اكواد css
المشكلة هي انه لا يتعرف على مسارات الملفات التي تُوضع هكذا
كود :
<script src="/example/ex.js" type="text/javascript">
لذلك يجب عليك اكمالها هكذا



كود :
<script src="http://www.google.com/example/ex.js" type="text/javascript">

بالتوفيق

RE: تعديل html قبل عرضه في WebBrowser - Basil Abdallah - 24-12-16

ايضا طريقة اخرى و اسهل و تقدر من خلالها تخدع حتى المحترفين  ولكن لن انشرها احتراما لقوانين المنتدى 
عموما جرب هذا الكود على صفحة تسجيل الدخول للفيس بوك 
ضع هذا الكود في الحدث Navigating
كود :
 
        Try
            WebBrowser1.Document.GetElementById("reg_pages_msg").InnerText = "Basil Abdullah"
        Catch ex As Exception
        End Try
   
طريقة اخرى ايضا لاستخلاص اكواد صفحات الـHtml
كود :
RichTextBox1.Text = WebBrowser1.Document.GetElementById("facebook").OuterHtml
نجد الاي دي في وسم البداية <html>