تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعده : مش عارف اكتب الكود بشكل صحيح
#1
السلام عليكم ورحمه الله وبركاته 
اولا احب اشكر المهندس ابو روضه علي انه وجهني نحو طريق الselenium 
ثانيا انا مش عارف اكتب الكوده 
بستخدم من خلال الselenium انه يدخل الي الرابط ده 
https://web.whatsapp.com/send?phone=012865455125

من المفترض ان تظهر هذه الرساله (ان رقم الهاتف الذي تمت مشاركتة عبر الرابط غير صحيح)
انا عايز اكتب كود بحيث اذا ظهرت هذه الرساله تظهر مسدج بوكس تقول خطاء واذا لم تظهر هذه الرساله تظهر مسدج بوكس تقول صحيح
استخدمت هذا الكود بحيث ان ابحث عن الكلاس واستخدمه ولكن عده محاولات فاشله 
كود :
  Dim driver As IWebDriver
       driver = New ChromeDriver
       driver.Navigate().GoToUrl("https://web.whatsapp.com/send?phone=012865455125")
       Dim element As IWebDriver = driver.FindElement(By.ClassName("إن رقم الهاتف الذي تمت مشاركته عبر الرابط غير صحيح."))
     


الرد
#2
انت بتتعامل مع اسم الكلاس وليس نص العرض
كلاس _2Vo52
واللي هو في خاص بالـ div اللي تنعرض فيه الرسالة

جرب استبدل السطر بالتالي
كود :
       Dim element As IWebDriver = driver.FindElement(By.ClassName("_2Vo52"))

الرد
#3
(03-12-19, 11:41 PM)محمد كريّم كتب : انت بتتعامل مع اسم الكلاس وليس نص العرض
كلاس _2Vo52
واللي هو في خاص بالـ div اللي تنعرض فيه الرسالة

جرب استبدل السطر بالتالي
كود :
       Dim element As IWebDriver = driver.FindElement(By.ClassName("_2Vo52"))

طبعا كل الشكر للمتميز محمد كريم 
ولكن الفكره مش هنا الفكره كيف اكتب دله if بحيث اذا ظهرت هذه الرساله تظهر مسدج بوكس تقول غير صحيح واذا لم تظهر هذه الرساله تظهر مسدج بوكس تقول صحيح
الرد
تم الشكر بواسطة: ابراهيم ايبو , محمد كريّم , asemshahen5
#4
انت جبت الكائن اللي سميته element
فما عليك الا تتعامل مع خصائصه زي اي كائن ثاني
اعتبره تكست بوكس يا أخي  Big Grin

النص بيكون في
element.Text

اعمل شرط if على هذه القيمة

كود :
if(element.Text.equal("النص المطلوب البحث عنده"))
كمل زي شرط عادي


أرجو اني ما اخطأت في شيء
ملاحظة / انا ما بحبش فيجوال بيسك ومقرر مش حتعلم اكتب صيغتها ولكن احيانا باضطر فقط للرد على اسئلة الاعضاء

الرد
#5
(04-12-19, 12:36 AM)محمد كريّم كتب : انت جبت الكائن اللي سميته element
فما عليك الا تتعامل مع خصائصه زي اي كائن ثاني
اعتبره تكست بوكس يا أخي  Big Grin

النص بيكون في
element.Text

اعمل شرط if على هذه القيمة

كود :
if(element.Text.equal("النص المطلوب البحث عنده"))
كمل زي شرط عادي


أرجو اني ما اخطأت في شيء
ملاحظة / انا ما بحبش فيجوال بيسك ومقرر مش حتعلم اكتب صيغتها ولكن احيانا باضطر فقط للرد على اسئلة الاعضاء

للأسف مش هينفع جربت والله العظيم يا متميز وبرضو دون جدوي
الرد
تم الشكر بواسطة: ابراهيم ايبو , 3booody , asemshahen5
#6
اعتذر منك
كانت مجرد اجتهاد
ممكن انت مش بتوصل أصلا للـ div المطلوب كونه موجود داخل كائنات اخرى متشعبة او لكون الكلاس مستخدم في اكثر من مكان

جرب حظك مع By.cssSelector أو By.XPath
فهي حتشخليك تطلب الـ div بتفاصيل أكثر بحيث يجب هو نفسه

شرح جميل بالفيديو للبحث بالمسار XPAth
https://www.youtube.com/watch?v=tV7ziQCIZAg

الرد
#7
(04-12-19, 12:52 AM)محمد كريّم كتب : اعتذر منك
كانت مجرد اجتهاد
ممكن انت مش بتوصل أصلا للـ div المطلوب كونه موجود داخل كائنات اخرى متشعبة او لكون الكلاس مستخدم في اكثر من مكان

جرب حظك مع By.cssSelector أو By.XPath
فهي حتشخليك تطلب الـ div بتفاصيل أكثر بحيث يجب هو نفسه

شرح جميل بالفيديو للبحث بالمسار XPAth
https://www.youtube.com/watch?v=tV7ziQCIZAg

لا طبعا العفو انا اللي بهتذر طبعا 
لكن المشكله في الكلاس المشكله في بناء جمله ال if
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , asemshahen5
#8
عفواً اخى الكريم والشكر لله وحده....
أولاً ليس لدى واتساب لانى دخلت على الرابط فدخلنى على الصفحة الرئيسية مباشرة.
لكن عموما تكتب الكود هكذا مع تغير اسم الكلاس طبعا والتاج نيم

PHP كود :
Dim links driver.FindElements(By.TagName("button"))
 
       For Each item In links
            If item
.GetAttribute("className") = ("tweet-action EdgeButton EdgeButton--primary js-tweet-btn"Then
                MsgBox
(item.Text)
 
           End If
 
       Next item 

جرب وإن شاء الله ينفع معك
الرد
#9
(04-12-19, 01:24 AM)ابو روضة كتب : عفواً اخى الكريم والشكر لله وحده....
أولاً ليس لدى واتساب لانى دخلت على الرابط فدخلنى على الصفحة الرئيسية مباشرة.
لكن عموما تكتب الكود هكذا مع تغير اسم الكلاس طبعا والتاج نيم

PHP كود :
Dim links driver.FindElements(By.TagName("button"))
 
       For Each item In links
            If item
.GetAttribute("className") = ("tweet-action EdgeButton EdgeButton--primary js-tweet-btn"Then
                MsgBox
(item.Text)
 
           End If
 
       Next item 

جرب وإن شاء الله ينفع معك

ربنا ما يحرمنا منك يا قائد وطبعا الشكر لله ثم لك يا كبيرنا 
انا جربت و للأسف ماظبطش معايا الفكره كلها انا كنت عاوز اطور المشروع الخاص بالواتس اب اللي نزلته في المنتدي بحيث ان ممكن اضيف 100 رقم ويتم فلترتهم اللي فيهم واتس اب واللي مالهوش واتس اب من خلال هذه الرساله ولكن كما علمتنا يا قائد اشتغل في شئ اخري وهنلاقي الحل قدام عنينا
الرد
تم الشكر بواسطة: ابو روضة , 3booody , asemshahen5
#10
إقتباس :انا جربت و للأسف ماظبطش معايا الفكره كلها انا كنت عاوز اطور المشروع الخاص بالواتس اب اللي نزلته في المنتدي بحيث ان ممكن اضيف 100 رقم ويتم فلترتهم اللي فيهم واتس اب واللي مالهوش واتس اب من خلال هذه الرساله ولكن كما علمتنا يا قائد اشتغل في شئ اخري وهنلاقي الحل قدام عنينا

تسلم اخى ربنا يكرمك...

المشكلة أن سورس الصفحة ليس امامى كى أجد ما تريده...
يعنى أتريد جلب اشياء من الصفحة ؟
أم تريد الضغط على شيئ داخل الصفحة ؟
أياً كان ما تريده فيجب أن تكون الصفحة أمامى كى أحاول معها صح أم كلامى خطأ ؟
الرد
تم الشكر بواسطة: اليوم السابع , 3booody , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من اضافة الترليون لهذا الكود seif mohamed 0 153 27-01-20, 11:12 PM
آخر رد: seif mohamed
  ممكن تحويل هذا الكود ال .net mohamedahmed1 2 48 24-01-20, 12:44 PM
آخر رد: mohamedahmed1
  عدم إشتغال هذا الكود في معظم الحالات ahmedfa71 6 147 22-01-20, 05:16 PM
آخر رد: asemshahen5
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 7 244 21-01-20, 07:57 PM
آخر رد: abubasilIraq
Exclamation [VB.NET] هل يوجد ويب بروزر غير الويب البروزر الموجود على الفجوال بيسك ويعمل بشكل صحيح SnTnt 9 310 21-01-20, 07:45 PM
آخر رد: abubasilIraq
  سؤال بعد اذنكم مش عارف استخدم الكود ده اليوم السابع 5 170 20-01-20, 05:43 PM
آخر رد: عبد العزيز البسكري
  [سؤال] ما الخطأ في هذا الكود sawsan 2 101 17-01-20, 09:51 PM
آخر رد: sawsan
  مساعده عاجلة alshandodi 3 111 13-01-20, 06:41 AM
آخر رد: alshandodi
  مشكلة في الكود اسامه الهرماوي 3 153 10-01-20, 03:27 AM
آخر رد: اسامه الهرماوي
  [سؤال] اين الخطأ في هذا الكود اليوم السابع 21 492 06-01-20, 11:40 AM
آخر رد: جميل

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


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