Make your own launcher! - [ Dark Team ]

Nicee Server Duuudes!

Does it works with 1.02D?
if yes.. what did i do wrong?

i just start the exe and i can't select a server.

pls help.

greetz

MaSch

Does it works for 1.02?

Becaus when i use it and try to connect, it don't show any servers :-(

So there is this window where i usualy select out of 20servers (you know???) and there is nothing. Only the background ^^.

Why?

I looked in the MuError.log and wonder O.o the ip and port are given right.

pls help :-(

greetz

MaSch

-------------
Sry for my bad english

Wow Great

Great! Now how do I add option for Window Mode?

i already don't understand how to make launcher from this source :D

can you pls help me for this?

i have downloaded this launcher here in ragezone but unfortunately, its for MU launcher...
can this laucher work for ran online? pls help! how to change those code...? who knows, anyone sirs?
anyone who have good heart by helping me here? thnx a million in advance!

this is the VB code "frmMain" of the launcher:

Quote:

---

Dim server_ip As String
Dim server_port As Long
Dim connect_port As Long
Private Sub buttons_Click(Index As Integer)
On Error GoTo Hell
Select Case Index
Case "0"
Shell App.Path & "\main.exe connect /u" & server_ip & " /p44405", vbNormalFocus
Case "1"
browser.Navigate "http://www.ragezone.com/" 'here is your register page
Case "2"
frmOptions.Show 1
Case "3"
End
End Select
Hell:
If Err.Number = "53" Then
MsgBox "File not found.", vbCritical, "Error"
End If
End Sub
Private Sub Form_Load()
'set options
server_ip = "darkteam.servegame.com"
server_port = "55901"
connect_port = "44405"
'do initial commands
ws.Connect server_ip, server_port
browser.Navigate "http://www.ragezone.com" 'here is your news page
End Sub

Private Sub tmr_Timer()
Select Case ws.State
Case "9"
StatusBar1.Panels(2).Text = "Error / Offline?"
ws.Close
ws.Connect server_ip, server_port
Case "7"
StatusBar1.Panels(2).Text = "Online"
tmr.Enabled = False
ws.Close
Case Else
StatusBar1.Panels(2).Text = "?"
ws.Close
ws.Connect server_ip, server_port
End Select
End Sub

---

this is the VB code" frmOptions" of the launcher:

Quote:

---

Public Sub LoadOptions()
Dim resolution As Long
txt_login.Text = GetSettingString(HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "ID")
chk_sound(0).Value = GetSettingLong(HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "MusicOnOff")
chk_sound(1).Value = GetSettingLong(HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "SoundOnOff")
resolution = GetSettingLong(HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "Resolution")
Select Case resolution
Case "0"
chk_resolution(0).Value = True
Case "1"
chk_resolution(1).Value = True
Case "2"
chk_resolution(2).Value = True
Case "3"
chk_resolution(3).Value = True
End Select
End Sub

Public Sub SetOptions()
SaveSettingString HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "ID", Trim(txt_login.Text)
SaveSettingLong HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "MusicOnOff", chk_sound(0).Value
SaveSettingLong HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "SoundOnOff", chk_sound(1).Value
If chk_resolution(0).Value = True Then
SaveSettingLong HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "Resolution", "0"
SaveSettingLong HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "ResolutionA", "0"
ElseIf chk_resolution(1).Value = True Then
SaveSettingLong HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "Resolution", "1"
SaveSettingLong HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "ResolutionA", "0"
ElseIf chk_resolution(2).Value = True Then
SaveSettingLong HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "Resolution", "2"
SaveSettingLong HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "ResolutionA", "0"
ElseIf chk_resolution(3).Value = True Then
SaveSettingLong HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "Resolution", "3"
SaveSettingLong HKEY_CURRENT_USER, "Software\Webzen\Mu\Config", "ResolutionA", "1"
End If
End Sub

Private Sub chk_sound_Click(Index As Integer)

End Sub

Private Sub cmd_control_Click(Index As Integer)
If Index = "0" Then
SetOptions
Unload Me
Else
Unload Me
End If
End Sub

Private Sub Form_Load()
LoadOptions
End Sub

---

take a look at this screenies...

Error in VStudio 2005 pro edition =\=\

Cant u just not be like lazy and show us on Rz with screenies

3 years ago :\