[anes]

(07-02-18, 05:59 PM)طالب برمجة كتب :

PHP كود :

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 بالادات WebBrowser
لان ادات WebBrowser1 فقيرة جدا ولا تعرض كامل منظر الصفحة
يرحم الوالدين لمسة اخيرة
وجزاك الله خيرا
عملت مشروع لكن لم يحمل لكبر حجمه

---

كود :

Private Sub GeckoWebBrowser1_DocumentCompleted(sender As Object, e As Gecko.Events.GeckoDocumentCompletedEventArgs) Handles GeckoWebBrowser1.DocumentCompleted
       For Each div As Windows.Forms.HtmlElement In GeckoWebBrowser1.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

حاولت بهذا لكن لم افلح