Imports System.IO
Public Class Form1
    Private WDB0 As Integer() = {&H57, &H44, &H42}
    Private WDB1 As Integer() = {&H0, &H0, &H0}

    Private SoundChannel0 As Integer() = {&H31, &H32, &H0}
    Private SoundChannel1 As Integer() = {&H32, &H35, &H36}

    Private ImpFov0 As Integer() = {&HDB, &HF, &HC9}
    Private ImpFov1 As Integer() = {&H66, &H66, &HF6}

    Private FourGB0 As Integer() = {&HF}
    Private FourGB1 As Integer() = {&H2F}

    Private AutoLoot0 As Integer() = {&H74}
    Private AutoLoot1 As Integer() = {&H75}
    Private Sub patchFile(ByVal strLocation As String, ByVal hOffset As Integer, ByVal hBytes As Integer())
        Dim writeFile As BinaryWriter = New BinaryWriter(File.OpenWrite(strLocation))
        For i = 0 To hBytes.Count - 1
            writeFile.BaseStream.Position = hOffset + i
            writeFile.BaseStream.WriteByte(hBytes(i))
        Next
        writeFile.Dispose()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Settings.FGB = "1" Then
            CheckBox1.Checked = True
        Else
            CheckBox1.Checked = False
        End If
        If My.Settings.WDB = "1" Then
            CheckBox2.Checked = True
        Else
            CheckBox2.Checked = False
        End If
        If My.Settings.ISC = "1" Then
            CheckBox3.Checked = True
        Else
            CheckBox3.Checked = False
        End If
        If My.Settings.FOV = "1" Then
            CheckBox4.Checked = True
        Else
            CheckBox4.Checked = False
        End If
        If My.Settings.ALS = "1" Then
            CheckBox5.Checked = True
        Else
            CheckBox5.Checked = False
        End If
    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            My.Settings.FGB = "1"
            My.Settings.Save()
            patchFile(Application.StartupPath & "\WoW.exe", &H126, FourGB1)
        Else
            My.Settings.FGB = "0"
            My.Settings.Save()
            patchFile(Application.StartupPath & "\WoW.exe", &H126, FourGB0)
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            My.Settings.WDB = "1"
            My.Settings.Save()
            patchFile(Application.StartupPath & "\WoW.exe", &H455B38, WDB1)
        Else
            My.Settings.WDB = "0"
            My.Settings.Save()
            patchFile(Application.StartupPath & "\WoW.exe", &H455B38, WDB0)
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            My.Settings.ISC = "1"
            My.Settings.Save()
            patchFile(Application.StartupPath & "\WoW.exe", &H435D38, SoundChannel1)
        Else
            My.Settings.ISC = "0"
            My.Settings.Save()
            patchFile(Application.StartupPath & "\WoW.exe", &H435D38, SoundChannel0)
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            My.Settings.FOV = "1"
            My.Settings.Save()
            patchFile(Application.StartupPath & "\WoW.exe", &H4089B4, ImpFov1)
        Else
            My.Settings.FOV = "0"
            My.Settings.Save()
            patchFile(Application.StartupPath & "\WoW.exe", &H4089B4, ImpFov0)
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            My.Settings.ALS = "1"
            My.Settings.Save()
            patchFile(Application.StartupPath & "\WoW.exe", &HC1ECF, AutoLoot1)
        Else
            My.Settings.ALS = "0"
            My.Settings.Save()
            patchFile(Application.StartupPath & "\WoW.exe", &HC1ECF, AutoLoot0)
        End If
    End Sub
End Class