15-04-16, 01:58 PM
PHP كود :
Imports System.Net
Imports System.Text
Public Class Form1
'http://www.connectionstrings.com/
Dim lnk As New List(Of String)
Private Function ghtml(ByVal url As String) As String
Dim html As String = ""
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
html = wc.DownloadString(url)
Return html
End Function
Private Function gstring(ByVal html As String) As String
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(html)
Return doc.DocumentNode.SelectSingleNode("//div[@id='main']").InnerText
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim html As String = ""
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
html = wc.DownloadString("http://www.connectionstrings.com")
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(html)
For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@id='wpcsindex']/ul[@class='cols two']/li/a")
ComboBox1.Items.Add(nod.InnerText.Trim)
lnk.Add("http://www.connectionstrings.com/" & nod.Attributes("href").Value)
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex = -1 Then Exit Sub
TextBox1.Text = gstring(ghtml(lnk(ComboBox1.SelectedIndex)))
End Sub
End Class