THUG2 Registry Fix Source Code

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim OpenFolder As New FolderBrowserDialog
        OpenFolder.ShowDialog()
        TextBox1.Text = OpenFolder.SelectedPath
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim lang() As String = {"eng", "fra", "ger"}
        Using addInfo = System.IO.File.CreateText(ComboBox1.Text.ToLower + "_install.reg")
            addInfo.WriteLine("Windows Registry Editor Version 5.00")
            addInfo.WriteLine("")
            addInfo.WriteLine("[HKEY_LOCAL_MACHINE\SOFTWARE\Activision]")
            addInfo.WriteLine("@=" & Chr(34) & Chr(34))
            addInfo.WriteLine("")
            addInfo.WriteLine("[HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Tony Hawk's Underground 2]")
            addInfo.WriteLine("@=" & Chr(34) & Chr(34))
            addInfo.WriteLine(Chr(34) & "EXEString" & Chr(34) & "=" & Chr(34) & TextBox1.Text + "\Setup_" + ComboBox1.Text.ToLower + ".exe" & Chr(34))
            addInfo.WriteLine(Chr(34) & "InstallPath" & Chr(34) & "=" & Chr(34) & TextBox1.Text & Chr(34))
            addInfo.WriteLine(Chr(34) & "InstallDrive" & Chr(34) & "=" & Chr(34) & "." & Chr(34))
            addInfo.WriteLine(Chr(34) & "Language" & Chr(34) & "=" & Chr(34) & lang(ComboBox1.SelectedIndex) & Chr(34))
            addInfo.WriteLine(Chr(34) & "StartMenuFolder" & Chr(34) & "=" & Chr(34) & Chr(34))
            addInfo.WriteLine(Chr(34) & "Version" & Chr(34) & "=" & Chr(34) & "1.0" & Chr(34))
            addInfo.WriteLine(Chr(34) & "UninstallString" & Chr(34) & "=" & Chr(34) & Chr(34))
            addInfo.WriteLine(Chr(34) & "QA" & Chr(34) & "=" & Chr(34) & "10.0" & Chr(34))
            addInfo.WriteLine(Chr(34) & "Key" & Chr(34) & "=" & Chr(34) & "BUUGCFB32CKAUYMGE15F" & Chr(34))
            addInfo.WriteLine("")
            addInfo.WriteLine("[HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Tony Hawk's Underground 2\Install]")
            addInfo.WriteLine("@=" & Chr(34) & Chr(34))
            addInfo.WriteLine(Chr(34) & "Language" & Chr(34) & "=dword:00000001")
            addInfo.WriteLine(Chr(34) & "Path" & Chr(34) & "=" & Chr(34) & TextBox1.Text & Chr(34))
            addInfo.WriteLine("")
            addInfo.WriteLine("[HKEY_CURRENT_USER\Software\Activision]")
            addInfo.WriteLine("")
            addInfo.WriteLine("[HKEY_CURRENT_USER\Software\Activision\Tony Hawk's Underground 2]")
            addInfo.WriteLine("@=" & Chr(34) & Chr(34))
            addInfo.WriteLine(Chr(34) & "EXEString" & Chr(34) & "=" & Chr(34) & TextBox1.Text + "\Setup_" + ComboBox1.Text.ToLower + ".exe" & Chr(34))
            addInfo.WriteLine(Chr(34) & "InstallPath" & Chr(34) & "=" & Chr(34) & TextBox1.Text & Chr(34))
            addInfo.WriteLine(Chr(34) & "InstallDrive" & Chr(34) & "=" & Chr(34) & "." & Chr(34))
            addInfo.WriteLine(Chr(34) & "Language" & Chr(34) & "=" & Chr(34) & lang(ComboBox1.SelectedIndex) & Chr(34))
            addInfo.WriteLine(Chr(34) & "StartMenuFolder" & Chr(34) & "=" & Chr(34) & Chr(34))
            addInfo.WriteLine(Chr(34) & "Version" & Chr(34) & "=" & Chr(34) & "1.0" & Chr(34))
            addInfo.WriteLine(Chr(34) & "UninstallString" & Chr(34) & "=" & Chr(34) & Chr(34))
            addInfo.WriteLine(Chr(34) & "QA" & Chr(34) & "=" & Chr(34) & "10.0" & Chr(34))
            addInfo.WriteLine(Chr(34) & "Key" & Chr(34) & "=" & Chr(34) & "BUUGCFB32CKAUYMGE15F" & Chr(34))
            addInfo.WriteLine("")
            addInfo.WriteLine("[HKEY_CURRENT_USER\Software\Activision\Tony Hawk's Underground 2\Install]")
            addInfo.WriteLine("@=" & Chr(34) & Chr(34))
            addInfo.WriteLine(Chr(34) & "Language" & Chr(34) & "=dword:00000001")
            addInfo.WriteLine(Chr(34) & "Path" & Chr(34) & "=" & Chr(34) & TextBox1.Text & Chr(34))
            addInfo.WriteLine("")
            addInfo.WriteLine("[HKEY_CURRENT_USER\Software\Activision\Tony Hawk's Underground 2\Settings]")
            addInfo.WriteLine("@=" & Chr(34) & Chr(34))
            addInfo.WriteLine("")
        End Using
    End Sub
End Class