تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة عرض هذه المواضيع بهذا الشكل
#1
السلام عليكم اخوتى
هناك موقع استشارات واريد جلب المواضيع منه بهذا الشكل بالصور اقصد والرابط ليتم وضعه
داخل المشروع بهذا الشكل ؟... وجزاكم الله كل خير


وهذا هو الموقع

الرد }}}
تم الشكر بواسطة:
#2
حرب هذا الكود، الفورم به WebBrowser و Button وبعد التشغيل انتظر حتى اكتمال الصفحة ثم اضغط الButton
كود :
Public Class Form1

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       WebBrowser1.Navigate("https://www.amrkhaled.net/Category/26/استشارات")

   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       Dim flow As New FlowLayoutPanel
       flow.Parent = Me
       flow.Dock = DockStyle.Fill
       flow.AutoScroll = True

       For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
           If element.GetAttribute("className").Contains("tagsNsearch-block lastid FunctionParm") Then

               Dim txt As String = element.InnerText.Trim
               Dim htm As String = element.OuterHtml

               Dim index1 As Integer = htm.IndexOf("<img class=""img-fluid lazy loaded"" src=""")
               Dim img As String = htm.Substring(index1 + 40, htm.IndexOf("""", index1 + 40) - (index1 + 40))

               Dim index2 As Integer = htm.IndexOf("<a class=""headline d-block w-100"" href=""")
               Dim lnk As String = htm.Substring(index2 + 40, htm.IndexOf("""", index2 + 40) - (index2 + 40))

               Dim pnl As New Panel
               pnl.Parent = flow
               pnl.Size = New Size(220, 222)
               pnl.BackColor = Color.White
               pnl.BorderStyle = BorderStyle.FixedSingle
               pnl.RightToLeft = Windows.Forms.RightToLeft.Yes

               Dim pct As New PictureBox
               pct.Parent = pnl
               pct.Size = New Size(220, 147)
               pct.SizeMode = PictureBoxSizeMode.Zoom
               pct.ImageLocation = img

               Dim lbl As New LinkLabel
               lbl.Parent = pnl
               lbl.Size = New Size(220, 75)
               lbl.AutoSize = False
               lbl.TextAlign = ContentAlignment.MiddleLeft
               lbl.LinkBehavior = LinkBehavior.NeverUnderline
               lbl.Top = 148
               lbl.Text = txt
               lbl.Tag = "https://www.amrkhaled.net/" & lnk
               AddHandler lbl.LinkClicked, AddressOf lbl_LinkClicked

           End If
       Next

       flow.BringToFront()

       Me.WindowState = FormWindowState.Maximized

   End Sub

   Private Sub lbl_LinkClicked(sender As System.Object, e As LinkLabelLinkClickedEventArgs)
       Dim link As String = sender.Tag
       MsgBox(link)
       Process.Start(link)
   End Sub

End Class

صراحة هذا الكود ليس لي، ولكن أكيد عدلت عليه بشكل بسيط، لانه نفس الفكرة التي طلبتها


قد يكون طريقة العرض لا تناسبك ولكن المهم الفكرة
الرد }}}
تم الشكر بواسطة: ابو روضة , dubai.eig , dubai.eig
#3
(30-07-18, 02:55 AM)GameOver كتب : حرب هذا الكود، الفورم به WebBrowser و Button وبعد التشغيل انتظر حتى اكتمال الصفحة ثم اضغط الButton
كود :
Public Class Form1

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       WebBrowser1.Navigate("https://www.amrkhaled.net/Category/26/استشارات")

   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       Dim flow As New FlowLayoutPanel
       flow.Parent = Me
       flow.Dock = DockStyle.Fill
       flow.AutoScroll = True

       For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
           If element.GetAttribute("className").Contains("tagsNsearch-block lastid FunctionParm") Then

               Dim txt As String = element.InnerText.Trim
               Dim htm As String = element.OuterHtml

               Dim index1 As Integer = htm.IndexOf("<img class=""img-fluid lazy loaded"" src=""")
               Dim img As String = htm.Substring(index1 + 40, htm.IndexOf("""", index1 + 40) - (index1 + 40))

               Dim index2 As Integer = htm.IndexOf("<a class=""headline d-block w-100"" href=""")
               Dim lnk As String = htm.Substring(index2 + 40, htm.IndexOf("""", index2 + 40) - (index2 + 40))

               Dim pnl As New Panel
               pnl.Parent = flow
               pnl.Size = New Size(220, 222)
               pnl.BackColor = Color.White
               pnl.BorderStyle = BorderStyle.FixedSingle
               pnl.RightToLeft = Windows.Forms.RightToLeft.Yes

               Dim pct As New PictureBox
               pct.Parent = pnl
               pct.Size = New Size(220, 147)
               pct.SizeMode = PictureBoxSizeMode.Zoom
               pct.ImageLocation = img

               Dim lbl As New LinkLabel
               lbl.Parent = pnl
               lbl.Size = New Size(220, 75)
               lbl.AutoSize = False
               lbl.TextAlign = ContentAlignment.MiddleLeft
               lbl.LinkBehavior = LinkBehavior.NeverUnderline
               lbl.Top = 148
               lbl.Text = txt
               lbl.Tag = "https://www.amrkhaled.net/" & lnk
               AddHandler lbl.LinkClicked, AddressOf lbl_LinkClicked

           End If
       Next

       flow.BringToFront()

       Me.WindowState = FormWindowState.Maximized

   End Sub

   Private Sub lbl_LinkClicked(sender As System.Object, e As LinkLabelLinkClickedEventArgs)
       Dim link As String = sender.Tag
       MsgBox(link)
       Process.Start(link)
   End Sub

End Class

صراحة هذا الكود ليس لي، ولكن أكيد عدلت عليه بشكل بسيط، لانه نفس الفكرة التي طلبتها


قد يكون طريقة العرض لا تناسبك ولكن المهم الفكرة

الحقيقة فكرة جميلة جدا ونجحت فعلا لكن مش بيجلب كل المواضيع بل فقط بيجلب خمس  مواضيع
او ثمانية والصفحة اصلا مليئة بالصفحات....
هل هذه الفكرة تنفع مع اى موقع أم هذا فقط وشكرا لك كتير جدا
الرد }}}
تم الشكر بواسطة:
#4
اذا الموقع يستخدم نفس الاسلوب فقط تحتاج تغيير بعض المسميات من رابط واسماء مكونات الصفحة

بخصوص الصفحات لا اعرفها فليس لي اهتمام بهكذا مواضيع لهذا لم تتكون لدي الخبرة لعملها
الرد }}}
تم الشكر بواسطة: sendbad100 , sendbad100 , ابو روضة
#5
وعليكم السلام ورحمة الله وبركاته

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

حتى يعمل الكود كاملاً ويعرض جميع البيانات بالصفحة كما تريد
تتذكر موضوعك السابق بخصوص الضغط على زر المزيد

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

بحيث عند الانتهاء ولم يعد يوجد كلمة المزيد
يقوم بتنفيذ كود الاخ GameOver مباشراً

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

سانتظر رؤية ردك والذى يحتوى على الكود كالماً بعد الانتهاء
حتى يعم الفائدة للجميع اذا كان احد يبحث بخصوص نفس الموضوع

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

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة , sendbad100 , dubai.eig
#6
(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 
الرد }}}
تم الشكر بواسطة:
#7
كل ما عليك اضافة التحقق التالى
كود :
                   If item.Style = "Display: none" Or item.Style = "display: none;" Then
                       Exit Do
                   End If

بدلاً من التحقق القديم اى اضف هذا التحقق اسفل
كود :
item.InvokeMember("Click")

وبكده سيعمل معك ويتم ايقاف العدد عند انتها واختفاء كلمة المزيد

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة , dubai.eig , dubai.eig
#8
(30-07-18, 02:42 PM)elgokr كتب : كل ما عليك اضافة التحقق التالى
كود :
                   If item.Style = "Display: none" Or item.Style = "display: none;" Then
                       Exit Do
                   End If

بدلاً من التحقق القديم اى اضف هذا التحقق اسفل
كود :
item.InvokeMember("Click")

وبكده سيعمل معك ويتم ايقاف العدد عند انتها واختفاء كلمة المزيد

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

هههه والله ما عارف اقولك ايه ولا ايه يا فنان..

والله انت بجد حاجة تشرف وكأن الله وضعك للغلابة اللى مثلى ومثل الكثير..
سؤال اخير لو تكرمت استاذى هو ينفع الغى الرسالة التى تظهر وتقول الصفحة رقم كذا وكذا ؟
لآنها صراحة رخمة شويتين
الرد }}}
تم الشكر بواسطة: elgokr
#9
على ايه بس انا لم افعل شي بل انت ما فعلت كل شي
ويرجع الفضل الى الاخ GameOver
فيما قدمه لك من كود لعرض المجتوى كما فى الموقع

وبخصوص الرسالة بالطبع يمكنك
ولكن قد يسبب التهنيج بالبرنامج
بسبب تنفيذ الاوامر باجمعها فى اقل من ثانية
يمكن تغيير نص الرسالة الى مثلاً جالى تحميل 
أو جلب جميع محتوى الصفحة وما شبه من رسالة

فكرة الرسالة هنا فقط هو توقف لثانية واحدة لاتمام الضغط على زر المزيد
بدلاً من ان تجد يقوم بالضغط عشارت المرات فى اقل من ثانية وقد تكون الصفحة لم تكتمل
وتجد بالنهاية ان البرنامج حدث له بعض التهنيج وبدلاً من ان يستغرض بالرسالة بعض الثواني
تجده بدون الرسالة مع التهنيج قد يصل الى دقائق وقد يصل انك تقوم باغلاق البرنامج

ويرجع ذلك الى حالة الجهاز

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة
#10
(30-07-18, 04:57 AM)GameOver كتب : اذا الموقع يستخدم نفس الاسلوب فقط تحتاج تغيير بعض المسميات من رابط واسماء مكونات الصفحة

بخصوص الصفحات لا اعرفها فليس لي اهتمام بهكذا مواضيع لهذا لم تتكون لدي الخبرة لعملها

تسلم أخى من كل شر وربنا يجزيك كل الخير يارب

(30-07-18, 03:05 PM)elgokr كتب :
وبخصوص الرسالة بالطبع يمكنك
ولكن قد يسبب التهنيج بالبرنامج
بسبب تنفيذ الاوامر باجمعها فى اقل من ثانية

طيب اخى ممكن الكود الذى يلغى هذه الرسالة وهاجرب وهاحاول معاه الله يكرمك 
وحاولت عمل هذا المشروع مثل اللى موجود فى هذا المووضوع لكن تعبت معاه جدا ومش لاقى حل له
والمشروع مرفق وسمحنى أخى


الملفات المرفقة
.zip   قصص مصورة للاطفال.zip (الحجم : 170.86 ك ب / التحميلات : 21)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 462 07-02-24, 08:59 PM
آخر رد: Kamil
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 347 10-12-23, 04:03 AM
آخر رد: Adel27213
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  طريقة تحويل الأرقام إلى حروف Adel27213 2 495 18-11-23, 01:40 AM
آخر رد: sniper2030
  التحكم فى عرض طريقة التاريخ فى الاداة datetimepicker Ahmed.vb 3 507 08-11-23, 01:27 AM
آخر رد: الحزين اليماني
  طريقة جلب صف من قاعدة البيانات بشرط العمود ٤ لا يساوي فارغ Adel27213 2 423 07-11-23, 05:02 AM
آخر رد: Adel27213
  طريقة نقل بيانات عمود من جدول إلى جدول اخر Adel27213 4 449 06-11-23, 07:35 AM
آخر رد: justforit

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


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