[VB.NET] كيفية اضافة سيرفر iptv وتشغيله

كود :
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 ListView1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseClick

       Dim lien As String = ListView1.SelectedItems(0).SubItems(1).Text

       Me.AxVLCPlugin21.playlist.[stop]()

       Me.AxVLCPlugin21.playlist.clear()

       Me.AxVLCPlugin21.playlist.add(String.Format("http://assatira-connect.net/FirAs_HamDane/player1.php?user={0}&link={1}", "DZAgexpl213", lien), Missing.Value, Missing.Value)

       Me.AxVLCPlugin21.playlist.play()

   End Sub



   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