[سعود]

احببت المشاركة بهذا الموضوع

PHP كود :

Imports System.Text
Imports System.Net
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim hosturl As String = "http://www.tubeoffline.com/downloadFrom.php?host="
        hosturl = hosturl.Insert(hosturl.Length, TextBox1.Text)
        '  MsgBox(hosturl)
        Dim h As New HtmlAgilityPack.HtmlWeb
        Dim d As HtmlAgilityPack.HtmlDocument = h.Load(hosturl, "Get")
        Dim content As HtmlAgilityPack.HtmlNode = d.DocumentNode.SelectSingleNode("//table")
        dg.Rows.Clear()
        For r As Integer = 1 To content.ChildNodes.Count - 2
            Dim row As HtmlAgilityPack.HtmlNode = content.ChildNodes(r)
            Dim td1 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[1]")(r).InnerText))
            Dim td2 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[2]")(r).InnerText))
            Dim td3 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[3]/a")(r).Attributes("href").Value))
            dg.Rows.Add(td1, td2, td3)
        Next
    End Sub
End Class