[ابو روضة]

(30-07-18, 06:19 AM)elgokr كتب :

وعليكم السلام ورحمة الله وبركاته

حتى لا يروح ما قدمه الاخ GameOver

بدون اى جدوة ساضيف حاجة بسيطة فقط للاخ ابو روضة

حتى يعمل الكود كاملاً ويعرض جميع البيانات بالصفحة كما تريد

تتذكر موضوعك السابق بخصوص الضغط على زر المزيد

كل ما عليك فعله هو وضع كود الضغط على المزيد

فى بداية الزر لتنفيذ كود جلب محتوى الصفحة للاخ GameOver

بحيث عند الانتهاء ولم يعد يوجد كلمة المزيد

يقوم بتنفيذ كود الاخ GameOver مباشراً

انا لم اضع الكود لان سبق ووضحت الصورة لك اخى ابو روضة

واريد ان اري ستتمكن من فعل ما اقصده لوحدك ام انك حتى الان

لا تعلم كيفية استخدام الكود السابق مع الكود الحالى

مع انى اعلم جيداً انك ستتمكن من فعلها

سانتظر رؤية ردك والذى يحتوى على الكود كالماً بعد الانتهاء

حتى يعم الفائدة للجميع اذا كان احد يبحث بخصوص نفس الموضوع

وحتى ان لا تجعل ما قدمه الاخ GameOver ذهب بدون نفع

تحياتى لك

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

وهذا أول ما فكرت به فعلا اخى الجوكر وفضلت اجرب فيه بهذا الكود بعد ان وضعت الكود

الأول اللى فى موضوعى الذى أشرت عليه لكنه لم يفلح لآن هذا الزر لا يوجد به كلمة

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

الى مالانهاية.

 

PHP كود :

 Dim input As HtmlElementCollection
        input = WebBrowser1.Document.GetElementsByTagName("button")
        Dim ii As Integer
        For Each item As HtmlElement In input
            If item.InnerText = ("المزيد") Then
                item.InvokeMember("Click")
                Do
                    item.InvokeMember("Click")
                    If item.InnerText = ("") Then

                        Exit Do
                    End If
                    On Error Resume Next

                    Dim t As New Threading.Thread(AddressOf closeMsgbox)
                    t.Start(1) '1 = 1 second
                    ii += 1
                    MsgBox("الصفحة رقم " & ii)
                Loop
            End If
        Next item