تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تعديل html قبل عرضه في WebBrowser
#11
(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

شكرا جزيلا اخي الكريم لقد استفدة كثيرا من مثالك
في انتضار بقية الاعضاء
الرد }}}
تم الشكر بواسطة: Basil Abdallah
#12
ضع موضوع جديد حتى يرى الجميع طلبك
الرد }}}
تم الشكر بواسطة:
#13
جزاك الله خيرا
وشكرا علي مسعادتك الجميلة
للعلم الخاصية DocumentText
تقوم بالغاء تنفيذ اكواد الجافا حاول تجرب كده شكل الصفحة قبل التعديل وبعد التعديل
الرد }}}
تم الشكر بواسطة: Basil Abdallah
#14
فعلا اخي علي ولكن قابله للتطوير اعتقد و توجد طرق اخرى لاستخلاص اكواد الصفحة كامله
الرد }}}
تم الشكر بواسطة:
#15
تفضل

كود :
       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 = اسم الخاصية
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
الرد }}}
تم الشكر بواسطة:
#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">

بالتوفيق
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
الرد }}}
تم الشكر بواسطة: Basil Abdallah
#17
ايضا طريقة اخرى و اسهل و تقدر من خلالها تخدع حتى المحترفين  ولكن لن انشرها احتراما لقوانين المنتدى 
عموما جرب هذا الكود على صفحة تسجيل الدخول للفيس بوك 
ضع هذا الكود في الحدث 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>
الرد }}}
تم الشكر بواسطة:



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


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