تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده
#1
اعمل فورم لي تسجيل الدخول الي جوجل 
وكتبت الكود بهذا الشكل 
كود :
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)
ولكن ظهر هذا الخطاء 

الرد }}}
تم الشكر بواسطة:
#2
(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
الرد }}}
تم الشكر بواسطة: اليوم السابع , mohamedahmed1 , mohamedahmed1
#3
(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 بهذا الشكل في الكود في حدث الويب براوزر كومبليت 
كود :
       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
الرد }}}
تم الشكر بواسطة: mohamedahmed1 , mohamedahmed1
#4
مع انى قولت مش هارد على اى موضوع لك مرة أخرى لآنك بتتجاهل من يحل لك لكن عشان خاطر
هذا المنتدى العريق والذى لم يبخل اعضائة على اى شخص...
لا تأخد ال id  بل خذ ال name
الرد }}}
تم الشكر بواسطة: mohamedahmed1 , boudyonline , ابراهيم ايبو , asemshahen5
#5
(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 بهذا الشكل في الكود في حدث الويب براوزر كومبليت 
كود :
       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

ايضا الاخ اقتبس مشاركتي فقط
ولم يوضح اذا اشتغل معاه ولا لسه،
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم جرب كدا المشروع دا وقولي النتيجة


الملفات المرفقة
.rar   google.rar (الحجم : 74.54 ك ب / التحميلات : 11)
[صورة مرفقة: p_1583w56341.gif]
الرد }}}
تم الشكر بواسطة:
#7
كود :
WebBrowser1.Document.GetElementById("Email").InnerText = TextBox1.Text
 WebBrowser1.Document.GetElementById("signIn").InvokeMember("click")
Await Task.Delay(3000)
 WebBrowser1.Document.GetElementById("Passwd").InnerText = TextBox2.Text
        WebBrowser1.Document.GetElementById("signIn").InvokeMember("click")
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
Heart اقدم لكم هدية تصفح منتدى vb4arb.com بشكل أفضل من قبل مع ( vb4arb Code Highlighter ) عبدالله الدوسري 5 1,716 24-01-24, 10:31 PM
آخر رد: annagui
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  الفرق بين تاريخين على أن يظهر الناتج بعدد الاشهر boofa2022 4 261 03-01-24, 11:21 AM
آخر رد: boofa2022
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  اجو المساعده فى عمل تقرير خالد كامل1 3 293 24-12-23, 04:12 PM
آخر رد: خالد كامل1
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  كيف يتم تعبئة قريد فيو بدون قاعدة بيانات بشكل مباشر؟ nowiglah 1 375 01-12-23, 10:57 PM
آخر رد: Taha Okla

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


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