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

عليكم السلام , ممكن توضيح للطلب أخي

(16-06-21, 04:36 PM)aldery كتب : [ -> ]عليكم السلام , ممكن توضيح للطلب أخي

(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

و عليكم السلام
ضع سرفر شغال لنجرب عليه

(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

(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 لايشتغل السيرفر

(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 لايشتغل السيرفر

تفضل اخي

(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}

(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

(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