Quote:As many of you know, FreeTheWads is a VC region changer (works with wiiware too).  It does not work with all games.  Here is a copy with a GUI - no DOS needed

  
ORIGINAL THREAD TEXT:
"Here is my freethewads GUI for people who do not like using the DOS window. You still need the freethewads.exe in the same folder as this program.
[note: I included everything in the upload ]

Credits to:

Superken7 - the creator of freethewads
Me (Arcdemon/Arcms) - the creator of the freethewads GUI"


ORIGINAL SOURCE CODE:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Public Class frmFreeTheWads Private Sub FreeWad(ByVal Region As Integer) Dim freethewads As New Process freethewads.StartInfo.UseShellExecute = False freethewads.StartInfo.RedirectStandardOutput = True freethewads.StartInfo.RedirectStandardInput = True freethewads.StartInfo.FileName = "freethewads" freethewads.StartInfo.Arguments = Chr(34) & txtWadFile.Text & Chr(34) & " a" freethewads.Start() freethewads.StandardInput.WriteLine(Region) freethewads.StandardInput.WriteLine("y") freethewads.WaitForExit() Dim output As String = freethewads.StandardOutput.ReadToEnd() txtLog.Clear() txtLog.Text = output End Sub Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click If ofdBrowse.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then txtWadFile.Text = ofdBrowse.FileName End If End Sub Private Sub btnFree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFree.Click If txtWadFile.Text = Nothing Then MessageBox.Show("You must open a file to continue.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Else If My.Computer.FileSystem.FileExists(txtWadFile.Text) = False Then MessageBox.Show("The file you have chosen does not exist.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) ElseIf rdbNTSCJ.Checked = True Then FreeWad(0) ElseIf rdbNTSCU.Checked = True Then FreeWad(1) ElseIf rdbPAL.Checked = True Then FreeWad(2) ElseIf rdbFree.Checked = True Then FreeWad(3) Else MessageBox.Show("You must choose a region before changing a wad file.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End If End If End Sub End Class

---

all the regular rules still apply...