Imports System.Net

Public Class form2
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtBoxUsername.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtBoxPassword.TextChanged

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        Dim user As String
        user = txtBoxUsername.Text
        Dim pass As String
        pass = txtBoxPassword.Text
        Dim final As String
        final = user + ":" + pass
        Dim ban As String
        ban = user + ":" + pass
        Dim webClient As New WebClient

        If webClient.DownloadString("https://pastebin.com/raw/KVrn6Qj0").Contains(ban) = True Then
            MessageBox.Show("U got banned fuck you lol", "Get fucked loser")
            Application.Exit()
        End If

        If webClient.DownloadString("https://pastebin.com/raw/2ku1PkAz").Contains(final) = False Then
            MessageBox.Show("Username or password is wrong", "Error")
        End If

        If webClient.DownloadString("https://pastebin.com/raw/2ku1PkAz").Contains(final) = True Then
            MyBase.Hide()
            MsgBox("Logged in!", MsgBoxStyle.OkOnly, "Welcome!")
            Dim form_0
            form_0 = Form1
            form_0.Show()
        End If
    End Sub

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

    End Sub
End Class