Imports System.Net
Public Class Form1
    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Try
            Process.Start(My.Application.Info.DirectoryPath.ToString & "\Wow.exe")
            Application.Exit()
        Catch ex As Exception
            MsgBox("CANNOT FIND WOW.EXE PLEASE CHECK FILE DIRECTORY!", MsgBoxStyle.Critical)
        End Try


        Try
            My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath.ToString & "\Data\enUS\realmlist.wtf", "set realmlist *****", False)
            MsgBox("Realmlist is changed!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Cannot find realmlist, please contact administrator for more help", MsgBoxStyle.Critical)

        End Try

        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("Cache Cleared!", MsgBoxStyle.Information)
            Catch ex As Exception
                MsgBox("CANNOT FIND CACHE PLEASE CHECK FILE DIRECTORY!", MsgBoxStyle.Critical)
            End Try
        End If
    End Sub

    Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
        PictureBox1.BackgroundImage = My.Resources.Play_hover
    End Sub

    Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox1.MouseLeave
        PictureBox1.BackgroundImage = My.Resources.Play_nonclick
    End Sub

    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
        System.Diagnostics.Process.Start("WEBSITE")
    End Sub

    Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox4.MouseEnter
        PictureBox4.BackgroundImage = My.Resources.home_hover
    End Sub

    Private Sub PictureBox4_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox4.MouseLeave
        PictureBox4.BackgroundImage = My.Resources.Home_nonclick
    End Sub

    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
        System.Diagnostics.Process.Start("DOATE SITE")
    End Sub

    Private Sub PictureBox5_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox5.MouseEnter
        PictureBox5.BackgroundImage = My.Resources.Donate_hover
    End Sub

    Private Sub PictureBox5_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox5.MouseLeave
        PictureBox5.BackgroundImage = My.Resources.Donate_nonclick
    End Sub



    Private Sub CheckForUpdateToolStripMenuItem_Click(sender As Object, e As EventArgs)
        CheckForUpdates()
    End Sub

    Public Sub CheckForUpdates()


    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("VERSION.TEXT should also be here ")

        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
        Dim newestversion As String = sr.ReadToEnd()
        Dim currentversion As String = Application.ProductVersion
        If newestversion.Contains(currentversion) Then

        Else
            MsgBox("There is a new update we will download it now for you.")
            System.Diagnostics.Process.Start("UPDATE LINK SHOULD BE HERE BUT REMOVED CUZ OF NEEDING HELP")
        End If
    End Sub

    Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
        Me.Close()
    End Sub

    Private Sub PictureBox6_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox6.MouseEnter
        PictureBox6.BackgroundImage = My.Resources.x_button_Hover
    End Sub

    Private Sub PictureBox6_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox6.MouseLeave
        PictureBox6.BackgroundImage = My.Resources.x_button_nonclick
    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click

    End Sub
End Class