19-06-21, 04:54 PM
الصفحات : 1 2
02-11-21, 10:34 PM
السلام عليكم
ممكن التعديل على هذا الكود يحمل في وسط الملف .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الصفحات : 1 2