HK's standard launcher

ok i know the launcher looks plain ugly but what i am after is to make a launcher that can be custumized abit
just moved from vb6 to rb and still learning. however i made this launcher to have more functionality so suggestions are welcome

there are some things in the launcher that can be changed with some registry values (there is a bat file that comes with the launcher. the launcher will run that bat file on the first run to add all the custum values)

you dont have to wait for the webbrowser to finnish before you can click anything and the launcher is pretty fast^^

http://img40.imageshack.us/img40/8351/publicz.png
http://img151.imageshack.us/img151/6293/public1.png
http://img151.imageshack.us/img151/5742/public2.png
http://img40.imageshack.us/img40/4084/creditso.png
as i said i am trying to learn this program language and i am still abit slow on mastering it xD

for those that dont know how to edit a bat(trust me there are some who dont know)
just rightclick on launcher.bat and select edit
in it you will find something like this

Quote:

---

set MU=HKEY_CURRENT_USER\Software\Webzen\MU\Config
set UPDATE=HKEY_CURRENT_USER\Software\Update
reg add %MU% /v LoadDonate /t REG_DWORD /d 00000000 /f
reg add %MU% /v LoadNews /t REG_DWORD /d 00000001 /f
reg add %MU% /v NewsURL /t REG_SZ /d "www.zhypermu.com" /f
reg add %MU% /v ServerName /t REG_SZ /d "Zhypermu launcher" /f
reg add %MU% /v DonationURL /t REG_SZ /d "www.zhypermu.com" /f
reg add %MU% /v ServerIPorURL /t REG_SZ /d "www.zhypermu.com" /f
reg add %MU% /v ServerStat /t REG_DWORD /d 00000001 /f
reg add %MU% /v bg373x354 /t REG_SZ /d "%CD%\bg373x354.gif" /f
reg add %MU% /v bg367x354 /t REG_SZ /d "%CD%\bg367x354.gif" /f

reg add %UPDATE% /v AutoUpdate /t REG_DWORD /d 00000001 /f
reg add %UPDATE% /v URL /t REG_SZ /d "http://xezis.homeip.net/Update/version.txt" /f
reg add %UPDATE% /v File /t REG_SZ /d "http://xezis.homeip.net/Update/update.rar" /f
reg add %UPDATE% /v Version /t REG_SZ /d "1.00.00.00" /f
reg add %UPDATE% /v Parameters /t REG_SZ /d "/connect" /f

---

the bold parts are what you should edit
save and youre done and can release the launcher with the client or on the updater

here are explaination of the values

Code:

---

LoadDonate = 00000001 loads donation page on the launcher browser, 00000000 set it to about:blank(recommended due to some people having low connection)
LoadNews = same as donate but counts on the News tab
NewsURL = the url to the news site or server website
DonationURL = the url to the donation website
ServerName = Name on the launcher (automaticly shows Update Version x.xx.xx.xx)
ServerIPorURL = used in server status checker, its the url or ip to the server, default port is 44405 but if needed i can add value to change that too. i recommend using the url in ServerIPorURL
ServerStat = 00000001 will turn the server status checker on while 00000000 will turn it off and make the connect button bigger

