Launchersource

Public Class YourServerLauncher

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Application.Exit()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("https://www.facebook.com")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("https://www.youtube.com")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Process.Start("https://www.google.de")
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Process.Start("C:\Users\ffa\Downloads\Privat Sachen\wow 3.3.5.a\wow.exe")
        Application.Exit()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Try
            My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath.ToString & "\Data\deDE\realmlist.wtf", "set realmlist 127.0.0.1", False)
            MsgBox("Deine Realmliste wurde erfolgreich geändert! / Your realmlist was successfully changed!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Realmlist konnte nicht geändert werden! / Realmlist could not be changed!", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If My.Computer.FileSystem.DirectoryExists(My.Application.Info.DirectoryPath.ToString & "\Cache") Then
            Try
                My.Computer.FileSystem.DeleteDirectory(My.Application.Info.DirectoryPath.ToString & "Cache", FileIO.DeleteDirectoryOption.DeleteAllContents)
                MsgBox("Dein Cache Ordner wurde erfolgreich gelöscht! / Your cache folder was successfully deleted!", MsgBoxStyle.Information)
            Catch ex As Exception
                MsgBox("Dein Cache Ordner konnte nicht gelöscht werden! / Your cache folder could not be deleted!", MsgBoxStyle.Critical)
            End Try


        Else
            MsgBox("Dein Cache Ordner ist nicht vorhanden oder es wurde gerade gelöscht! / Your cache folder does not exist or it was just deleted!", MsgBoxStyle.Information)
        End If
    End Sub

    Private Sub YourServerLauncher_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If (e.Button = Windows.Forms.MouseButtons.Left) Then
            Me.Capture = False
            Me.WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))

        Else : End If
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("https://www.google.com")
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://www.ac-web.org/forums/content.php")
    End Sub

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

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Process.Start("https://www.youtube.com")
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Process.Start("https://www.facebook.com")
    End Sub

    Private Sub Button3_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Process.Start("http://www.ac-web.org/forums/content.php")
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Process.Start("https://www.google.com")
    End Sub
End Class