د عند وضع رابط موقع على TEXBOX يفتح روابط موجودة في موقع M3U على LISTVIEW

PHP كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim searchstring As String = TextBox1.Text
        ListView1.SelectedIndices.Clear()
        For Each lvi As ListViewItem In ListView1.Items
            For Each lvisub As ListViewItem.ListViewSubItem In lvi.SubItems
                If lvisub.Text = searchstring Then
                    ListView1.SelectedIndices.Add(lvi.Index)
                    Exit For
                End If
            Next
        Next
        ListView1.Focus()
        'ضع هنا كود فتح الرابط
    End Sub

كود :

Imports System.Net

Imports System.Reflection

Imports System



Public Class Form1



   Private Function read_m3u() As String

       Dim Encoding As New Text.UTF8Encoding

       Dim Bytes As Byte() = Encoding.GetBytes("")

       Dim AJ As Net.HttpWebRequest = DirectCast(Net.WebRequest.Create("http://62.171.175.99:25461/get.php?username=6H8p5AOYS9&password=GNFkHrKCOp&type=m3u"), Net.HttpWebRequest)

       With AJ

           .Method = "GET"

           .Proxy = Nothing

           .UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/90.0.4430.93 Safari/537.36"

           .ContentLength = Bytes.Length

       End With

       Dim Response As Net.HttpWebResponse = DirectCast(AJ.GetResponse, Net.HttpWebResponse)

       Dim reader As New IO.StreamReader(Response.GetResponseStream) : Dim m3u As String = reader.ReadToEnd : reader.Dispose() : reader.Close() : Response.Dispose() : Response.Close()

       Return m3u

   End Function



   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       Dim list As New List(Of ListViewItem)

       Dim Lines As String() = read_m3u.Split(Global.Microsoft.VisualBasic.ChrW(10))

       Dim row(1) As String

       For Each line As String In Lines

           If line.Trim.StartsWith("#EXTINF") Then

               row(0) = line.Split(",")(1)



           ElseIf line.Trim.StartsWith("http://") Then

               row(1) = line.Trim

               list.Add(New ListViewItem(row))

           End If

       Next

       ListView1.Items.AddRange(list.ToArray)

   End Sub



End Class