Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'تقديم طلب لسيرفر الموقع مع إرسال المعلومات الازمة كي نحصل على التوكين
- Dim data As String = "u=" & MetroTextBox1.Text & "&p=" & MetroTextBox2.Text 'HttpHeader المعلومات التي يجب إرسالها للموقع والتي تحصلنا عليها من خلال فايرفوكس عبر إضافة إسمها
- Dim bytes As Byte() = New UTF8Encoding().GetBytes(data) ' نقوم بتحويل المعلومات التي نرسلها إلى بايتات لكي يتمكن سيرفر الموقع من قرائتها بالشكل الصحيح
- Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://like-liker.com/ambil_token.php"), HttpWebRequest) ' نقوم بإنشاء طلب من نوع بوست للموقع عبر دوال الويب ريكوست
- request.Method = "POST" ' نقوم بتحديد نوع الطلب وهو بوست طبعا لأننا سنرسل معلومات
- request.Accept = "*/*" ' نوع التشيفير الدي يقبله الموقع
- request.ContentType = "application/x-www-form-urlencoded" 'نوع المعلومات التي يتلقاها السيرفر
- request.Proxy = Nothing 'نحن لن نستعمل بروكسي في طلب المعلومات لدا يجب عمله لا شيء كي يكون البرنامج أسرع
- request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.87 Safari/537.36" 'نحدد اليوزر أيجنت لكي يتعرف الموقع على الأداة على أنها متصفح حقيقي
- request.AllowAutoRedirect = False 'نقوم بمنع الصفحة من التوجه إلى أي صفحة أخرى كي لا نحصل على نتائج خاطئة من صفحة أخرى
- request.KeepAlive = True ' نقوم بإبقاء الطلب مفتوح
- request.Referer = "http://like-liker.com/ambil_token.php/" 'صفحة التي يعود إليها السيرفر بعد تقديم الطلب
- request.ContentLength = bytes.Length 'نقوم بتحديد طول المعلومات المرسلة للسيرفر
- Dim requestStream As Stream = request.GetRequestStream ' نقوم بفتح قناة ستريم لكي يتم نقل المعلومات عبرها للسيرفر
- requestStream.Write(bytes, 0, bytes.Length) 'نجعل قنات الستريم تنقل المعلومات والتي حولناها لبايتات فوق
- requestStream.Close() 'بعد نقل المعلومات نقوم بإغلاق قنات الستريم
- Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse) 'نقوم بفتح قنات ريسبونس لتلقي المعلومات من السيرفر بعد تلقيه للطلب
- Dim page As String = New StreamReader(response.GetResponseStream).ReadToEnd 'نقوم بقراءة المعلومات التي تلقيناها من السيرفر عبر دالت ستريم ريدر ونحولها لسترينغ
- WebBrowser1.DocumentText = page 'جعل المعلومات التي تحصلنا عليها مقروؤة في الويب براوزر المخفي والدي سيقوم بتحميلها على شكل ملف لنا
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement