تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الضغط على زر مشاهدة المزيد
#1
السلام عليكم
اخوتى بقوم بجلب روابط  المواضيع من هذه الصفحة http://www.storiesrealistic.com/category...%A8%D8%B1/

لكن هناك روابط اسفل ولابد من الضغط على زر مشاهدة المزيد لتظهر لى
وانا جلبتهم بهذا الكود

PHP كود :
Dim input As HtmlElementCollection
        input 
WebBrowser1.Document.GetElementsByTagName("a")
 
       For Each item As HtmlElement In input
            If item
.InnerText = ("مشاهدة المزيد"Then
                item
.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
               item.InvokeMember("Click")
 
           End If

 
       Next item 

لكن طبعا هذا الكود  item.InvokeMember("Click")مكرر كثيرا ويوقف المشروع وايضا مش بيجلبهم كلهم
فهل هناك طريقة للضغط على هذا الزر ليجلب أخره بدل ما اقعد أزيد فى هذا الكود item.InvokeMember("Click")
الرد
تم الشكر بواسطة:
#2
فى البداية استخدم الكود بهذا الشكل
كود :
Dim input As HtmlElementCollection
       input = WebBrowser1.Document.GetElementsByTagName("a")
       Dim ii As Integer
       For Each item As HtmlElement In input
           If item.InnerText = ("مشاهدة المزيد") Then
               Do
                   item.InvokeMember("Click")
                   If item.InnerText = ("لا يوجد المزيد") Then
                       Exit Do
                   End If
                   Dim t As New Threading.Thread(AddressOf closeMsgbox)
                   t.Start(1) '1 = 1 second
                   ii += 1
                   MsgBox("الصفحة رقم " & ii)
               Loop
           End If
       Next item

وايضاً اضف هذا الكود اسفل Public Class Form1
كود :
   Private Declare Sub keybd_event Lib "user32" _
                     (ByVal bVk As Byte,
                      ByVal bScan As Byte,
                      ByVal dwFlags As Byte,
                      ByVal dwExtraInfo As Byte)
   Private Const VK_RETURN As Byte = &HD
   Private Const KEYEVENTF_KEYDOWN As Byte = &H0
   Private Const KEYEVENTF_KEYUP As Byte = &H2

   Private Sub closeMsgbox(ByVal delay As Object)
       Threading.Thread.Sleep(CInt(delay) * 1000)
       AppActivate(Me.Text)
       keybd_event(VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0)
       keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0)
   End Sub

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: Done , ابو روضة , YousefOkasha , alsouf , سعود , princelovelorn
#3
والله ما عارف ماذا اقول لك اخى الجوكر انت ماشاء الله عليك حليت
مشاكل لناس كثيرة جدا ..

فجزاك الله كل خير
الرد
تم الشكر بواسطة:
#4
الحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#5
ما شاء الله ... دائما متالق اخي... جزاك الله الف خير و بركة
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [سؤال] المطلوب كود فيجوال VB لجعل TEXTBOX تساوي datagridview عند الضغط bilgacim 5 402 15-08-21, 12:15 AM
آخر رد: ابراهيم ايبو
  عرض معلومات DataGridView في فورم أخر عند الضغط على الاسم aldery 9 1,831 11-06-21, 06:23 PM
آخر رد: sayyad
  [سؤال] الضغط على زر حسن الجلب 3 362 15-05-21, 09:35 PM
آخر رد: ابو انس
  [سؤال] كيفية تغير الكلام في البوتون عند الضغط bilqees36 2 638 08-04-21, 05:02 PM
آخر رد: bilqees36
  الضغط علي زر اليوم السابع 4 623 19-01-21, 09:31 PM
آخر رد: اليوم السابع
  عند الضغط على مفتاح enter من لوحة المفاتيح EHAB.NET 7 5,592 27-11-20, 07:15 PM
آخر رد: Anas Mahmoud
  [سؤال] السلام عليكم موضوعي بخصوص ضغط وفك الضغط ولدي استفسارات اليوم السابع 0 366 11-11-20, 11:41 PM
آخر رد: اليوم السابع
  [سؤال] تغير لون Label عند الضغط عليه (على أساس إجابة صحيحة) HUNTER25 8 1,101 07-09-20, 01:56 AM
آخر رد: Hasaneen
  [سؤال] كيف اضع حدث الضغط click عند انشاء عنصر عبد الهادي بهاب 12 1,583 09-08-20, 05:00 PM
آخر رد: عبد الهادي بهاب
  هل من طريقة عند الضغط لطباعة ورقة يتم فتحها PDF ؟ Hazem1 0 585 07-07-20, 05:55 PM
آخر رد: Hazem1

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


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