23/06/2008, 11:16 PM
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:
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...
source
