تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة جلب قيمة من موقع معين
#1
السلام عليكم احبابي في الله
واجهتني مشكلة صغيرة
اردت سحب 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

ممكن تعديل على الكود حتى يظهر الرابط كامل
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم