منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الضغط على زر مشاهدة المزيد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الضغط على زر مشاهدة المزيد (/showthread.php?tid=25777)

الضغط على زر مشاهدة المزيد - ابو روضة - 18-07-18

السلام عليكم
اخوتى بقوم بجلب روابط  المواضيع من هذه الصفحة http://www.storiesrealistic.com/category/%D9%82%D8%B5%D8%B5-%D9%88%D8%B9%D8%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")

RE: الضغط على زر مشاهدة المزيد - elgokr - 18-07-18

فى البداية استخدم الكود بهذا الشكل
كود :
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

تحياتى لك
وتمنياتى لك التوفيق


RE: الضغط على زر مشاهدة المزيد - ابو روضة - 18-07-18

والله ما عارف ماذا اقول لك اخى الجوكر انت ماشاء الله عليك حليت
مشاكل لناس كثيرة جدا ..

فجزاك الله كل خير


RE: الضغط على زر مشاهدة المزيد - elgokr - 18-07-18

الحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق


RE: الضغط على زر مشاهدة المزيد - alsouf - 28-07-18

ما شاء الله ... دائما متالق اخي... جزاك الله الف خير و بركة