Advertisement
Guest User

Untitled

a guest
Aug 9th, 2017
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.26 KB | None | 0 0
  1. 'تقديم طلب لسيرفر الموقع مع إرسال المعلومات الازمة كي نحصل على التوكين
  2. Dim data As String = "u=" & MetroTextBox1.Text & "&p=" & MetroTextBox2.Text 'HttpHeader المعلومات التي يجب إرسالها للموقع والتي تحصلنا عليها من خلال فايرفوكس عبر إضافة إسمها
  3. Dim bytes As Byte() = New UTF8Encoding().GetBytes(data) ' نقوم بتحويل المعلومات التي نرسلها إلى بايتات لكي يتمكن سيرفر الموقع من قرائتها بالشكل الصحيح
  4. Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://like-liker.com/ambil_token.php"), HttpWebRequest) ' نقوم بإنشاء طلب من نوع بوست للموقع عبر دوال الويب ريكوست
  5. request.Method = "POST" ' نقوم بتحديد نوع الطلب وهو بوست طبعا لأننا سنرسل معلومات
  6. request.Accept = "*/*" ' نوع التشيفير الدي يقبله الموقع
  7. request.ContentType = "application/x-www-form-urlencoded" 'نوع المعلومات التي يتلقاها السيرفر
  8. request.Proxy = Nothing 'نحن لن نستعمل بروكسي في طلب المعلومات لدا يجب عمله لا شيء كي يكون البرنامج أسرع
  9. 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" 'نحدد اليوزر أيجنت لكي يتعرف الموقع على الأداة على أنها متصفح حقيقي
  10. request.AllowAutoRedirect = False 'نقوم بمنع الصفحة من التوجه إلى أي صفحة أخرى كي لا نحصل على نتائج خاطئة من صفحة أخرى
  11. request.KeepAlive = True ' نقوم بإبقاء الطلب مفتوح
  12. request.Referer = "http://like-liker.com/ambil_token.php/" 'صفحة التي يعود إليها السيرفر بعد تقديم الطلب
  13. request.ContentLength = bytes.Length 'نقوم بتحديد طول المعلومات المرسلة للسيرفر
  14. Dim requestStream As Stream = request.GetRequestStream ' نقوم بفتح قناة ستريم لكي يتم نقل المعلومات عبرها للسيرفر
  15. requestStream.Write(bytes, 0, bytes.Length) 'نجعل قنات الستريم تنقل المعلومات والتي حولناها لبايتات فوق
  16. requestStream.Close() 'بعد نقل المعلومات نقوم بإغلاق قنات الستريم
  17. Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse) 'نقوم بفتح قنات ريسبونس لتلقي المعلومات من السيرفر بعد تلقيه للطلب
  18. Dim page As String = New StreamReader(response.GetResponseStream).ReadToEnd 'نقوم بقراءة المعلومات التي تلقيناها من السيرفر عبر دالت ستريم ريدر ونحولها لسترينغ
  19. WebBrowser1.DocumentText = page 'جعل المعلومات التي تحصلنا عليها مقروؤة في الويب براوزر المخفي والدي سيقوم بتحميلها على شكل ملف لنا
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement