اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده

اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده (/showthread.php?tid=33209)

اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده - اليوم السابع - 29-01-20

اعمل فورم لي تسجيل الدخول الي جوجل
وكتبت الكود بهذا الشكل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("https://accounts.google.com/signin/v2/identifier?service=youtube&uilel=3&passive=true&continue=https%3A%2F%2Fwww.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26app%3Ddesktop%26hl%3Dar%26next%3D%252F%253Fapp%253Ddesktop&hl=ar&ec=65620&flowName=GlifWebSignIn&flowEntry=ServiceLogin")

    End Sub

واخذت الid كما هو مظلل بالوان الاصفر

و وضعت الid بهذا الشكل في الكود في حدث الويب براوزر كومبليت

كود :

       WebBrowser1.Document.GetElementById("identifierId").SetAttribute("value", TextBox3.Text)

ولكن ظهر هذا الخطاء

RE: اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده - alsalamoni - 29-01-20

(29-01-20, 10:09 PM)اليوم السابع كتب : اعمل فورم لي تسجيل الدخول الي جوجل
وكتبت الكود بهذا الشكل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click WebBrowser1.Navigate("https://accounts.google.com/signin/v2/identifier?service=youtube&uilel=3&passive=true&continue=https%3A%2F%2Fwww.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26app%3Ddesktop%26hl%3Dar%26next%3D%252F%253Fapp%253Ddesktop&hl=ar&ec=65620&flowName=GlifWebSignIn&flowEntry=ServiceLogin") End Sub

واخذت الid كما هو مظلل بالوان الاصفر

و وضعت الid بهذا الشكل في الكود في حدث الويب براوزر كومبليت

كود :

WebBrowser1.Document.GetElementById("identifierId").SetAttribute("value", TextBox3.Text)
ولكن ظهر هذا الخطاء

شغال، مفيهوش مشكله

حدث الويب براوزر كومبليت بيعمل اكثر من مره قبل ان ينتهي
لازم تتاكد ان وصل للنقطه التي تريدها بحيث تتاكد هذا الكود

كود :

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

    Dim element = WebBrowser1.Document.GetElementById("identifierId")

    If element IsNot Nothing Then element.SetAttribute("value", TextBox3.Text)

End Sub

RE: اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده - اليوم السابع - 29-01-20

(29-01-20, 10:47 PM)alsalamoni كتب :
(29-01-20, 10:09 PM)اليوم السابع كتب : اعمل فورم لي تسجيل الدخول الي جوجل
وكتبت الكود بهذا الشكل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click WebBrowser1.Navigate("https://accounts.google.com/signin/v2/identifier?service=youtube&uilel=3&passive=true&continue=https%3A%2F%2Fwww.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26app%3Ddesktop%26hl%3Dar%26next%3D%252F%253Fapp%253Ddesktop&hl=ar&ec=65620&flowName=GlifWebSignIn&flowEntry=ServiceLogin") End Sub

شكرا لك اخي ولكن عند تعديل الكود كما انت وضعته لم يكتب شئ في مكان الاميل

واخذت الid كما هو مظلل بالوان الاصفر

و وضعت الid بهذا الشكل في الكود في حدث الويب براوزر كومبليت

كود :

WebBrowser1.Document.GetElementById("identifierId").SetAttribute("value", TextBox3.Text)
ولكن ظهر هذا الخطاء

شغال، مفيهوش مشكله

حدث الويب براوزر كومبليت بيعمل اكثر من مره قبل ان ينتهي
لازم تتاكد ان وصل للنقطه التي تريدها بحيث تتاكد هذا الكود

كود :

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Dim element = WebBrowser1.Document.GetElementById("identifierId") If element IsNot Nothing Then element.SetAttribute("value", TextBox3.Text) End Sub

RE: اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده - ابو روضة - 29-01-20

مع انى قولت مش هارد على اى موضوع لك مرة أخرى لآنك بتتجاهل من يحل لك لكن عشان خاطر
هذا المنتدى العريق والذى لم يبخل اعضائة على اى شخص...
لا تأخد ال id بل خذ ال name

RE: اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده - alsalamoni - 29-01-20

(29-01-20, 11:31 PM)ابو روضة كتب :
مع انى قولت مش هارد على اى موضوع لك مرة أخرى لآنك بتتجاهل من يحل لك لكن عشان خاطرى
هذا المنتدى العريق والذى لم يبخل اعضائة على اى شخص...
لا تأخد ال id بل خذ ال name

معليش اخي

ازاي اخد ال name لاني لم اجد ByName الموجود ById ؟
واكيد حضرتك ما تقصد ByTagName

(29-01-20, 11:25 PM)اليوم السابع كتب :
(29-01-20, 10:47 PM)alsalamoni كتب :
(29-01-20, 10:09 PM)اليوم السابع كتب : اعمل فورم لي تسجيل الدخول الي جوجل
وكتبت الكود بهذا الشكل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click WebBrowser1.Navigate("https://accounts.google.com/signin/v2/identifier?service=youtube&uilel=3&passive=true&continue=https%3A%2F%2Fwww.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26app%3Ddesktop%26hl%3Dar%26next%3D%252F%253Fapp%253Ddesktop&hl=ar&ec=65620&flowName=GlifWebSignIn&flowEntry=ServiceLogin") End Sub

شكرا لك اخي ولكن عند تعديل الكود كما انت وضعته لم يكتب شئ في مكان الاميل

واخذت الid كما هو مظلل بالوان الاصفر

و وضعت الid بهذا الشكل في الكود في حدث الويب براوزر كومبليت

كود :

WebBrowser1.Document.GetElementById("identifierId").SetAttribute("value", TextBox3.Text)
ولكن ظهر هذا الخطاء

شغال، مفيهوش مشكله

حدث الويب براوزر كومبليت بيعمل اكثر من مره قبل ان ينتهي
لازم تتاكد ان وصل للنقطه التي تريدها بحيث تتاكد هذا الكود

كود :

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Dim element = WebBrowser1.Document.GetElementById("identifierId") If element IsNot Nothing Then element.SetAttribute("value", TextBox3.Text) End Sub

ايضا الاخ اقتبس مشاركتي فقط
ولم يوضح اذا اشتغل معاه ولا لسه،

RE: اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده - mohamedahmed1 - 30-01-20

السلام عليكم جرب كدا المشروع دا وقولي النتيجة

RE: اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده - ابو روضة - 30-01-20

كود :

WebBrowser1.Document.GetElementById("Email").InnerText = TextBox1.Text

 WebBrowser1.Document.GetElementById("signIn").InvokeMember("click")

Await Task.Delay(3000)

 WebBrowser1.Document.GetElementById("Passwd").InnerText = TextBox2.Text

        WebBrowser1.Document.GetElementById("signIn").InvokeMember("click")