Log

Public Class Form1

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim filePath As String

        filePath = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)

        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\huzuni\huzuni.jar") Then

            MsgBox("It's Fundet. Hni")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\weepcraft\weepcraft.jar") Then

            MsgBox("It's Fundet. WCr")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\Nodus\Nodus.jar") Then

            MsgBox("It's Fundet. Nu")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\flare\flare.jar") Then

            MsgBox("It's Fundet. Fl")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\resilience\resilience.jar") Then

            MsgBox("It's Fundet. res")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\flight\flight.jar") Then

            MsgBox("It's Fundet. fli")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\amplitude\amplitude.jar") Then

            MsgBox("It's Fundet. amp")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\Apex\Apex.jar") Then

            MsgBox("It's Fundet. ape")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\dauntless\dauntless.jar") Then

            MsgBox("It's Fundet. da")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\Cyberhax\Cyberhax.jar") Then

            MsgBox("It's Fundet. cy")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\faurax\faurax.jar") Then

            MsgBox("It's Fundet. fau")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\reflex\reflex.jar") Then

            MsgBox("It's Fundet. ref")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\inferno\inferno.jar") Then

            MsgBox("It's Fundet. inf")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\pelican\pelican.jar") Then

            MsgBox("It's Fundet. pel")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\xenon\xenon.jar") Then

            MsgBox("It's Fundet. xen")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\waffle\waffle.jar") Then

            MsgBox("It's Fundet. waf")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\kinky\kinky.jar") Then

            MsgBox("It's Fundet. kin")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\nuk3leus\nuk3leus.jar") Then

            MsgBox("It's Fundet. nuk")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\breakcraft\breakcraft.jar") Then

            MsgBox("It's Fundet. brc")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\aeon\aeon.jar") Then

            MsgBox("It's Fundet. ae")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\morbid\morbid.jar") Then

            MsgBox("It's Fundet. mor")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\falcon 2\falcon 2.jar") Then

            MsgBox("It's Fundet. falc")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\I D K\I D K.jar") Then

            MsgBox("It's Fundet. Idk")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\GreifnationUK\GreifnationUK.jar") Then

            MsgBox("It's Fundet. UK")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\Athena\Athena.jar") Then

            MsgBox("It's Fundet. Athe")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\420craft\420craft.jar") Then

            MsgBox("It's Fundet. 420")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\kaspersky\kaspersky.jar") Then

            MsgBox("It's Fundet. kasp")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\apollo\apollo.jar") Then

            MsgBox("It's Fundet. apo")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\Kronos\Kronos.jar") Then

            MsgBox("It's Fundet. WCr")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\sentient\sentient.jar") Then

            MsgBox("It's Fundet. Sen")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\vapid\vapid.jar") Then

            MsgBox("It's Fundet. vap")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\Epsilon\Epsilon.jar") Then

            MsgBox("It's Fundet. Ep")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\Kinky remade\Kinky remade.jar") Then

            MsgBox("It's Fundet. Kin")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\xclient\xclient.jar") Then

            MsgBox("It's Fundet. xc")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\rubix\rubix.jar") Then

            MsgBox("It's Fundet. rub")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\gemini\gemini.jar") Then

            MsgBox("It's Fundet. gem")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\yodus\yodus.jar") Then

            MsgBox("It's Fundet. yo")
        End If


        If My.Computer.FileSystem.FileExists(filePath & "\.minecraft\versions\sigma\sigma.jar") Then

            MsgBox("It's Fundet. sig")
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show("DiamondCreeper.Everpvp.dk.", "Server ipen er.", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Private Sub EventLog1_EntryWritten(ByVal sender As System.Object, ByVal e As System.Diagnostics.EntryWrittenEventArgs)

    End Sub

    Private Sub TextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    End Sub
End Class