[سعود]

مثال بسيط جدا

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 


---

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