منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET مشكل في listview
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
مشكل في listview
crazykinko مبتعد
عضو مبدع
المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة : 4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
#1
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
البحث
الرد }}}
تم الشكر بواسطة:
aldery غير متصل
عضو مبدع
المشاركات : 139
المواضيع 52
الإنتساب : Mar 2018
السمعة : 11
الشكر: 90
تم شكره 127 مرات في 74 مشاركات
#2
16-06-21, 04:36 PM
عليكم السلام , ممكن توضيح للطلب أخي
الْحَمْدُ لِلَّهِ حَمْدًا كَثِيرًا طَيِّبًا مُبَارَكًا فِيهِ

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

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

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

البحث
الرد }}}
تم الشكر بواسطة: crazykinko
crazykinko مبتعد
عضو مبدع
المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة : 4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
#3
16-06-21, 05:03 PM
(16-06-21, 04:36 PM)aldery كتب : عليكم السلام , ممكن توضيح للطلب أخي

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

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




[صورة مرفقة: 484973431.png]
البحث
الرد }}}
تم الشكر بواسطة:
trakktour غير متصل
عضو مبدع
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة : 26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
#4
17-06-21, 02:45 PM
(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
crazykinko مبتعد
عضو مبدع
المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة : 4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
#5
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
البحث
الرد }}}
تم الشكر بواسطة:
crazykinko مبتعد
عضو مبدع
المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة : 4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
#6
18-06-21, 12:53 AM
(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 لايشتغل السيرفر
البحث
الرد }}}
تم الشكر بواسطة:
trakktour غير متصل
عضو مبدع
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة : 26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
#7
18-06-21, 03:43 AM
(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
crazykinko مبتعد
عضو مبدع
المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة : 4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
#8
18-06-21, 03:59 PM
(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}
البحث
الرد }}}
تم الشكر بواسطة:
trakktour غير متصل
عضو مبدع
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة : 26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
#9
18-06-21, 04:40 PM
(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
البحث
الرد }}}
تم الشكر بواسطة:
crazykinko مبتعد
عضو مبدع
المشاركات : 87
المواضيع 32
الإنتساب : Nov 2020
السمعة : 4
الشكر: 12
تم شكره 38 مرات في 30 مشاركات
#10
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


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

تم شكرا لك 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة فى listview malekmohamed155 1 218 19-01-24, 06:19 PM
آخر رد: malekmohamed155
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 704 26-07-23, 05:47 AM
آخر رد: Taha Okla
  مشكل إختفاء الفرومات من مشروع YANNOURI 1 452 13-04-23, 03:41 AM
آخر رد: Taha Okla
  [VB.NET] مشكل ثقل الكريستال mostafa23 0 298 14-02-23, 11:31 AM
آخر رد: mostafa23
  د عند وضع رابط موقع على TEXBOX يفتح روابط موجودة في موقع M3U على LISTVIEW HASNI14 8 890 02-02-23, 06:51 PM
آخر رد: trakktour
  كيفية تشغيل هذا الرابط على ListView crazykinko 2 666 22-12-22, 12:12 PM
آخر رد: crazykinko
  سؤال في listview and excel اليوم السابع 0 254 16-12-22, 01:16 AM
آخر رد: اليوم السابع
  [VB.NET] حذف صف من listview Lathe1 0 470 07-10-22, 04:35 PM
آخر رد: Lathe1
  البحث داخل listview Lathe1 2 894 14-08-22, 09:51 PM
آخر رد: Taha Okla
  بحث داخل listview Lathe1 3 889 05-08-22, 07:28 PM
آخر رد: Lathe1

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


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