[crazykinko]

السلام عليكم

ممكن التعديل على هذا الكود يحمل في وسط الملف .txt

مثلا

كود :

  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("https://dl.dropbox.com/s/88e6ip73yr/ِcrazy%2001.txt?dl=0"), 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 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