منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
كيفية اضافة سيرفر 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
واكون شاكر جدا لحضراتكم واسف علي الاطالة

up up up up

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

sascoxat

sascoxat