the registry.bas is in the source files...Quote:
Originally Posted by psihomatka
Printable View
the registry.bas is in the source files...Quote:
Originally Posted by psihomatka
and my error?
Your error is = You NEED to load the registry.bas in your VB....
i have posted a picture and there is folder modules in pres on + you will se file with name REGISTRY .........
How to use it execelly /= /=
If you want build your own Launcher Easily and quickly, download LauncherFacil, from my website www.wansoft.somee.com
I dont understand nothing how to use this files:(
Great release, I made my own launcher!!!Quote:
Originally Posted by kamus2004
no have permission download
I need help making a MX Launcher. For versions 1.1 in Mu. Can some help me, by maybe giving me the Source code for Visual Basic C++ and the Project file as well. Please?
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:
this is the VB code" frmOptions" 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
take a look at this screenies...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
Error in VStudio 2005 pro edition =\=\
Cant u just not be like lazy and show us on Rz with screenies
3 years ago :\