[sascoxat]

السلام عليكم
كيفية اضافة سيرفر iptv وتشغيله في مشغل mpv
انا لقيت الموضوع ده واستاذ trakktour قام باعطاء صاحب الموضوع طريقة
جلب وتشغيل سيرفر iptv بداخل مشغل vlc وهذا هو الموضووع
http://vb4arb.com/vb/thread-38651-post-1...#pid174518
ولكن عند التجريب واجهت مشكلة عدم اشتغال البث المباشر
وده الكود

كود :

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

اعتقد ان المشكلة في الرابط : ("http://assatira-connect.net/FirAs_HamDane/player1.php?user={0}&link={1}", "DZAgexpl213", lien)
وايضا وجدت موضوع مشغل mpv بداخل الفورم وايضا نفس الشخص هو من قام باعطاء الكود الاول
رابط الموضوع : http://vb4arb.com/vb/thread-36844-post-1...#pid168641
الكود الموجود في الموضوع

كود :

  player = New MpvPlayer(Panel1.Handle) With {
          .[Loop] = True,
          .Volume = 50
      }
      player.Load("https://wer22.wertvlive.com/hls/disney.m3u8", "disney")
      player.[Resume]()

فازاي اني اضيف سيرفر iptv بداخل listbox وتشغيلها في مشغل mpv 
واكون شاكر جدا لحضراتكم واسف علي الاطالة

[sascoxat]

up up up up