Code ip

Imports System.IO
Imports System.Linq
Imports System.Net

Public Class Form1


    Public Sub New()
        InitializeComponent()
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub

    Private Sub BTNlist_Click(sender As Object, e As EventArgs) Handles BTNlist.Click
        Dim op2 As New OpenFileDialog
        op2.Filter = "TXT Files | *.txt"
        If op2.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim reader As New StreamReader(op2.FileName)
            TXT1.Text = reader.ReadToEnd
            reader.Close()
        End If
    End Sub

    Private Sub SaveListToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveListToolStripMenuItem.Click
        Try
            If LV1.Items.Count = Nothing Then
                Exit Sub
            End If
            Dim ID As New SaveFileDialog
            ID.Title = ("Save validd Emails")
            ID.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
            ID.FileName = ("Valid Emails")
            If ID.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim I As New StreamWriter(ID.FileName)

                For Each P As ListViewItem In LV1.Items
                    If P.ForeColor = Color.Green Then
                        I.WriteLine(P.Text)
                    End If
                Next
                I.Close()
                MsgBox(" Saved ^_^ ", MsgBoxStyle.Information, ("Information"))
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub SaveLockedEmailsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveLockedEmailsToolStripMenuItem.Click
        Try
            If LV1.Items.Count = Nothing Then
                Exit Sub
            End If
            Dim ID As New SaveFileDialog
            ID.Title = ("Save validd Emails")
            ID.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
            ID.FileName = ("Valid Emails")
            If ID.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim I As New StreamWriter(ID.FileName)

                For Each P As ListViewItem In LV1.Items
                    If P.ForeColor = Color.Red Then
                        I.WriteLine(P.Text)
                    End If
                Next
                I.Close()
                MsgBox(" Saved ^_^ ", MsgBoxStyle.Information, ("Information"))
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub StartWork_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles StartWork.DoWork
        Dim index As Integer = 0
        Dim num As Integer = Conversion.Int(Enumerable.Count(Of String)(Me.TXT1.Lines))
        Me.Prog1.Value = 0
        Do While (index < num)
            Dim str As String = Me.TXT1.Lines(index)

            Try
                Dim web As New Net.WebClient
                Try
                    Dim PRO As IWebProxy = WebRequest.GetSystemWebProxy()
                    PRO.Credentials = CredentialCache.DefaultCredentials
                    web.UseDefaultCredentials = True
                    web.Proxy = PRO
                Catch ex As Exception
                End Try
                web.Headers.Add("MESSAGE-TO-INSTAGRAM", "Amroshsecurity is here")
                Dim download As String = web.DownloadString("https://www.instagram.com/accounts/fb_linked_account/?check_email=" & str)
                If download.Contains("email_taken") Then
                    Dim ITm As New ListViewItem
                    ITm.Text = str
                    ITm.SubItems.Add(("Valid"))
                    ITm.ForeColor = Color.Green
                    ITm.ImageIndex = 0
                    ITm.Group = LV1.Groups("GR1")
                    LV1.Items.Add(ITm)
                Else
                    Dim ITm As New ListViewItem
                    ITm.Text = str
                    ITm.SubItems.Add(("InValid"))
                    ITm.ForeColor = Color.Red
                    ITm.ImageIndex = 1
                    ITm.Group = LV1.Groups("GR2")
                    LV1.Items.Add(ITm)
                End If
            Catch EX As Exception

            End Try
            index += 1
            Prog1.Value += 1
            Me.Prog1.Maximum = num

            If Prog1.Value = Prog1.Maximum Then
                MsgBox("Done")
            End If

            If StartWork.CancellationPending Then
                e.Cancel = True
                Exit Do
            End If

        Loop

    End Sub

    Private Sub BTNcheck_Click(sender As Object, e As EventArgs) Handles BTNcheck.Click
        If StartWork.IsBusy <> True Then
            Me.LV1.Items.Clear()
            Me.StartWork.RunWorkerAsync()
        End If
    End Sub

    Private Sub BTNcoder_Click(sender As Object, e As EventArgs) Handles BTNcoder.Click
        If StartWork.IsBusy <> True Then
            Me.StartWork.CancelAsync()
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class