FFXI Graphics Tweaker Source

Public Class ffxiGraphicsTweak

    Private Sub btnSubmit_Click() Handles btnSubmit.Click
        If txtHeight.Text = "" Or txtWidth.Text = "" Then
            MessageBox.Show("Please Enter an X and Y Resolution", "FFXI Graphics Tweaker",
MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
        ElseIf Not IsNumeric(txtHeight.Text) Or Not IsNumeric(txtWidth.Text) Then
            MessageBox.Show("Please use numbers for your resolution.", "FFXI Graphics Tweaker",
MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
        Else
            Dim path As String

            If rad32Bit.Checked Then
                If radRegionNA.Checked Then
                    path = "Software\PlayOnlineUS\SquareEnix\FinalFantasyXI"
                ElseIf radRegionEU.Checked Then
                    path = "Software\PlayOnlineEU\SquareEnix\FinalFantasyXI"
                ElseIf radRegionJP.Checked Then
                    path = "Software\PlayOnlineJP\SquareEnix\FinalFantasyXI"
                End If
            ElseIf rad64Bit.Checked Then
                If radRegionNA.Checked Then
                    path = "Software\Wow6432Node\PlayOnlineUS\SquareEnix\FinalFantasyXI"
                ElseIf radRegionEU.Checked Then
                    path = "Software\Wow6432Node\PlayOnlineEU\SquareEnix\FinalFantasyXI"
                ElseIf radRegionJP.Checked Then
                    path = "Software\Wow6432Node\PlayOnlineJP\SquareEnix\FinalFantasyXI"
                End If
            End If

            Dim autoshell = My.Computer.Registry.LocalMachine.OpenSubKey(path, True)

            Dim resX As Integer
            Try
                resX = CInt(txtWidth.Text)
            Catch ex As Exception
                MsgBox(ex.Message, , )
            End Try

            Dim resY As Integer
            Try
                resY = CInt(txtHeight.Text)
            Catch ex As Exception
                MsgBox(ex.Message, , )
            End Try

            '' Set the games Height
            autoshell.SetValue("0001", resX)
            '' Set the games Width
            autoshell.SetValue("0002", resY)

            '' Set the 3D Resolution
            If rad3DUnder.Checked Then

                Dim BGResX As Integer
                BGResX = CInt(resX / 2)

                Dim BGResY As Integer
                BGResY = CInt(resY / 2)

                autoshell.SetValue("0003", BGResX)
                autoshell.SetValue("0004", BGResY)

            ElseIf rad3DMatch.Checked Then

                autoshell.SetValue("0003", resX)
                autoshell.SetValue("0004", resY)

            ElseIf rad3DOver.Checked Then

                Dim BGResX As Integer
                BGResX = resX * 2

                Dim BGResY As Integer
                BGResY = resY * 2

                autoshell.SetValue("0003", BGResX)
                autoshell.SetValue("0004", BGResY)

            End If

            '' Mip Mapping
            If radMMOff.Checked Then
                autoshell.SetValue("0000", 0)
            ElseIf radMMOn.Checked Then
                autoshell.SetValue("0000", 1)
            ElseIf radMMEx.Checked Then
                autoshell.SetValue("0000", 4)
            End If

            '' Bump Mapping
            If radBMOff.Checked Then
                autoshell.SetValue("0017", 0)
            ElseIf radBMOn.Checked Then
                autoshell.SetValue("0017", 1)
            End If

            '' Music / Sound
            If radMusicOff.Checked Then
                autoshell.SetValue("0007", 0)
            ElseIf radMusicOn.Checked Then
                autoshell.SetValue("0007", 1)
            End If

            '' Environmental Animation
            If radAnimOff.Checked Then
                autoshell.SetValue("0011", 0)
            ElseIf radAnimOn.Checked Then
                autoshell.SetValue("0011", 1)
            ElseIf radAnimSmooth.Checked Then
                autoshell.SetValue("0011", 2)
            End If

            '' Texture Compression
            If radTextHigh.Checked Then
                autoshell.SetValue("0018", 0)
            ElseIf radTextLow.Checked Then
                autoshell.SetValue("0018", 1)
            ElseIf radTextUnc.Checked Then
                autoshell.SetValue("0018", 2)
            End If

            '' Maps
            If radMapComp.Checked Then
                autoshell.SetValue("0019", 0)
            ElseIf radMapUnc.Checked Then
                autoshell.SetValue("0019", 1)
            End If

            '' Intro Movie
            If radIntroOff.Checked Then
                autoshell.SetValue("0022", 0)
            ElseIf radIntroOn.Checked Then
                autoshell.SetValue("0022", 1)
            End If

            '' Intro Movie
            If radWindowOff.Checked Then
                autoshell.SetValue("0034", 0)
            ElseIf radWindowOn.Checked Then
                autoshell.SetValue("0034", 1)
            End If

            autoshell.Close()

            MessageBox.Show("Your Registry Has Been Tweaked!", "FFXI Graphics Tweaker",
    MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

        End If

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        MessageBox.Show("FFXI Graphics Tweaker is developed by Burnie and Magzy of Quetzacoatl. If you have any questions, please contact us at [email protected].", "FFXI Graphics Tweaker",
    MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
    End Sub

End Class