AutoUpdate = 00000001 turns it on and 00000000 turns it off
URL = the URL to the textfile to compare the versions with(REMEMBER HTTP:// or else it wont work)
File = URL to the RAR file if the version.txt doesnt match the Version registry value(REMEMBER HTTP:// or else it wont work)
Version = the value that the launcher will compare to the version.txt on the server, the launcher updates this value with the version.txt from the RAR file
Parameters = you can ignore this unless your main.exe needs special parameters to connect to the server(blank and /connect are defaults)
bg367x354 = picture used in launcher tab while in Normal Mode
bg373x354 = picture used in launcher tab while in TLM(Tabbed Launcher Mode)

---

more functions will come once i figure how to code them XD
PS: do not change name on the libs folder!! its needed for the launcher to function

download link: http://www.sendspace.com/file/0e0sbd new link, version.txt bug fixed+new unrar.dll

remember this is just a simple standard launcher, i dont do graphics so the first person who complains about that should get themself some glasses

thanks to Xezis for letting me borrow 200bytes of space on his webserver XD
you ppl should be happy he did it! XD now you got an autoupdater!

Guide to the RAR file (get winrar from www.rarlabs.com )
* MUST contain the same version.txt as the one on the webserver
* if youre going to edit the registry values of the launcher(like urls and update settings) you have to make your own launcher.bat(basicly just copy+paste from mine)
* the RAR file can have any name! it will still be saved in the client as update.rar but it much match the registry value of File
* version.txt can have any name but it must match the registry value of URL
* the launcher extracts the files+folders by itself so long the unrar.dll is in the .exe directory
* you can update the unrar.dll by getting an updated one from http://www.rarlab.com/rar/UnRARDLL.exe

PS: this autoupdater cant be bypassed by changing the version

please report any bugs, i will fix them asap

Approved it is.

Awesome launcher HK!!, damn man that was one hell of a beauty! <3
10/10

good job man 10/10 ... nice looking too xD

remember to come with suggestions

Quote:

---

Originally Posted by *HK*

remember to come with suggestions

---

Game volume conf:

Code:

---

        Dim Volume As String = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", "")
        TrackBar1.Maximum = 5

---

Code:

---

        Select Case Volume
            Case "1"
                TrackBar1.Value = 1
            Case "2"
                TrackBar1.Value = 2
            Case "3"
                TrackBar1.Value = 3
            Case "4"
                TrackBar1.Value = 4
            Case "5"
                TrackBar1.Value = 5
            Case Else
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", 5)
                CheckBox1.Checked = True
        End Select

---

Code:

---

        If TrackBar1.Value = 1 Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", 1)
        End If
        If TrackBar1.Value = 2 Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", 2)
        End If
        If TrackBar1.Value = 3 Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", 3)
        End If
        If TrackBar1.Value = 4 Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", 4)
        End If
        If TrackBar1.Value = 5 Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", 5)
        End If

---

my old auto update:

Code:

---

Public Class Form4
    Dim FI_1 As String = Nothing
    Dim WithEvents downl As New Net.WebClient
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("Connection to download server . . .")
        Try
            Dim ts As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient("127.0.0.1", 44405)
        Catch ex As System.Net.Sockets.SocketException
            If (ex.ErrorCode = 10061) Then
                ListBox1.Items.Add("Connection to server established")
            Else
                MsgBox("Update server is offline")
            End If
        End Try
        ListBox1.Items.Add("Checking client server version . . .")

        My.Computer.Network.DownloadFile("http://localhost/xx.txt", "yourversion.txt", 1, 1, False, 1, True)
        'Dispose()
        Const cnstart = "ClientVersion="
        Dim lines = IO.File.ReadAllLines("yourversion.txt")
        Dim ComputerName = (From line In lines Where line.StartsWith(cnstart)).First.Substring(cnstart.Length)
        ListBox1.Items.Add("Your client version" & ComputerName)


        My.Computer.Network.DownloadFile("http://localhost/xxx.txt", "lastversion.txt", 1, 1, False, 1, True)
        ' Dispose()
        Const cnstart2 = "ClientVersion="
        Dim lines2 = IO.File.ReadAllLines("lastversion.txt")
        Dim ComputerName2 = (From line2 In lines2 Where line2.StartsWith(cnstart2)).First.Substring(cnstart2.Length)
        ListBox1.Items.Add("Lastest client version" & ComputerName2)

        If ComputerName2 = ComputerName Then
            ListBox1.Items.Add("You already have the lastest version . . .")
        End If
        If ComputerName2 <> ComputerName Then
            ListBox1.Items.Add("Downloading update file . . .")
            My.Computer.Network.DownloadFile("http://localhost/xxx.txt", "lastversion.txt", 1, 1, False, 1, True)
            downl.DownloadFileAsync(New Uri("http://localhost/lol.exe"), "temp_update.exe")
            ListBox1.Items.Add("Closing download process . . .")
            downl.Dispose()
            ListBox1.Items.Add("Selection option that update download done . . .")
            FI_1 = True
        Else
            FI_1 = False
        End If
        If FI_1 = True Then
            ListBox1.Items.Add("Starting install update . . .")
            Dim p As Process = Process.Start("temp_update.exe")
            ListBox1.Items.Add("Waiting for exit . . .")
            p.WaitForExit()
            ListBox1.Items.Add("Deleting update file . . .")
            My.Computer.FileSystem.DeleteFile("temp_update.exe")
            ListBox1.Items.Add("Now you can go play . . .")
        End If
    End Sub
    Private Sub downl_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downl.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub
End Class

---

fade in/out:

Code:

---

        Me.Opacity = 0
        Dim iCount2 As Integer
        For iCount2 = 0 To 100 Step +10
            Me.Opacity = iCount2 / 100
            Me.Refresh()
            Threading.Thread.Sleep(65)
        Next
        Me.Opacity = 100
        Dim iCount As Integer
        For iCount = 100 To 0 Step -10
            Me.Opacity = iCount / 100
            Me.Refresh()
            Threading.Thread.Sleep(65)
        Next
        Form1.Show()
        Me.Close()

---

server status:

Code:

---

        Try
            Dim ts As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient("127.0.0.1", 44405)
        Catch ex As System.Net.Sockets.SocketException
            If (ex.ErrorCode = 10061) Then
                Label2.Text = "Offline"
            End If
        End Try

---

check if main.exe exist and start game

Code:

---

        If (My.Computer.FileSystem.FileExists("./main.exe")) Then
            Process.Start("./main.exe")
        Else
            MsgBox("Can't find object 'main.exe', please reinstall client.", MsgBoxStyle.Critical, "Client Critical Error")
        End If

---

will try but cant promise anything
rb migt be similar to vb6 but its far from same xD
btw just curious
why would you want a volume config on launcher when its ingame and you can use the one on the computer? :P

use visual basic 2008... it's good language for beginners...

Quote:

---

Originally Posted by *HK*

btw just curious
why would you want a volume config on launcher when its ingame and you can use the one on the computer? :P

---

don't know.. but wz added that option.. :P

Quote:

---

Originally Posted by *LoRD*

use visual basic 2008... it's good language for beginners...

don't know.. but wz added that option.. :P

---

i hate vb.net -.-' why you think i used vb6 in the first place lol
anyway i like realbasic its ok its not visual basic but much are similar and some stuff are totaly different

here is a snipset of the open event(on load in vb)

Code:

---

  dim s as shell
  s = new shell
  s.execute "launcher.bat"
  dim regpath as registryitem
  regpath = new RegistryItem("HKEY_CURRENT_USER\Software\webzen\MU\Config")
  Launcher.title = regpath.value("ServerName")
  htmlviewer2.helptag = regpath.value("NewsURL")
  htmlviewer3.helptag = regpath.value("DonationURL")
  Editfield1.text = regpath.value("ID")
  if regpath.value("SoundOnOff") = 1 then
    Checkbox1.value = true
  else
    Checkbox1.value = false
  end if
  if regpath.value("MusicOnOff") = 1 then
    checkbox2.value = true
  else
    checkbox2.value = false
  end if
  if regpath.value("WindowMode") = 1 then
    checkbox3.value = true
  else
    checkbox3.value = false
  end if
  if regpath.value("ColorDepth") = 1 then
    checkbox4.value = true
  else
    checkbox4.value = false
  end if
  if regpath.value("Resolution") = 3 then
    radiobutton1(4).value = true
  elseif regpath.value("Resolution") = 1 then
    radiobutton1(2).value = true
  elseif regpath.value("Resolution") = 2 then
    radiobutton1(3).value = true
  else
    radiobutton1(1).value = true
  end if
  if regpath.value("CloseLauncher") = 0 then
    Checkbox5.Value = false
  else
    checkbox5.value = true
  end if
  if checkbox6.value = true then
    regpath.value("LoadNews") = 1
  else
    regpath.value("LoadNews") = 0
  end if
  if regpath.value("LoadNews") = 1 then
    HTMLViewer2.LoadURL Htmlviewer2.helptag
  else
  end if
  if regpath.value("LoadDonate") = 1 then
    HTMLViewer3.LoadURL htmlviewer3.helptag
  else
  end if

---

and here is enabling and disabling window mode

Code:

---

  dim winmode as registryitem
  winmode = new registryitem("HKEY_CURRENT_USER\Software\webzen\MU\Config")
  if checkbox3.value = false then
    winmode.value("WindowMode") = 0
  else
    winmode.value("WindowMode") = 1
  end if

---

its close to how it could been done in vb6(if you dont add in the api declares)

some stuff only have different names
some stuff have different names and alot more functions lol:drool:
only thing that annoys me is that i cant use own namespaces but the code is sorted so nicely i hardly notice haha

its like learning vb6 from scratch again

and *lord* if youre interested maybe you want to work with me developing in this language and make a fast and custumizeable launcher for RZ community xD

Nice Launcher :)

LoRD:

Code:

---

        If TrackBar1.Value = 1 Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", 1)
        End If
        If TrackBar1.Value = 2 Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", 2)
        End If
        If TrackBar1.Value = 3 Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", 3)
        End If
        If TrackBar1.Value = 4 Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", 4)
        End If
        If TrackBar1.Value = 5 Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", 5)
        End If

---

Maybe better change this to:

Code:

---

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Webzen\Mu\Config", "VolumeLevel", TrackBar1.Value)

---

2 Xezis and LorD

What is lang? (source)

Quote:

---

Originally Posted by Kirgston

2 Xezis and LorD

What is lang? (source)

---

the sources they posted are in visualbasic

Quote:

---

Originally Posted by *HK*

and *lord* if youre interested maybe you want to work with me developing in this language and make a fast and custumizeable launcher for RZ community xD

---

add me on msn: thunder52@live.com

added and i will start right away

also i will add a custumize tab where you can change server url/ip and enable/disable the server status checker
more suggestions anyone?

updated
added server status checker! also i updated the download link and i might have autoupdate ready once i get to test it
i just need someone who can lend me a little space on their server by having 2 files on it
a txt file and a zip file

pm me for more info

download link: http://www.sendspace.com/file/rhjhq0