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
