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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [VB.NET] استفسار حول طريقة الضغط على زر برمجيا lmofallis 4 3,062 01-06-22, 12:02 PM
آخر رد: عبد الجليل سراج
  السلام عليكم مشلكه عند الغاء التحديث الضغط علي no حدث CellEndEdit ahmedhhh2 1 364 11-02-22, 09:55 PM
آخر رد: ahmedhhh2
  أريد كود يعمل عمل لصق للنص Past عند الضغط علي زر بوتن ؟ DanyGhost2010 2 3,501 29-12-21, 10:56 AM
آخر رد: سعود
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 0 465 29-11-21, 06:53 PM
آخر رد: جيولوجي مبتدئ
Heart [سؤال] المطلوب كود فيجوال VB لجعل TEXTBOX تساوي datagridview عند الضغط bilgacim 5 868 15-08-21, 12:15 AM
آخر رد: ابراهيم ايبو
  عرض معلومات DataGridView في فورم أخر عند الضغط على الاسم aldery 9 2,449 11-06-21, 06:23 PM
آخر رد: sayyad
  [سؤال] الضغط على زر حسن الجلب 3 616 15-05-21, 09:35 PM
آخر رد: ابو انس
  [سؤال] كيفية تغير الكلام في البوتون عند الضغط bilqees36 2 937 08-04-21, 05:02 PM
آخر رد: bilqees36
  الضغط علي زر اليوم السابع 4 945 19-01-21, 09:31 PM
آخر رد: اليوم السابع
  عند الضغط على مفتاح enter من لوحة المفاتيح EHAB.NET 7 6,226 27-11-20, 07:15 PM
آخر رد: Anas Mahmoud

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


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