[سعود]

PHP كود :

Public Class Form1
    Dim ax, ay As Integer, dr As Boolean
    Dim WithEvents wb As New WebBrowser
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.mloc = Me.Location
        My.Settings.Save()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Location = My.Settings.mloc
    End Sub
    Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Me.Left
            ay = MousePosition.Y - Me.Top
        End If
    End Sub
    Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If dr Then
            Me.Left = MousePosition.X - ax
            Me.Top = MousePosition.Y - ay
        End If
    End Sub
    Private Sub Form1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        dr = False
    End Sub
    Private Sub btnget_Click(sender As System.Object, e As System.EventArgs) Handles btnget.Click
        wb.Navigate(TextBox1.Text)
    End Sub
    Private Sub wb_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wb.DocumentCompleted
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(wb.DocumentText)
        For Each t As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@class='ads__item__info']//a")
            ListBox1.Items.Add(t.InnerText.Trim)
        Next
    End Sub
End Class 


وسوم الـ Html الصافية و غير المشفرة لن تجد افضل من ملف HtmlAgilityPack.dll 

لاستخراج ما تريد من اي صفحة