تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال بخصوص التسجيل في الانستجرام
#1
محتاج كود تسجيل في حساب في الانستجرام حاولت انفذها من خلال 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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
هذا كود تسجيل الدخول ويعمل مع الرابط 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
الرد }}}
تم الشكر بواسطة: bakriano30@yahoo.com , baha , baha , asemshahen5
#3
(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 تكست بوكس اريد ان اكتب فيهم الاميل والاسم واليوزر نيم و الباسورد واضغط علي الزر ينشاء حساب جديد اتمني ان اكون وفقت في الشرح المطلوب
الرد }}}
تم الشكر بواسطة:
#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

زي منت شايف هو نفس الكود السابق لكن طبع المبرمجين العرب غلاب
الرد }}}
تم الشكر بواسطة: bakriano30@yahoo.com , ابو روضة , baha , asemshahen5 , asemshahen5
#5
(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

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

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



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم