(04-12-19, 02:09 AM)ابو روضة كتب : [ -> ]إقتباس :انا جربت و للأسف ماظبطش معايا الفكره كلها انا كنت عاوز اطور المشروع الخاص بالواتس اب اللي نزلته في المنتدي بحيث ان ممكن اضيف 100 رقم ويتم فلترتهم اللي فيهم واتس اب واللي مالهوش واتس اب من خلال هذه الرساله ولكن كما علمتنا يا قائد اشتغل في شئ اخري وهنلاقي الحل قدام عنينا
تسلم اخى ربنا يكرمك...
المشكلة أن سورس الصفحة ليس امامى كى أجد ما تريده...
يعنى أتريد جلب اشياء من الصفحة ؟
أم تريد الضغط على شيئ داخل الصفحة ؟
أياً كان ما تريده فيجب أن تكون الصفحة أمامى كى أحاول معها صح أم كلامى خطأ ؟
يا قائد عمر ما كان كلامك غلط حتي لو تلاحظ من يوم ما قولتلي تابع هذه الدوره وانا مختفي انا باخد كلامك قانون
كل الفكره ان انا بدخل علي اللينك ده
https://web.whatsapp.com/send?phone=012865455125
مع تغير الرقم كل مره فالو الرقم ليسه لديه واتس اب ستظهر رساله تقول ان الرقم ليس له واتس اب كما ظاهر في الصوره
ولو له واتس اب مش هتظهر هذه الرساله انا قولت استغل هذه النقطه بحيث ان اقدر افلتر الارقام
رايتها في اكثر من برنامج ولكن للأسف كلها برامج مدفوعه
حبيب قلبى منا عشان أدخل على هذا الرابط
https://web.whatsapp.com/send?phone=012865455125
لازم اكون موصل موبيالى بالكمبيوتر على ما أعتقد مع تغير الرقم لكن انا مش بستعمل الواتس اصلا
وبالتالى موبيالى مش متوصل ومؤكد لم تظهر لى أى رسالة وبالتالى بدخلنى على هنا https://web.whatsapp.com/
أو جرب هذا الكود أخى لعل وعسى
كود :
Dim dd As IWebElement = driver.FindElement(By.ClassName("إن رقم الهاتف الذي تمت مشاركته عبر الرابط غير صحيح."))
MsgBox(dd.Text)
(04-12-19, 07:10 PM)محمد كريّم كتب : [ -> ]حبيبي ابوروضة
FindElement(By.ClassName)
معناها تبحث عن كائن بمعلومية اسم كلاس الستايل المسند إليه
انت كررت نفس الخطأ
شوف تعليقي http://vb4arb.com/vb/showthread.php?tid=...#pid152923
لا يا غالى لم أغلط لآنه كاتب اسم الكلاس فوق نفس اسم الكلاس الذى كتبته له ومقصدى
أن يضع اسم الكلاس بدلا من " إن رقم الهاتف الذي تمت مشاركته عبر الرابط غير صحيح "
فأنت وغيرك هنا ماشاء الله عباقرة فى البرمجة ولا أفهم الكثير مثلكم
لكن هنا وفى برمجة الويب بالتحديد بفضل الله ثم أنتم وغيركم قليل جدا ما أغلط حاليا فيه.
وكتبت له هذا فى الأعلى
إقتباس :
كود :
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
(04-12-19, 08:00 PM)ابو روضة كتب : [ -> ] (04-12-19, 07:10 PM)محمد كريّم كتب : [ -> ]حبيبي ابوروضة
FindElement(By.ClassName)
معناها تبحث عن كائن بمعلومية اسم كلاس الستايل المسند إليه
انت كررت نفس الخطأ
شوف تعليقي http://vb4arb.com/vb/showthread.php?tid=...#pid152923
لا يا غالى لم أغلط لآنه كاتب اسم الكلاس فوق نفس اسم الكلاس الذى كتبته له ومقصدى
أن يضع اسم الكلاس بدلا من " إن رقم الهاتف الذي تمت مشاركته عبر الرابط غير صحيح "
فأنت وغيرك هنا ماشاء الله عباقرة فى البرمجة ولا أفهم الكثير مثلكم
لكن هنا وفى برمجة الويب بالتحديد بفضل الله ثم أنتم وغيركم قليل جدا ما أغلط حاليا فيه.
وكتبت له هذا فى الأعلى
إقتباس :
كود :
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
انا طبعا بشكركم جميعا والله واسف علي عدم تفاعلي في الموضوع من امبارح وذلك بسبب سوء الانترنت
والله قاعد بجرد وبحاول وبدعي من الله عز وجل ان ينور بصيرتي ويلهمني الحل
