[ابو روضة]

(29-09-18, 04:08 AM)naderalkeng54 كتب :

(29-09-18, 04:01 AM)ابو روضة كتب :

(29-09-18, 03:56 AM)naderalkeng54 كتب :

(29-09-18, 03:53 AM)ابو روضة كتب :

(29-09-18, 03:24 AM)naderalkeng54 كتب : وهل هناك تعديل يجب وضعة فى الكود لانى وضعت الكود مباشر

الكود يعمل عندى بدون أى مشاكل أخى لآنى أكيد جربته

انتا تستخدم نسخة كام من فيجول بيسك

2013

لهاذا السبب لم يعطيك الخطا اخى انا اعمل بنسخة 2010 وشكرااا جزيلا على الحل سوق انصب 2013 وطبق الحل شكرااا جزيلا لا اعرف كيف اعبر لك عن شكري لك 

جرب هذا أخى طيب على النسخة التى تعمل عليها

كود :

Dim ee As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
       For Each ss As HtmlElement In ee
           If ss.GetAttribute("autocomplete") = "email" Then
               ss.InnerText = TextBox1.Text
           End If
       Next
       Dim aa As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
       For Each HT As HtmlElement In aa
           If HT.GetAttribute("name") = "password" Then
               HT.InnerText = TextBox2.Text
           End If
       Next
       Dim allBtns As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
       For Each btn As HtmlElement In allBtns
           If btn.GetAttribute("className") = "btn login-button btn-submit btn-small" Then
               btn.InvokeMember("Click")
               Exit For
           End If
       Next

---

او تفضل المشروع كامل مرفق