[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