تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حول ظهور النافذة الاولى عند الضغط على Menustrip2 في النافذة الثانية vb.net 2012 mh66 0 244 19-10-23, 09:05 AM
آخر رد: mh66
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 21 11,884 03-06-23, 04:56 AM
آخر رد: سعود
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 1 1,108 29-09-22, 09:55 AM
آخر رد: mohamedassim
Question [VB.NET] استفسار حول طريقة الضغط على زر برمجيا lmofallis 4 3,824 01-06-22, 12:02 PM
آخر رد: عبد الجليل سراج
  السلام عليكم مشلكه عند الغاء التحديث الضغط علي no حدث CellEndEdit ahmedhhh2 1 791 11-02-22, 09:55 PM
آخر رد: ahmedhhh2
  أريد كود يعمل عمل لصق للنص Past عند الضغط علي زر بوتن ؟ DanyGhost2010 2 4,181 29-12-21, 10:56 AM
آخر رد: سعود
Heart [سؤال] المطلوب كود فيجوال VB لجعل TEXTBOX تساوي datagridview عند الضغط bilgacim 5 1,457 15-08-21, 12:15 AM
آخر رد: ابراهيم ايبو
  عرض معلومات DataGridView في فورم أخر عند الضغط على الاسم aldery 9 3,291 11-06-21, 06:23 PM
آخر رد: sayyad
  [سؤال] الضغط على زر حسن الجلب 3 1,093 15-05-21, 09:35 PM
آخر رد: ابو انس
  [سؤال] كيفية تغير الكلام في البوتون عند الضغط bilqees36 2 1,370 08-04-21, 05:02 PM
آخر رد: bilqees36

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


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