محتاج كود تسجيل في حساب في الانستجرام حاولت انفذها من خلال GetElementsByTagName
ولكن ليس لهم اي id جربت الكود ده في زر بوتن كان بيحولني علي الفيس بوك لأن يوجد كلاس يحمل نفس الاسم كيف يمكن ان انفذ ذلك
كود :
Dim SS As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
For Each bt As HtmlElement In SS
If bt.GetAttribute("className") = "sqdOP L3NKy y3zKF " Then
bt.InvokeMember("click")
End If
Next
هذا كود تسجيل الدخول ويعمل مع الرابط
https://www.instagram.com/accounts/login
كود :
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("username")(0).Focus()
SendKeys.Send(TextBox1.Text)
Application.DoEvents()
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("password")(0).Focus()
SendKeys.Send(TextBox2.Text)
Application.DoEvents()
With WebBrowser1.Document.GetElementsByTagName("button").Cast(Of HtmlElement).Where(Function(x) x.GetAttribute("type").Equals("submit"))(0)
.Focus()
.InvokeMember("click")
End With
(14-11-19, 05:53 AM)smalw كتب : [ -> ]هذا كود تسجيل الدخول ويعمل مع الرابط https://www.instagram.com/accounts/login
كود :
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("username")(0).Focus()
SendKeys.Send(TextBox1.Text)
Application.DoEvents()
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("password")(0).Focus()
SendKeys.Send(TextBox2.Text)
Application.DoEvents()
With WebBrowser1.Document.GetElementsByTagName("button").Cast(Of HtmlElement).Where(Function(x) x.GetAttribute("type").Equals("submit"))(0)
.Focus()
.InvokeMember("click")
End With
شكرا اخي علي مساعدتك ولكن انا اريد كود لي انشاء حساب وليس تسجيل الدخول
انا لدي علي الفورم 4 تكست بوكس اريد ان اكتب فيهم الاميل والاسم واليوزر نيم و الباسورد واضغط علي الزر ينشاء حساب جديد اتمني ان اكون وفقت في الشرح المطلوب
كان ممكن تتعب نفسك قليلا وتستفيد من الكود بتعديله وتكسب خبره بيدك لكن !!!
هذا كود تسجيل حساب جديد ويعمل مع الرابط
https://www.instagram.com/accounts/emailsignup
كود :
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("emailOrPhone")(0).Focus()
SendKeys.Send(TextBox1.Text)
Application.DoEvents()
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("fullName")(0).Focus()
SendKeys.Send(TextBox2.Text)
Application.DoEvents()
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("username")(0).Focus()
SendKeys.Send(TextBox3.Text)
Application.DoEvents()
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("password")(0).Focus()
SendKeys.Send(TextBox4.Text)
Application.DoEvents()
With WebBrowser1.Document.GetElementsByTagName("button").Cast(Of HtmlElement).Where(Function(x) x.GetAttribute("type").Equals("submit"))(0)
.Focus()
.InvokeMember("click")
End With
زي منت شايف هو نفس الكود السابق لكن طبع المبرمجين العرب غلاب
(14-11-19, 06:31 AM)smalw كتب : [ -> ]كان ممكن تتعب نفسك قليلا وتستفيد من الكود بتعديله وتكسب خبره بيدك لكن !!!
هذا كود تسجيل حساب جديد ويعمل مع الرابط https://www.instagram.com/accounts/emailsignup
كود :
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("emailOrPhone")(0).Focus()
SendKeys.Send(TextBox1.Text)
Application.DoEvents()
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("fullName")(0).Focus()
SendKeys.Send(TextBox2.Text)
Application.DoEvents()
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("username")(0).Focus()
SendKeys.Send(TextBox3.Text)
Application.DoEvents()
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("password")(0).Focus()
SendKeys.Send(TextBox4.Text)
Application.DoEvents()
With WebBrowser1.Document.GetElementsByTagName("button").Cast(Of HtmlElement).Where(Function(x) x.GetAttribute("type").Equals("submit"))(0)
.Focus()
.InvokeMember("click")
End With
زي منت شايف هو نفس الكود السابق لكن طبع المبرمجين العرب غلاب
فعلا انت عندك حق لو كنت تعبت نفسي كنت وصلت للكود اولا انا متشكر لحضرتك جداااااا ثانيا حاضر هتعب نفسي بعد كده لأكتسب الخبره