منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

(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كيف ذلك

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

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

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

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

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

تفضل

كود :

       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 = اسم الخاصية

(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">

بالتوفيق

ايضا طريقة اخرى و اسهل و تقدر من خلالها تخدع حتى المحترفين ولكن لن انشرها احتراما لقوانين المنتدى
عموما جرب هذا الكود على صفحة تسجيل الدخول للفيس بوك
ضع هذا الكود في الحدث 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 2