اعمل فورم لي تسجيل الدخول الي جوجل
وكتبت الكود بهذا الشكل
كود :
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 بهذا الشكل في الكود في حدث الويب براوزر كومبليت
(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 بهذا الشكل في الكود في حدث الويب براوزر كومبليت
حدث الويب براوزر كومبليت بيعمل اكثر من مره قبل ان ينتهي
لازم تتاكد ان وصل للنقطه التي تريدها بحيث تتاكد هذا الكود
كود :
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
(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 بهذا الشكل في الكود في حدث الويب براوزر كومبليت
حدث الويب براوزر كومبليت بيعمل اكثر من مره قبل ان ينتهي
لازم تتاكد ان وصل للنقطه التي تريدها بحيث تتاكد هذا الكود
كود :
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
29-01-20, 11:31 PM (آخر تعديل لهذه المشاركة : 30-01-20, 03:53 PM {2} بواسطة ابو روضة.)
مع انى قولت مش هارد على اى موضوع لك مرة أخرى لآنك بتتجاهل من يحل لك لكن عشان خاطر هذا المنتدى العريق والذى لم يبخل اعضائة على اى شخص... لا تأخد ال id بل خذ ال name
29-01-20, 11:44 PM (آخر تعديل لهذه المشاركة : 29-01-20, 11:49 PM {2} بواسطة alsalamoni.)
(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 بهذا الشكل في الكود في حدث الويب براوزر كومبليت
حدث الويب براوزر كومبليت بيعمل اكثر من مره قبل ان ينتهي
لازم تتاكد ان وصل للنقطه التي تريدها بحيث تتاكد هذا الكود
كود :
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
ايضا الاخ اقتبس مشاركتي فقط
ولم يوضح اذا اشتغل معاه ولا لسه،