السلام عليكم احبابي في الله
واجهتني مشكلة صغيرة
اردت سحب Request URL كامل و لكن لم استطع سحب
wowzasessionid
كما في الصورة
ممكن تعديل على الكود حتى يظهر الرابط كامل
واجهتني مشكلة صغيرة
اردت سحب Request URL كامل و لكن لم استطع سحب
wowzasessionid
كما في الصورة
كود :
Try
Dim raw As New WebClient
Dim lienjanjua As String
Dim web = New WebClient().DownloadString(("https://arembed.com/live.php?ch=Bein_Sports1&vw=800&vh=450"))
Dim armebed As String = Regex.Match(web, "(?<= channel=').+(?=',)").Groups(0).Value
Dim s As String = ""
Dim cookieContainer As CookieContainer = New CookieContainer()
Dim uTF8Encoding As UTF8Encoding = New UTF8Encoding()
uTF8Encoding.GetBytes(s)
Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://www.janjua.tv/hembedplayer/" + armebed + "/1/800/450"), HttpWebRequest)
httpWebRequest.Proxy = Nothing
httpWebRequest.Method = "GET"
httpWebRequest.KeepAlive = True
httpWebRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.3; Trident/7.0; rv:11.0) like Gecko"
httpWebRequest.Host = "www.janjua.tv"
httpWebRequest.Accept = "text/html, application/xhtml+xml, */*"
httpWebRequest.Referer = "https://www.janjua.tv"
httpWebRequest.Headers.Add("DNT: 1")
httpWebRequest.Headers.Add("Upgrade-Insecure-Requests: 1")
httpWebRequest.Headers.Add("Accept-Language: en-US,en;q=0.9,ar;q=0.8,fr;q=0.7")
httpWebRequest.Headers.Add("Accept-Encoding: none")
Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
cookieContainer.Add(httpWebResponse.Cookies)
Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
Dim input As String = streamReader.ReadToEnd()
Dim regex1 As Regex = New Regex("enableVideo(?<innerText>([^<]*?));")
Dim matchCollection As MatchCollection = regex1.Matches(input)
Dim port As String = regex.Match(input, "(?<= ea .+? "").+(?="")").Groups(0).Value
Dim lien As String = regex.Match(input, "(?<=url.+"").+(?="")").Groups(0).Value
Dim farfour As String = raw.DownloadString(lien)
farfour = farfour.Replace("redirect=", "")
Try
Dim enumerator As IEnumerator = matchCollection.GetEnumerator()
While enumerator.MoveNext()
Dim match As Match = CType(enumerator.Current, Match)
Dim text As String = match.Groups("innerText").Value.Replace("(""", "").Replace(""")", "")
lienjanjua = "https://" + farfour + port + text
TextBox1.Text = lienjanjua
End While
Finally
Dim enumerator As IEnumerator
If TypeOf enumerator Is IDisposable Then
TryCast(enumerator, IDisposable).Dispose()
End If
End Try
Catch expr_18D As Exception
End Try
Return
ممكن تعديل على الكود حتى يظهر الرابط كامل