[Release]Custom Launcher[Vb.Net]

[Emptie[Imp]]

This launcher was designed for a server that no longer exists, but the code could be changed slightly and work with any server.

Imports System.IO
Imports System.Diagnostics.Process

Public Class Form1

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Dim realmlist As StreamWriter = New StreamWriter("realmlist.wtf", False)
		realmlist.WriteLine("set realmlist frozenwarground.kicks-ass.net")
		realmlist.Close()
		Try
			startProcess("wow.exe")
		Catch
			MsgBox("wow.exe not found. Please make sure this is in your WoW directory.")
		End Try
		clearCache()
		Me.Close()
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim realmlist As StreamWriter = New StreamWriter("realmlist.wtf", False)
		realmlist.WriteLine("set realmlist us.logon.worldofwarcraft.com")
		realmlist.WriteLine("set patchlist us.version.worldofwarcraft.com")
		realmlist.Close()
		Try
			startProcess("wow.exe")
		Catch
			MsgBox("wow.exe not found. Please make sure this is in your WoW directory.")
		End Try
		clearCache()
		Me.Close()
	End Sub

	Private Function startProcess(ByVal filename As String)
		Dim install = New Process()
		install.StartInfo.FileName = filename
		install.Start()
		startProcess = 1
	End Function

	Private Function clearCache()
		Dim location As String = App_Path()
		Dim s As String
		Try
			For Each s In System.IO.Directory.GetFiles(location & "cache\wdb\enus")
				System.IO.File.Delete(s)
			Next s
		Catch
			MsgBox("Sorry, this launcher only works with enUS versions of WoW.")
		End Try
		clearCache = 1
	End Function

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		Start("http://wow-v.com/vote.php?id=1883")
		Button2.Text = "Frozen Warground"
		Button2.Enabled = True
		Timer1.Enabled = False
	End Sub

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		count = count - 1
		Button2.Text = "Frozen Warground (" & count & ")"
		If count = 0 Then
			Button2.Text = "Frozen Warground"
			Button2.Enabled = True
			Timer1.Enabled = False
		End If
	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		count = 10
		Button2.Enabled = False
		Timer1.Enabled = True
		trayicon.ShowBalloonTip(10000)
	End Sub

	Public Function App_Path() As String
		Return System.AppDomain.CurrentDomain.BaseDirectory()
	End Function
End Class

Screenshot:




Please make sure you give me credits if you use my code.

[Kuraria]

I need some code to auto log the person in I can't get the timing right to fill in the boxes

[kaothic]

Dont work for me :/

------ Operación Volver a generar todo iniciada: proyecto: WindowsApplication2, configuración: Debug Any CPU ------
E:WINDOWSMicrosoft.NETFrameworkv3.5Vbc.exe /noconfig /imports:Microsoft.VisualBasic,System,System.Collections,System.Collections.Generic,System.Data,System.Drawing,System.Diagnostics,System.Windows.Forms,System.Linq,System.Xml.Linq /optioncompare:Binary /optionexplicit+ /optionstrict:custom /nowarn:42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 /optioninfer+ /rootnamespace:WindowsApplication2 /doc:objDebugWindowsApplication2.xml /define:"CONFIG="Debug",DEBUG=-1,TRACE=-1,_MyType="WindowsForms",PLATFORM="AnyCPU"" /reference:"E:Archivos de programaReference AssembliesMicrosoftFrameworkv3.5System.Core.dll","E:Archivos de programaReference AssembliesMicrosoftFrameworkv3.5System.Data.DataSetExtensions.dll",E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Data.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Deployment.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Drawing.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Windows.Forms.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Xml.dll,"E:Archivos de programaReference AssembliesMicrosoftFrameworkv3.5System.Xml.Linq.dll" /main:WindowsApplication2.My.MyApplication /debug+ /debug:full /filealign:512 /out:objDebugWindowsApplication2.exe /resource:objDebugWindowsApplication2.Form1.resources /resource:objDebugWindowsApplication2.Resources.resources /target:winexe Form1.vb Form1.Designer.vb "My ProjectAssemblyInfo.vb" "My ProjectApplication.Designer.vb" "My ProjectResources.Designer.vb" "My ProjectSettings.Designer.vb"
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(6) : error BC30506: La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(19) : error BC30506: La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(53) : error BC30506: La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(55) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(56) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(57) : error BC30451: No se ha declarado el nombre 'Timer1'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(60) : error BC30506: La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(61) : error BC30451: No se ha declarado el nombre 'count'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(61) : error BC30451: No se ha declarado el nombre 'count'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(62) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(62) : error BC30451: No se ha declarado el nombre 'count'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(63) : error BC30451: No se ha declarado el nombre 'count'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(64) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(65) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(66) : error BC30451: No se ha declarado el nombre 'Timer1'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(71) : error BC30451: No se ha declarado el nombre 'count'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(72) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(73) : error BC30451: No se ha declarado el nombre 'Timer1'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(74) : error BC30451: No se ha declarado el nombre 'trayicon'.
========== Volver a generar todo: 0 correctos, 1 incorrectos, 0 omitidos ==========

[atersi]

i will test this

[colincancer]

yeah dude you should provide a link to a guide so ppl will know wat to do with this...anyways the screen shot is pointless because ppl have to make their own unless you're downloading something, and anyways while making my own, i couldnt even get the code to work...

[fastelf]

If someone can get this working it would be much appreciated

[j00nas]

Hello,
I noticed you only posted the code but no forms etc, so I made some modifications and this is what I came up with:


It has a basic news-system, which gets text-file content from a webserver.

Rar Incl:

• Source files (*.sln,*.vb etc)
• Header *.PSD

Download:
Filebeam - Free Fast File Hosting
RapidShare: Easy Filehosting

:wave:

[Rec Alpam]

+Rep for J00nas

[Aelus]

Nice contribution J00nas +rep x2

[Toxcito]

Nice, im gonna use this for mine!

[erobins]

Hello,
I noticed you only posted the code but no forms etc, so I made some modifications and this is what I came up with:


It has a basic news-system, which gets text-file content from a webserver.

Rar Incl:

• Source files (*.sln,*.vb etc)
• Header *.PSD

Download:
Filebeam - Free Fast File Hosting
RapidShare: Easy Filehosting

:wave:

I like the look of this...but the links do nto work.

[OMGPanic!]

erobins make sure the executable file is saved in your WoW directory.

Edit:
Asuming everyone uses the default installation path then replace

startProcess("wow.exe")

with

startProcess("%ProgramFiles%World of Warcraftwow.exe")

And the proggram will run from any directory.

[ShadowDark19]

Nice,y need custom launcher...+rep