[trakktour]

(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