SHARE
TWEET

hh

a guest Dec 10th, 2019 90 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. التوقيع في التوقيع
  3.  
  4. بدون عنوان
  5.  يوم 6 يوليو ، 2017 2،301 أبدا
  6. لست عضوا في Pastebin حتى الآن؟ الاشتراك ، فإنه يفتح العديد من الميزات الرائعة!
  7. rawdownloadreport 1.40 KB
  8. نظام الواردات
  9. نظام الواردات
  10. نظام الواردات
  11. نظام الواردات
  12. الدرجة العامة Form1
  13.  
  14.     خافت أنا كعدد صحيح
  15.  
  16.     وظيفة المدقق ()
  17.         قائمة الخافتة باسم String () = File.ReadAllLines ("List.txt")
  18.         خافت س كعدد صحيح
  19.         ل x = 0 إلى list.Length - 1
  20.             خافت ث كسلسلة
  21.             لكل ث في القائمة
  22.                 خطأ في الصفحة، إذهب للتالي
  23.                 Dim o As WebClient = WebClient جديد
  24.                 Dim e As String = o.DownloadString ("https://www.instagram.com/" + w)
  25.                 إذا e.Contains ("عذرًا ، هذه الصفحة غير متوفرة.") بعد ذلك
  26.                     TextBox1.AppendText (w + vbCrLf)
  27.                     أنا + 1
  28.                     Label2.Text = i.ToString ()
  29.                 آخر
  30.                     TextBox2.AppendText (w + vbCrLf)
  31.                     أنا + 1
  32.                     Label4.Text = i.ToString ()
  33.                 إنهاء إذا
  34.             التالى
  35.         التالى
  36.  
  37.     وظيفة النهاية
  38.  
  39.     خاص Sub Button1_Click (المرسل باسم كائن ، e كـ EventArgs) يعالج Button1.Click
  40.         Dim LegendH باسم مؤشر ترابط = مؤشر ترابط جديد (مدقق AddressOf)
  41.         LegendH.Start ()
  42.     نهاية الفرعية
  43.  
  44.     نموذج فرعي خاص 1_FormClosing (المرسل ككائن ، e كـ FormClosingEventArgs) Handles Me.FormClosing
  45.         النهاية
  46.     نهاية الفرعية
  47.  
  48.     Form1_Load الخاص الفرعي (المرسل باسم كائن ، e كـ EventArgs) يعالج MyBase.Load
  49.         Control.CheckForIllegalCrossThreadCalls = خطأ
  50.     نهاية الفرعية
  51. نهاية الدرجة
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top