المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة :
4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
16-06-21, 01:10 AM
(آخر تعديل لهذه المشاركة : 16-06-21, 01:17 AM {2} بواسطة crazykinko.)
السلام عليكم احبابي في الله
واجهت مشكلة في listview
كيفية نشر هذا الكود وتشغيله على vlc
http://iptv-line.com:6969/get.php?username=C8ZRt7rvEQ&password=THNYHz29Sj&type=m3u
المشاركات : 139
المواضيع 52
الإنتساب : Mar 2018
السمعة :
11
الشكر: 90
تم شكره 127 مرات في 74 مشاركات
عليكم السلام , ممكن توضيح للطلب أخي
الْحَمْدُ لِلَّهِ حَمْدًا كَثِيرًا طَيِّبًا مُبَارَكًا فِيهِ
رَبِّي أَرْزُقْنِي مُسْتَقْبَلاً أَجَمَلَ مِمَّا تَمَنَّيْتُ
وَاَجْعَل لِي فِيْ هَذِهِ الدُّنْيَا - أُنَاساً يَدْعُونَ لِي بَعْدَ أَنْ أَغِيْب
حسابي في تلكرام
المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة :
4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
(16-06-21, 04:36 PM)aldery كتب : عليكم السلام , ممكن توضيح للطلب أخي
عند ادخال سيرفر m3u في البرنامج تاتي على شكل قائمة مثل في الصورة مثل vlc
http://iptv-line.com:6969/get.php?username=C8ZRt7rvEQ&password=THNYHz29Sj&type=m3u
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(16-06-21, 05:03 PM)crazykinko كتب : (16-06-21, 04:36 PM)aldery كتب : عليكم السلام , ممكن توضيح للطلب أخي
عند ادخال سيرفر m3u في البرنامج تاتي على شكل قائمة مثل في الصورة مثل vlc
http://iptv-line.com:6969/get.php?username=C8ZRt7rvEQ&password=THNYHz29Sj&type=m3u
و عليكم السلام
ضع سرفر شغال لنجرب عليه
المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة :
4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
17-06-21, 03:26 PM
(آخر تعديل لهذه المشاركة : 17-06-21, 03:27 PM {2} بواسطة crazykinko.)
(17-06-21, 02:45 PM)trakktour كتب : (16-06-21, 05:03 PM)crazykinko كتب : (16-06-21, 04:36 PM)aldery كتب : عليكم السلام , ممكن توضيح للطلب أخي
و عليكم السلام
ضع سرفر شغال لنجرب عليه
شكرا لك اخي
تفضل
http://62.171.175.99:25461/get.php?usern...p&type=m3u
لكن هاذا user
:http-user-agent=DZAgexpl213
المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة :
4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
(17-06-21, 02:45 PM)trakktour كتب : و عليكم السلام
ضع سرفر شغال لنجرب عليه
شكرا لك اخي
تفضل
http://62.171.175.99:25461/get.php?usern...p&type=m3u
لكن هاذا user agent
:http-user-agent=DZAgexpl213
اخي السيرفر بلا user agent لايشتغل السيرفر
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(18-06-21, 12:53 AM)crazykinko كتب : (17-06-21, 02:45 PM)trakktour كتب : و عليكم السلام
ضع سرفر شغال لنجرب عليه
شكرا لك اخي
تفضل
http://62.171.175.99:25461/get.php?usern...p&type=m3u
لكن هاذا user agent
:http-user-agent=DZAgexpl213
اخي السيرفر بلا user agent لايشتغل السيرفر
تفضل اخي
كود :
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
المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة :
4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
(18-06-21, 03:43 AM)trakktour كتب : تفضل اخي
كود :
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_HamDan...0}&link={1}
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(18-06-21, 03:59 PM)crazykinko كتب : (18-06-21, 03:43 AM)trakktour كتب : تفضل اخي
كود :
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_HamDan...0}&link={1}
في اعدادات listview
view ضعها detail
المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة :
4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
18-06-21, 04:48 PM
(آخر تعديل لهذه المشاركة : 18-06-21, 04:56 PM {2} بواسطة crazykinko.)
(18-06-21, 04:40 PM)trakktour كتب : (18-06-21, 03:59 PM)crazykinko كتب : (18-06-21, 03:43 AM)trakktour كتب : تفضل اخي
في اعدادات listview
view ضعها detail
اين اخي لم اجدها
(18-06-21, 04:40 PM)trakktour كتب : في اعدادات listview
view ضعها detail
تم شكرا لك
هل في حالة تغيير السيرفر
اخير user aget و server
فقط
|