تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكل في listview
#1
السلام عليكم احبابي في الله 


واجهت مشكلة في listview
كيفية نشر هذا الكود وتشغيله على vlc

http://iptv-line.com:6969/get.php?username=C8ZRt7rvEQ&password=THNYHz29Sj&type=m3u
الرد
تم الشكر بواسطة:
#2
عليكم السلام , ممكن توضيح للطلب أخي
الْحَمْدُ لِلَّهِ حَمْدًا كَثِيرًا طَيِّبًا مُبَارَكًا فِيهِ

رَبِّي أَرْزُقْنِي مُسْتَقْبَلاً أَجَمَلَ مِمَّا تَمَنَّيْتُ

وَاَجْعَل لِي فِيْ هَذِهِ الدُّنْيَا - أُنَاساً يَدْعُونَ لِي بَعْدَ أَنْ أَغِيْب

حسابي في تلكرام

الرد
تم الشكر بواسطة: crazykinko
#3
(16-06-21, 04:36 PM)aldery كتب : عليكم السلام , ممكن توضيح للطلب أخي

عند ادخال سيرفر m3u في البرنامج تاتي على شكل قائمة مثل في الصورة مثل vlc

http://iptv-line.com:6969/get.php?username=C8ZRt7rvEQ&password=THNYHz29Sj&type=m3u




[صورة مرفقة: 484973431.png]
الرد
تم الشكر بواسطة:
#4
(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




[صورة مرفقة: 484973431.png]

و عليكم السلام
ضع سرفر شغال لنجرب عليه
الرد
تم الشكر بواسطة: crazykinko
#5
(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
الرد
تم الشكر بواسطة:
#6
(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 لايشتغل السيرفر
الرد
تم الشكر بواسطة:
#7
(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
الرد
تم الشكر بواسطة: crazykinko
#8
(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

بارك الله فيك اخي المشكل في قائمة هل هنالك حل تأتي تحت بعض إسم القنوات
[صورة مرفقة: 762372842.png]

هل الرابط هذا لايتغير http://assatira-connect.net/FirAs_HamDan...0}&link={1}
الرد
تم الشكر بواسطة:
#9
(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

بارك الله فيك اخي المشكل في قائمة هل هنالك حل تأتي تحت بعض إسم القنوات
[صورة مرفقة: 762372842.png]

هل الرابط هذا لايتغير http://assatira-connect.net/FirAs_HamDan...0}&link={1}

في اعدادات listview
view ضعها detail
الرد
تم الشكر بواسطة:
#10
(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


[صورة مرفقة: 373918023.png]

تم شكرا لك 

هل في حالة تغيير السيرفر 
اخير user aget و server 
فقط
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [سؤال] مشكل في build و dubug.... لا يقوم بحفظ التعديلات على المشروع bilgacim 3 135 23-07-21, 12:25 AM
آخر رد: bilgacim
  [سؤال] كيفية انشاء عموداين ادخل listview alims 2 305 09-06-21, 12:45 AM
آخر رد: alims
  [VB.NET] مشكل في request trakktour 0 182 08-06-21, 02:35 AM
آخر رد: trakktour
  [VB.NET] استعراض صورة داخل listview سلامات 2 419 10-05-21, 12:39 AM
آخر رد: سلامات
  مشكل عمل رابط يفتح على لوكال bden1 1 342 03-05-21, 08:35 PM
آخر رد: bidaya
  [سؤال] سؤال عن ListView و الربط مع قاعدة البيانات alims 1 418 18-03-21, 01:59 AM
آخر رد: alims
  [VB.NET] مشكل مع VLC paveldida 1 282 06-02-21, 12:46 AM
آخر رد: ميدو الفنان
  ربط listview ب database سلام و محبه 1 328 28-01-21, 08:50 PM
آخر رد: سلام و محبه
  [VB.NET] مشكل Microsoft.SqlServer.BatchParser tahaayyoub 0 330 26-01-21, 04:27 PM
آخر رد: tahaayyoub
  [VB.NET] حل مشكل عند تنصيب البرنامج عند العميل tahaayyoub 1 386 25-01-21, 09:55 PM
آخر رد: moosa_alabri

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم