منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] سؤال بخصوص التسجيل في الانستجرام - نسخة قابلة للطباعة

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



سؤال بخصوص التسجيل في الانستجرام - bakriano30@yahoo.com - 14-11-19

محتاج كود تسجيل في حساب في الانستجرام حاولت انفذها من خلال 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



RE: سؤال بخصوص التسجيل في الانستجرام - smalw - 14-11-19

هذا كود تسجيل الدخول ويعمل مع الرابط 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



RE: سؤال بخصوص التسجيل في الانستجرام - bakriano30@yahoo.com - 14-11-19

(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 تكست بوكس اريد ان اكتب فيهم الاميل والاسم واليوزر نيم و الباسورد واضغط علي الزر ينشاء حساب جديد اتمني ان اكون وفقت في الشرح المطلوب


RE: سؤال بخصوص التسجيل في الانستجرام - smalw - 14-11-19

كان ممكن تتعب نفسك قليلا وتستفيد من الكود بتعديله وتكسب خبره بيدك لكن !!!
هذا كود تسجيل حساب جديد ويعمل مع الرابط 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

زي منت شايف هو نفس الكود السابق لكن طبع المبرمجين العرب غلاب


RE: سؤال بخصوص التسجيل في الانستجرام - bakriano30@yahoo.com - 14-11-19

(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

زي منت شايف هو نفس الكود السابق لكن طبع المبرمجين العرب غلاب

فعلا انت عندك حق لو كنت تعبت نفسي كنت وصلت للكود اولا انا متشكر لحضرتك جداااااا ثانيا حاضر هتعب نفسي بعد كده لأكتسب الخبره