28-09-18, 12:05 PM (آخر تعديل لهذه المشاركة : 19-10-18, 06:33 PM {2} بواسطة Amir_Alzubidy.
تعديل السبب: تعديل العنوان
)
انا تابعت شرح على اليوتيوب وهو عن كيفية عمل تسجيل دخول تلقائى لى الموقع من الويب بروزر وتابعت الشرح بى اتقان وكل اما اجى اجرب يظهر هاذا الخطا ما الحل جربت اكثر من مرا
ارجو الى معاة حل يفدنى شباب لانى واقع فى هاذا المشكلة ولا اجد حل
طبعا مع تغير قيمة ال email وpass و login ال او ضع المشروع وهايتم التعديل عليه بامر الله أو ضع رابط الموقع.. واتمنى بدون كلمة أرجوكم لآن الكل بيتمنى يساعد لله فمن سيساعد هو الرابح ليس انت
لو كان الموقع الذى تريد عمل تسجيل دخول له هو 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
طبعا مع تغير قيمة ال email وpass و login ال او ضع المشروع وهايتم التعديل عليه بامر الله أو ضع رابط الموقع.. واتمنى بدون كلمة أرجوكم لآن الكل بيتمنى يساعد لله فمن سيساعد هو الرابح ليس انت
لو كان الموقع الذى تريد عمل تسجيل دخول له هو 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
عطانى هاذا الخطا اخى
وهل هناك تعديل يجب وضعة فى الكود لانى وضعت الكود مباشر
29-09-18, 04:13 AM (آخر تعديل لهذه المشاركة : 29-09-18, 04:29 AM {2} بواسطة ابو روضة.)
(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
لهاذا السبب لم يعطيك الخطا اخى انا اعمل بنسخة 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
او تفضل المشروع كامل مرفق
تمام اخ قبل الكود لاكن عند ادخال الاميل والبسورد الصح يقول لي انهم خطا