hh

التوقيع في التوقيع

بدون عنوان
 يوم 6 يوليو ، 2017 2،301 أبدا
لست عضوا في Pastebin حتى الآن؟ الاشتراك ، فإنه يفتح العديد من الميزات الرائعة!
rawdownloadreport 1.40 KB
نظام الواردات
نظام الواردات
نظام الواردات
نظام الواردات
الدرجة العامة Form1

    خافت أنا كعدد صحيح

    وظيفة المدقق ()
        قائمة الخافتة باسم String () = File.ReadAllLines ("List.txt")
        خافت س كعدد صحيح
        ل x = 0 إلى list.Length - 1
            خافت ث كسلسلة
            لكل ث في القائمة
                خطأ في الصفحة، إذهب للتالي
                Dim o As WebClient = WebClient جديد
                Dim e As String = o.DownloadString ("https://www.instagram.com/" + w)
                إذا e.Contains ("عذرًا ، هذه الصفحة غير متوفرة.") بعد ذلك
                    TextBox1.AppendText (w + vbCrLf)
                    أنا + 1
                    Label2.Text = i.ToString ()
                آخر
                    TextBox2.AppendText (w + vbCrLf)
                    أنا + 1
                    Label4.Text = i.ToString ()
                إنهاء إذا
            التالى
        التالى

    وظيفة النهاية

    خاص Sub Button1_Click (المرسل باسم كائن ، e كـ EventArgs) يعالج Button1.Click
        Dim LegendH باسم مؤشر ترابط = مؤشر ترابط جديد (مدقق AddressOf)
        LegendH.Start ()
    نهاية الفرعية

    نموذج فرعي خاص 1_FormClosing (المرسل ككائن ، e كـ FormClosingEventArgs) Handles Me.FormClosing
        النهاية
    نهاية الفرعية

    Form1_Load الخاص الفرعي (المرسل باسم كائن ، e كـ EventArgs) يعالج MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = خطأ
    نهاية الفرعية
نهاية الدرجة