[ابو روضة]

(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

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


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

الحقيقة فكرة جميلة جدا ونجحت فعلا لكن مش بيجلب كل المواضيع بل فقط بيجلب خمس  مواضيع

او ثمانية والصفحة اصلا مليئة بالصفحات....

هل هذه الفكرة تنفع مع اى موقع أم هذا فقط وشكرا لك كتير جدا