07-09-22, 05:27 AM
السلام عليكم
كيفية اضافة سيرفر iptv وتشغيله في مشغل mpv
انا لقيت الموضوع ده واستاذ trakktour قام باعطاء صاحب الموضوع طريقة
جلب وتشغيل سيرفر iptv بداخل مشغل vlc وهذا هو الموضووع
http://vb4arb.com/vb/thread-38651-post-1...#pid174518
ولكن عند التجريب واجهت مشكلة عدم اشتغال البث المباشر
وده الكود
اعتقد ان المشكلة في الرابط : ("http://assatira-connect.net/FirAs_HamDane/player1.php?user={0}&link={1}", "DZAgexpl213", lien)
وايضا وجدت موضوع مشغل mpv بداخل الفورم وايضا نفس الشخص هو من قام باعطاء الكود الاول
رابط الموضوع : http://vb4arb.com/vb/thread-36844-post-1...#pid168641
الكود الموجود في الموضوع
فازاي اني اضيف سيرفر iptv بداخل listbox وتشغيلها في مشغل mpv
واكون شاكر جدا لحضراتكم واسف علي الاطالة
كيفية اضافة سيرفر 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
وايضا وجدت موضوع مشغل 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
واكون شاكر جدا لحضراتكم واسف علي الاطالة