05-04-16, 06:53 AM
مثال بسيط جدا
PHP كود :
Imports System.Net
Imports System.Text
Public Class Form1
Dim link As String = My.Computer.FileSystem.ReadAllText("link.txt")
Private Sub getusers()
dg.Rows.Clear()
Dim html As String = ""
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
Dim url As String = link.Trim
html = wc.DownloadString(url)
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(html)
For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//table[@class='tborder']")
If nod.InnerText.Contains("المتواجدون الآن") Then
Dim nod2 As New HtmlAgilityPack.HtmlDocument
nod2.LoadHtml(nod.InnerHtml)
Dim un As New List(Of String)
Dim loca As New List(Of String)
For Each n As HtmlAgilityPack.HtmlNode In nod2.DocumentNode.SelectNodes("//tr/td[1]/a/span/strong")
If n.InnerText.Contains("إسم المستخدم") = False Then
un.Add(n.InnerText)
End If
Next
For Each n As HtmlAgilityPack.HtmlNode In nod2.DocumentNode.SelectNodes("//tr/td[3]/a[2]")
If n.InnerText.Contains("المكان") = False Then
loca.Add(n.InnerText)
End If
Next
For r = 0 To un.Count - 1
dg.Rows.Add(WebUtility.HtmlDecode(un(r)), WebUtility.HtmlDecode(loca(r)))
Next
End If
Next
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
getusers()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
getusers()
End Sub
End Class
عدلت غلط بسيط تركت الاول لمعرفة الفرق