SHARE
TWEET

THUG2 Registry Fix Source Code

kchoman Mar 4th, 2015 432 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.  
  3.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  4.         Dim OpenFolder As New FolderBrowserDialog
  5.         OpenFolder.ShowDialog()
  6.         TextBox1.Text = OpenFolder.SelectedPath
  7.     End Sub
  8.  
  9.     Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
  10.         Dim lang() As String = {"eng", "fra", "ger"}
  11.         Using addInfo = System.IO.File.CreateText(ComboBox1.Text.ToLower + "_install.reg")
  12.             addInfo.WriteLine("Windows Registry Editor Version 5.00")
  13.             addInfo.WriteLine("")
  14.             addInfo.WriteLine("[HKEY_LOCAL_MACHINE\SOFTWARE\Activision]")
  15.             addInfo.WriteLine("@=" & Chr(34) & Chr(34))
  16.             addInfo.WriteLine("")
  17.             addInfo.WriteLine("[HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Tony Hawk's Underground 2]")
  18.             addInfo.WriteLine("@=" & Chr(34) & Chr(34))
  19.             addInfo.WriteLine(Chr(34) & "EXEString" & Chr(34) & "=" & Chr(34) & TextBox1.Text + "\Setup_" + ComboBox1.Text.ToLower + ".exe" & Chr(34))
  20.             addInfo.WriteLine(Chr(34) & "InstallPath" & Chr(34) & "=" & Chr(34) & TextBox1.Text & Chr(34))
  21.             addInfo.WriteLine(Chr(34) & "InstallDrive" & Chr(34) & "=" & Chr(34) & "." & Chr(34))
  22.             addInfo.WriteLine(Chr(34) & "Language" & Chr(34) & "=" & Chr(34) & lang(ComboBox1.SelectedIndex) & Chr(34))
  23.             addInfo.WriteLine(Chr(34) & "StartMenuFolder" & Chr(34) & "=" & Chr(34) & Chr(34))
  24.             addInfo.WriteLine(Chr(34) & "Version" & Chr(34) & "=" & Chr(34) & "1.0" & Chr(34))
  25.             addInfo.WriteLine(Chr(34) & "UninstallString" & Chr(34) & "=" & Chr(34) & Chr(34))
  26.             addInfo.WriteLine(Chr(34) & "QA" & Chr(34) & "=" & Chr(34) & "10.0" & Chr(34))
  27.             addInfo.WriteLine(Chr(34) & "Key" & Chr(34) & "=" & Chr(34) & "BUUGCFB32CKAUYMGE15F" & Chr(34))
  28.             addInfo.WriteLine("")
  29.             addInfo.WriteLine("[HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Tony Hawk's Underground 2\Install]")
  30.             addInfo.WriteLine("@=" & Chr(34) & Chr(34))
  31.             addInfo.WriteLine(Chr(34) & "Language" & Chr(34) & "=dword:00000001")
  32.             addInfo.WriteLine(Chr(34) & "Path" & Chr(34) & "=" & Chr(34) & TextBox1.Text & Chr(34))
  33.             addInfo.WriteLine("")
  34.             addInfo.WriteLine("[HKEY_CURRENT_USER\Software\Activision]")
  35.             addInfo.WriteLine("")
  36.             addInfo.WriteLine("[HKEY_CURRENT_USER\Software\Activision\Tony Hawk's Underground 2]")
  37.             addInfo.WriteLine("@=" & Chr(34) & Chr(34))
  38.             addInfo.WriteLine(Chr(34) & "EXEString" & Chr(34) & "=" & Chr(34) & TextBox1.Text + "\Setup_" + ComboBox1.Text.ToLower + ".exe" & Chr(34))
  39.             addInfo.WriteLine(Chr(34) & "InstallPath" & Chr(34) & "=" & Chr(34) & TextBox1.Text & Chr(34))
  40.             addInfo.WriteLine(Chr(34) & "InstallDrive" & Chr(34) & "=" & Chr(34) & "." & Chr(34))
  41.             addInfo.WriteLine(Chr(34) & "Language" & Chr(34) & "=" & Chr(34) & lang(ComboBox1.SelectedIndex) & Chr(34))
  42.             addInfo.WriteLine(Chr(34) & "StartMenuFolder" & Chr(34) & "=" & Chr(34) & Chr(34))
  43.             addInfo.WriteLine(Chr(34) & "Version" & Chr(34) & "=" & Chr(34) & "1.0" & Chr(34))
  44.             addInfo.WriteLine(Chr(34) & "UninstallString" & Chr(34) & "=" & Chr(34) & Chr(34))
  45.             addInfo.WriteLine(Chr(34) & "QA" & Chr(34) & "=" & Chr(34) & "10.0" & Chr(34))
  46.             addInfo.WriteLine(Chr(34) & "Key" & Chr(34) & "=" & Chr(34) & "BUUGCFB32CKAUYMGE15F" & Chr(34))
  47.             addInfo.WriteLine("")
  48.             addInfo.WriteLine("[HKEY_CURRENT_USER\Software\Activision\Tony Hawk's Underground 2\Install]")
  49.             addInfo.WriteLine("@=" & Chr(34) & Chr(34))
  50.             addInfo.WriteLine(Chr(34) & "Language" & Chr(34) & "=dword:00000001")
  51.             addInfo.WriteLine(Chr(34) & "Path" & Chr(34) & "=" & Chr(34) & TextBox1.Text & Chr(34))
  52.             addInfo.WriteLine("")
  53.             addInfo.WriteLine("[HKEY_CURRENT_USER\Software\Activision\Tony Hawk's Underground 2\Settings]")
  54.             addInfo.WriteLine("@=" & Chr(34) & Chr(34))
  55.             addInfo.WriteLine("")
  56.         End Using
  57.     End Sub
  58. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top