aaasiodjospajdpsajdopajodpkaspojaspojoaspjfopsajfposa

Imports System.Net
Imports System.IO
Imports System.Threading
Public Class Form1
    Dim list As String() = File.ReadAllLines("list.txt") ' تمام كذا ؟ وصلت
    Dim silent As New WebClient ' متغير جديد
    Dim xstop As Boolean = False ' تمام كذا خلصنا المتغيرات المهمه نبدا ببرمجة الفحص يلا بسم الله
    'الان راح نضيف متغير الايقاف يعني فحصت وتبي توقف الفحص
    'الان راح نسوي webclint جديد نضيف المتغير
    'راح نبدا نضيف المتغير الي راح يجلب لنا ال  list
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub


    'Get instagram Check Account Loool v.1.0

    Sub check()
        Dim us As String
        For Each us In list
            On Error Resume Next ' ليش اضفنا ذا مثال لو جاك غلط مراح يوقف البرنامج عليك يكمل وراح نستغلها بحيث يحفظ الغلط  في مستند انزين مية مية
            Dim o As String = silent.DownloadString("https://www.instagram.com/" + us) ' طلبنا المتغير webclint جديد
            If o.Contains("Sorry, this page isn't available.") Then ' الرسبونس الشرط يب اكمل
                TextBox1.AppendText(us & vbCrLf)
            Else
                TextBox2.AppendText(us & vbCrLf)

            End If
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim t As New Threading.Thread(AddressOf check)
        t.Start()
    End Sub
End Class