29-09-18, 03:24 AM
(29-09-18, 01:42 AM)ابو روضة كتب :(29-09-18, 01:15 AM)naderalkeng54 كتب : ارجوكم سعدونى اخر طلب وبعد هيك ما حد يسعدنى
مكان الخطأ اخى ضع تكست بوكس 1 وتكست بوكس 2 وهكذا يكون الكود المكتوب
طبعا مع تغير قيمة ال email وpass و login ال او ضع المشروع وهايتم التعديل عليه بامر اللهكود :
WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.GetElementById("login").InvokeMember("click")
أو ضع رابط الموقع..
واتمنى بدون كلمة أرجوكم لآن الكل بيتمنى يساعد لله فمن سيساعد هو الرابح ليس انت
لو كان الموقع الذى تريد عمل تسجيل دخول له هو https://www.netflix.com/Login
فهذا هو الكود الصحيح له فقط ضع 2 تكست بوكس وبوتن وضع فى البوتون هذا الكود
كود :
For Each ee As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If ee.GetAttribute("autocomplete") = "email" Then
ee.InnerText = TextBox1.Text
End If
Next
For Each HT As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
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
عطانى هاذا الخطا اخى
وهل هناك تعديل يجب وضعة فى الكود لانى وضعت الكود مباشر

