[حاتمي]

ارجوك جاوب هذا سؤال لم اجد له اجاب لحد الان جاوبني ارجوك

[trakktour]

(06-03-19, 10:04 PM)حاتمي كتب : ارجوك جاوب هذا سؤال لم اجد له اجاب لحد الان جاوبني ارجوك

تفضل هذا ما تحتاجه

كود :

Try
           Dim raw As New WebClient
           Dim raw_pastbin As String = raw.DownloadString("https://pastebin.com/raw/tgfWfGc7")

           Dim hatmi As New List(Of ListViewItem)
           Dim Lines As String() = raw_pastbin.Split(vbNewLine)
           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
                   hatmi.Add(New ListViewItem(row))
               End If
           Next
           ListView1.Items.AddRange(hatmi.ToArray)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

كل ما عليك هو اضافة listview
بتوفيق ان شاء الله

[حاتمي]

(06-03-19, 11:28 PM)trakktour كتب :

(06-03-19, 10:04 PM)حاتمي كتب : ارجوك جاوب هذا سؤال لم اجد له اجاب لحد الان جاوبني ارجوك

تفضل هذا ما تحتاجه

كود :

Try
           Dim raw As New WebClient
           Dim raw_pastbin As String = raw.DownloadString("https://pastebin.com/raw/tgfWfGc7")

           Dim hatmi As New List(Of ListViewItem)
           Dim Lines As String() = raw_pastbin.Split(vbNewLine)
           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
                   hatmi.Add(New ListViewItem(row))
               End If
           Next
           ListView1.Items.AddRange(hatmi.ToArray)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

كل ما عليك هو اضافة listview
بتوفيق ان شاء الله

لكن عندما اضغط على القناة لاتشتغل انا اضفت سيرفر خاص بي اسف اتعبتك معي

[حاتمي]

ممكن اجابة يابطل ارجوك