هل يمكن التحكم في البرنامج من خلال صفحة html

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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 (/showthread.php?tid=23685)

الصفحات: 1 2 3 4

RE: هل يمكن التحكم في البرنامج من خلال صفحة html - anes - 08-02-18

(08-02-18, 10:24 AM)HASAN6.0 كتب : ما المطلوب ؟؟؟؟؟؟

هذه صورة لمثال كي اوصل الفكرة اخي

هنا لدينا فورم به زرين وادات GeckoWebBrowser
GeckoWebBrowser عند فتح البرنامج رايح تفتح لنا صفحة html
وهذا رابطها
الصفحة بها زران
btn1
btn2

الاخ

طالب برمجة

عمل الكود التالي يعمل على ادات webBrowser بامتياز للصفحة الطلوبة وهي هذه

كود :

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    For Each div As Windows.Forms.HtmlElement In WebBrowser1.Document.Body.GetElementsByTagName("div")

        If div.InnerHtml = "btn1" Then div.AttachEventHandler("onclick", AddressOf Button1_Click)

        If div.InnerHtml = "btn2" Then div.AttachEventHandler("onclick", AddressOf Button2_Click)

    Next

End Sub

هنا العملية تمت بنجاح لكن ادات الويب براوزر فقيرة لا تعرض الصفحة بالشكل الطبيعي لها على غرار ادات GeckoWebBrowser

اريد التعديل على كود الاخ ليعمل على هذه الادات الي هيا GeckoWebBrowser
وشكرا لك على المجهود

RE: هل يمكن التحكم في البرنامج من خلال صفحة html - anes - 09-02-18

يا اساتذتي الكرام

لقد قمت برفع مثال على ادات GeckoWebBrowser

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

RE: هل يمكن التحكم في البرنامج من خلال صفحة html - طالب برمجة - 09-02-18

PHP كود :

Private Sub GeckoWebBrowser1_DomClick(ByVal sender As Object, ByVal e As Gecko.DomMouseEventArgs) Handles GeckoWebBrowser1.DomClick
    Dim element As Gecko.GeckoHtmlElement = e.Target.CastToGeckoElement()
    If element.InnerHtml = "btn1" Then Button1.PerformClick()
    If element.InnerHtml = "btn2" Then Button2.PerformClick()
End Sub 

RE: هل يمكن التحكم في البرنامج من خلال صفحة html - anes - 09-02-18

(09-02-18, 06:04 AM)طالب برمجة كتب :
PHP كود :

Private Sub GeckoWebBrowser1_DomClick(ByVal sender As Object, ByVal e As Gecko.DomMouseEventArgs) Handles GeckoWebBrowser1.DomClick Dim element As Gecko.GeckoHtmlElement = e.Target.CastToGeckoElement() If element.InnerHtml = "btn1" Then Button1.PerformClick() If element.InnerHtml = "btn2" Then Button2.PerformClick() End Sub

الله يبارك فيك ويرحم والديك

تمام اخي شكرا لك الكود يعمل بنجاح
Smile