How to make a launcher in VB2008

[kazama]

################################
##If this if wrong place to the guide plz move it##
################################

Hello :wave:
This guide well show you have to make your own world of warcraft launcher.
This Launcher well be sample so it well only run you WoW and a link to wow Support and a readme.

Code for button 1 / Play Button

Imports System.IO
Imports System.Environment


Public Class Form1
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fs As New FileStream("realmlist.wtf", FileMode.Create, FileAccess.Write)
        Dim s As New StreamWriter(fs)
        s.WriteLine("Set realmlist yours server or blizz server")
        s.Close()

        Dim ss As String = startgame("HKEY_LOCAL_MACHINESOFTWAREblizzard entertainmentworld of warcraft", "installpath", "WoW.exe")

        If ss <> String.Empty Then
            My.Settings.wow = ss
            My.Settings.Save()
        End If
        Close()
    End Sub

Edit to you realmlist for the server you well play on.

Now we need to get the play button to work add this code:

Private Function startgame(ByVal RegPath As String, ByVal RegValue As String, ByVal ExeFile As String) As String
        Dim retval
        Dim installpath As String = String.Empty
        installpath = My.Computer.Registry.GetValue(RegPath, RegValue, Nothing)
        If Directory.Exists(installpath) Then

            ChDir(installpath)
            retval = Shell(ExeFile, 1)
        Else
            With OpenFileDialog1
                .InitialDirectory = GetFolderPath(Environment.SpecialFolder.ProgramFiles)
                .Title = "Please Select " & ExeFile
                .Filter = "Windows Executable *.Exe|*.exe"
                .FileName = ExeFile
                If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                    Process.Start(.FileName)
                    Return .FileName
                End If


            End With


        End If

        Return String.Empty
    End Function

and this:

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

Now well your launcer work but its not that cool to only have one button so lets make a support button.
add this code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        startProcess("http://www.wow-europe.com/en/support/")
    End Sub

I'm using my launcher to Wotlk privat server the server is not "up to date" so i make a button in my launcher to open my wotlk wow.exe fil so it wont patch, you can do that this way.
Add code:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        startProcess("C:ProgrammerWrath of the Lich King Betawow.exe")
        Close()
    End Sub

Red text to where yours wotlk beta place.

I have a ReadMe box in my launcher to show with all is for you can add one this way:
Go to "Projekt" Then Add "Windows Form..." Name it what you like.
Make a TextBox where you can Writh the Read Me mgs you want.
Then add a close Button.
use this code:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

Now go Back to Form1 can make a Button for ReadMe
add this code:

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Form2.ShowDialog()
    End Sub

Hope this well help you and ejoy you now launcher!:wave:

This is my luancher

[*Scripted*]

Nice +Rep .

[Clain]

Did you write this code... been posted like 3 times i believe.

[kazama]

Did you write this code... been posted like 3 times i believe.

-Yes i did

[*Scripted*]

i tryed following this and got errors ima take that +Rep back >>

[kazama]

i tryed following this and got errors ima take that back >>

What Errors do you get?

[matafakas]

Can i get a full guide, where do write the codes? thx...

[kazama]

Can i get a full guide, where do write the codes? thx...

you just type in the form1 and form2 when it says

[frkcoaster6]

Looks exactly like a guide on ac-web

[syrtan]

This guide is repost, belived I have seen it on ac-web before

[kazama]

Link plz couse then i'll delete it

[Nlghtmare]

i tryed following this and got errors ima take that +Rep back >>

lawl
Did you ever think about becoming a cop?


Thanks for the guide.
Good stuff.

[*Scripted*]

lawl
Did you ever think about becoming a cop?


Thanks for the guide.
Good stuff.

this was Copy/pasted form Ac-web ...

[kazama]

this was Copy/pasted form Ac-web ...

Link to the post then ill delete this one... i said