اختيار روابط معينة من بين روابط

كود :

Dim input As HtmlElementCollection

        input = WebBrowser1.Document.GetElementsByTagName("a")

        For Each item As HtmlElement In input

            If item.GetAttribute("href").Contains("googlevideo") Then

                ListBox1.Items.Add(item.GetAttribute("href"))

            End If

        Next item

كود :

       Dim input As HtmlElementCollection

        input = WebBrowser1.Document.GetElementsByTagName("td")

        For Each elem As HtmlElement In input

            Dim GetData_ As String = elem.OuterHtml.Replace("<TD>", "").Replace("</TD>", "").Replace("<A href=""", "").Replace(""" rel=""noreferrer nofollow"" download>DOWNLOAD</A>", "")

            If GetData_ IsNot Nothing Then

                TextBox1.Text += GetData_

            End If

        Next



        Dim Total_ As Integer = (TextBox1.Lines.Length - 1) / 3



        If Total_ = 12 Then

            For ii As Integer = 0 To TextBox1.Lines.Length - 1

                If ii = 15 Or ii = 30 Or ii = 33 Or ii = 36 Then

                    ListBox1.Items.Add(TextBox1.Lines(ii))

                End If

            Next

        ElseIf Total_ = 15 Then

            For ii As Integer = 0 To TextBox1.Lines.Length - 1

                If ii = 18 Or ii = 21 Or ii = 39 Or ii = 42 Or ii = 45 Then

                    ListBox1.Items.Add(TextBox1.Lines(ii))

                End If

            Next

        ElseIf Total_ = 17 Then

            For ii As Integer = 0 To TextBox1.Lines.Length - 1

                If ii = 21 Or ii = 24 Or ii = 45 Or ii = 48 Or ii = 51 Then

                    ListBox1.Items.Add(TextBox1.Lines(ii))

                End If

            Next

        End If

        Button1.Enabled = False

كود :

Dim Total_ As Integer = (TextBox2.Lines.Length - 1) / 3

كود :

If Total_ = 12 Then

ElseIf Total_ = 15 Then

ElseIf Total_ = 17 Then

PHP كود :

http://www.tubeoffline.to/downloadFrom.php?host=OnLine&d=&video=https://www.youtube.com/watch?v=sThzWbKBzS0

PHP كود :

http://www.tubeoffline.to/downloadFrom.php?host=OnLine&d=&video=https://www.youtube.com/watch?v=2ZuDh0vqxUE

PHP كود :

http://www.tubeoffline.to/downloadFrom.php?host=OnLine&d=&video=https://www.youtube.com/watch?v=btUPp-VJGos