-
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 0000000
0 /f
reg add %MU% /v LoadNews /t REG_DWORD /d 0000000
1 /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 0000000
1 /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 0000000
1 /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
-
Re: [RELEASE] HK's standard launcher
-
Re: [RELEASE] HK's standard launcher
Awesome launcher HK!!, damn man that was one hell of a beauty! <3
10/10
-
Re: [RELEASE] HK's standard launcher
good job man 10/10 ... nice looking too xD
-
Re: [Release] HK's standard launcher
remember to come with suggestions
-
Re: [Release] HK's standard launcher
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
-
Re: [Release] HK's standard launcher
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
-
Re: [Release] HK's standard launcher
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
-
Re: [Release] HK's standard launcher
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
-
Re: [Release] HK's standard launcher
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)
-
Re: [Release] HK's standard launcher
2 Xezis and LorD
What is lang? (source)
-
Re: [Release] HK's standard launcher
Quote:
Originally Posted by
Kirgston
2 Xezis and LorD
What is lang? (source)
the sources they posted are in visualbasic
-
Re: [Release] HK's standard launcher
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
-
Re: [Release] HK's standard launcher
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?
-
Re: [Release] HK's standard launcher
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
-
Re: [Release] HK's standard launcher
Quote:
Originally Posted by
*LoRD*
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
server status is very very looong.. how i can insert timout 1sec?
-
Re: [Release] HK's standard launcher
that serverstatus isnt long at all
its 7 lines
my rb code checks if server is online
once it finds out it will close its connection to it to avoid hammering the server
-
Re: [Release] HK's standard launcher
ENOZEGaRLoL:
Search info about "TcpClient.ReceiveTimeout"
-
Re: [Release] HK's standard launcher
Quote:
Originally Posted by
Xezis
ENOZEGaRLoL:
Search info about "TcpClient.ReceiveTimeout"
already finnished serverstatus lol xD
i just need a webserver to test autoupdate on :glare: i dont even need access to it so long the 2 files i test with will be uploaded on it
-
1 Attachment(s)
Re: [Release] HK's standard launcher
the files i need uploaded on the webserver are the 2 files in the zip file
and yes my autoupdater uses rar files
just pm me the link to where the files are placed on the server so i can test and i pm back the results when done
this is critical if i am going to add the next release of this launcher! because i want to be sure everything works :)
-
Re: [Release] HK's standard launcher
Thanks Xezis
because of you beeing so nice to borrow me 200bytes on your webserver i finnished autoupdate
download link: http://www.sendspace.com/file/jop5vz
-
Re: [Release] HK's standard launcher
-
Re: [Release] HK's standard launcher
keep getting this error "missing version.txt tell the owner version.txt is missing in update.rar", but it isnt!
and version.txt in rar and not in rar are the same ._.
can anyone help me?
-
Re: [Release] HK's standard launcher
Quote:
Originally Posted by
Xezis
ENOZEGaRLoL:
Search info about "TcpClient.ReceiveTimeout"
i search and i find.. but not working :S
Code:
Try
Dim ts As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient("127.0.0.1", 44405)
ts.ReciveTimout = 1000
Catch ex As System.Net.Sockets.SocketException
If (ex.ErrorCode = 10061) Then
MsgBox("offline damn")
End If
End Try
Hk ur launcher have the same problem.. if server is offline 20second for open launcher :S
-
Re: [Release] HK's standard launcher
i noticed i had that problem only with the updater o.O
no matter what i do it wont think its offline
i will put in a timeout later when i get back from vacation
-
Re: [Release] HK's standard launcher
great news!!!
i have fixed the memory leak bug in the updater
now it should work 100%!
btw if anyone need help fixing a simlar updater bug here is a RB source (if you know vb6 it will still be understandable)
Code:
dim online as boolean //online is the variable used for the timeout
dim webver as FolderItem //webver is the variable for getting files
webver= new folderitem("webversion.txt") //webver becomes the variable for webversion.txt
online = DSocket2.Get(update.value("url"),webver, 15) //result = httpsocket.get(url as string, filename, timeout in integer/seconds) // result will then return true or false depending on how long time the httpsocket use connect to the website
if online = false then //if online returns false then
statictext19.text = "Update Server is offline, resuming normal launch."
beep
msgbox "Error in getting the update info from the server. The update server might be offline... Launcher will resume normal launch."
Launcher.height = 350
main = getfolderitem("main.exe")
if not main.exists then
beep
msgbox "main.exe is missing!"
else
main.launch update.value("parameters")
pushbutton3.enabled = true
if Checkbox5.Value = true then
Launcher.close
end if
end if
else
webver.MacType="txt"
webver.MacCreator="txt"
end if
added comments on the places that are relevant to fixing the bug
also using boolean as the timeout is the easiest way and works perfect if the versioninfo and the update pack is on the same server/host
new launcher download link: http://www.sendspace.com/file/o4imj6
Post any other bugs that appears and i will try fix them asap
updater functions i cant exacly test since i have no working host atm but i still got a few tricks up my shleves to use for testing updater^^
currently working on customizeable timeout value
Quote:
Originally Posted by
rbbueno
keep getting this error "missing version.txt tell the owner version.txt is missing in update.rar", but it isnt!
and version.txt in rar and not in rar are the same ._.
can anyone help me?
download the new one and try again
if you still get it then pm me your version.txt link and update.rar link
also.. is the version.txt in the update.rar named version.txt?
-
Re: [Release] HK's standard launcher
-
Re: [Release] HK's standard launcher
-
Re: [Release] HK's standard launcher
launcher XML source will be released if more people start using rb...
there will be no use releasing a source that people cant use ;)
rb uses .rbp, .rb, .rbvcp and .xml as sources
.xml beeing the only readable one in notepad
you will have to find realbasic by yourself tho
if youre going to start using realbasic i will gladly help you by giving examples
Amount of people needed to use rb before my source is released: 5
pm me if youre going to use it so i can start counting XD
rb is similar to vb and vb6(vb6 beeing the closest in similarity) but still different
also there is little need for api calls for basic stuff(in vb6 you needed api calls for mostly anything)
its like the upgrade for vb6 that microsoft ditched just to show off their .net framework that lowers performance XD
example of rb XML source (just open in rb and you get the full source easly viewable
Code:
<?xml version="1.0"?>
<RBProject version="2008r4.2">
<block type="Project" ID="0">
<ProjectSavedInVers>2008.042</ProjectSavedInVers>
<ProjMgrUser></ProjMgrUser>
<ProjMgrServer></ProjMgrServer>
<MajorVersion>1</MajorVersion>
<MinorVersion>0</MinorVersion>
<SubVersion>0</SubVersion>
<Release>0</Release>
<NonRelease>0</NonRelease>
<Region></Region>
<ShortVersion></ShortVersion>
<LongVersion></LongVersion>
<InfoVersion></InfoVersion>
<AutoIncVersion>0</AutoIncVersion>
<DefaultViewID>451825663</DefaultViewID>
<ProjectType>0</ProjectType>
<DefaultLanguage>0</DefaultLanguage>
<CurrentLanguage>0</CurrentLanguage>
<DefaultEncoding>0</DefaultEncoding>
<BuildFlags>16</BuildFlags>
<Icon>
</Icon>
<MacCreator></MacCreator>
<BuildCarbonName>My Application</BuildCarbonName>
<BuildCarbonMachOName>My Application</BuildCarbonMachOName>
<BundleIdentifier></BundleIdentifier>
<BuildSize>4194304</BuildSize>
<BuildMinSize>2097152</BuildMinSize>
<BuildSizeAsString>4096</BuildSizeAsString>
<BuildMinSizeAsString>2048</BuildMinSizeAsString>
<WinMDICaption></WinMDICaption>
<BuildWinName>My Application.exe</BuildWinName>
<BuildWinMDI>0</BuildWinMDI>
<BuildWinCompanyName></BuildWinCompanyName>
<BuildWinProductName></BuildWinProductName>
<BuildWinInternalName></BuildWinInternalName>
<BuildLinuxX86Name>MyApplication</BuildLinuxX86Name>
<DebuggerCommandLine></DebuggerCommandLine>
</block>
<block type="Module" ID="475717631">
<ObjName>App</ObjName>
<ObjContainerID>0</ObjContainerID>
<IsClass>1</IsClass>
<Superclass>Application</Superclass>
<ItemFlags>1</ItemFlags>
<IsInterface>0</IsInterface>
<IsApplicationObject>1</IsApplicationObject>
<Compatibility></Compatibility>
<PropertyVal Name="MenuBar">126361599</PropertyVal>
<ViewBehavior>
</ViewBehavior>
<Constant>
<ItemName>kFileQuitShortcut</ItemName>
<Compatibility></Compatibility>
<Visible>1</Visible>
<TextEncoding>134217984</TextEncoding>
<ItemName>kFileQuitShortcut</ItemName>
<ItemType>0</ItemType>
<ItemDef></ItemDef>
<ItemFlags>0</ItemFlags>
<ConstantInstance>
<ItemPlatform>1</ItemPlatform>
<ItemLanguage>0</ItemLanguage>
<ItemDef>Cmd+Q</ItemDef>
</ConstantInstance>
<ConstantInstance>
<ItemPlatform>5</ItemPlatform>
<ItemLanguage>0</ItemLanguage>
<ItemDef>Ctrl+Q</ItemDef>
</ConstantInstance>
</Constant>
<Constant>
<ItemName>kFileQuit</ItemName>
<Compatibility></Compatibility>
<Visible>1</Visible>
<TextEncoding>134217984</TextEncoding>
<ItemName>kFileQuit</ItemName>
<ItemType>0</ItemType>
<ItemDef>&Quit</ItemDef>
<ItemFlags>0</ItemFlags>
<ConstantInstance>
<ItemPlatform>2</ItemPlatform>
<ItemLanguage>0</ItemLanguage>
<ItemDef>E&xit</ItemDef>
</ConstantInstance>
</Constant>
<Constant>
<ItemName>kEditClear</ItemName>
<Compatibility></Compatibility>
<Visible>1</Visible>
<TextEncoding>134217984</TextEncoding>
<ItemName>kEditClear</ItemName>
<ItemType>0</ItemType>
<ItemDef>&Delete</ItemDef>
<ItemFlags>0</ItemFlags>
<ConstantInstance>
<ItemPlatform>2</ItemPlatform>
<ItemLanguage>0</ItemLanguage>
<ItemDef>&Delete</ItemDef>
</ConstantInstance>
<ConstantInstance>
<ItemPlatform>5</ItemPlatform>
<ItemLanguage>0</ItemLanguage>
<ItemDef>&Delete</ItemDef>
</ConstantInstance>
</Constant>
</block>
<block type="Window" ID="451825663">
<ObjName>Window1</ObjName>
<ObjContainerID>0</ObjContainerID>
<IsClass>1</IsClass>
<Superclass>Window</Superclass>
<ItemFlags>1</ItemFlags>
<IsInterface>0</IsInterface>
<Compatibility></Compatibility>
<HookInstance>
<ItemName>Open</ItemName>
<Compatibility></Compatibility>
<Visible>1</Visible>
<ItemSource>
<TextEncoding>134217984</TextEncoding>
<SourceLine>Sub Open()</SourceLine>
<SourceLine>dim update as registryitem</SourceLine>
<SourceLine>update = new registryitem("HKEY_CURRENT_USER\Software\Update\")</SourceLine>
<SourceLine>dim bg as picture</SourceLine>
<SourceLine>dim bitmap as folderitem</SourceLine>
<SourceLine>bitmap = getfolderitem(update.value("bg"))</SourceLine>
<SourceLine>bg = bitmap.openaspicture</SourceLine>
<SourceLine>window1.backdrop = bg</SourceLine>
<SourceLine>End Sub</SourceLine>
</ItemSource>
</HookInstance>
<PropertyVal Name="ImplicitInstance">True</PropertyVal>
<PropertyVal Name="MenuBar">126361599</PropertyVal>
<PropertyVal Name="MacProcID">0</PropertyVal>
<PropertyVal Name="MinimizeButton">True</PropertyVal>
<PropertyVal Name="MaximizeButton">False</PropertyVal>
<PropertyVal Name="LiveResize">True</PropertyVal>
<PropertyVal Name="Resizeable">False</PropertyVal>
<PropertyVal Name="CloseButton">True</PropertyVal>
<PropertyVal Name="MenuBarVisible">True</PropertyVal>
<PropertyVal Name="FullScreen">False</PropertyVal>
<PropertyVal Name="Visible">True</PropertyVal>
<PropertyVal Name="Title">Untitled</PropertyVal>
<PropertyVal Name="Backdrop"></PropertyVal>
<PropertyVal Name="BackColor">16777215</PropertyVal>
<PropertyVal Name="HasBackColor">False</PropertyVal>
<PropertyVal Name="Composite">False</PropertyVal>
<PropertyVal Name="Frame">0</PropertyVal>
<PropertyVal Name="MaxHeight">32000</PropertyVal>
<PropertyVal Name="MaxWidth">32000</PropertyVal>
<PropertyVal Name="MinHeight">64</PropertyVal>
<PropertyVal Name="MinWidth">64</PropertyVal>
<PropertyVal Name="Height">300</PropertyVal>
<PropertyVal Name="Width">300</PropertyVal>
<PropertyVal Name="Placement">0</PropertyVal>
<ViewBehavior>
<ViewProperty>
<ObjName>Name</ObjName>
<Visible>1</Visible>
<PropertyGroup>ID</PropertyGroup>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>Interfaces</ObjName>
<Visible>1</Visible>
<PropertyGroup>ID</PropertyGroup>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>Super</ObjName>
<Visible>1</Visible>
<PropertyGroup>ID</PropertyGroup>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>Placement</ObjName>
<Visible>1</Visible>
<PropertyGroup>Position</PropertyGroup>
<PropertyValue>0</PropertyValue>
<ItemType>Integer</ItemType>
<EditorType>Enum</EditorType>
<InheritsFrom>Window</InheritsFrom>
<Enumeration>
<ItemDef>0 - Default</ItemDef>
<ItemDef>1 - Parent Window</ItemDef>
<ItemDef>2 - Main Screen</ItemDef>
<ItemDef>3 - Parent Window Screen</ItemDef>
<ItemDef>4 - Stagger</ItemDef>
</Enumeration>
</ViewProperty>
<ViewProperty>
<ObjName>Width</ObjName>
<Visible>1</Visible>
<PropertyGroup>Position</PropertyGroup>
<PropertyValue>300</PropertyValue>
<ItemType>Integer</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>Height</ObjName>
<Visible>1</Visible>
<PropertyGroup>Position</PropertyGroup>
<PropertyValue>300</PropertyValue>
<ItemType>Integer</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>MinWidth</ObjName>
<Visible>1</Visible>
<PropertyGroup>Position</PropertyGroup>
<PropertyValue>64</PropertyValue>
<ItemType>Integer</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>MinHeight</ObjName>
<Visible>1</Visible>
<PropertyGroup>Position</PropertyGroup>
<PropertyValue>64</PropertyValue>
<ItemType>Integer</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>MaxWidth</ObjName>
<Visible>1</Visible>
<PropertyGroup>Position</PropertyGroup>
<PropertyValue>32000</PropertyValue>
<ItemType>Integer</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>MaxHeight</ObjName>
<Visible>1</Visible>
<PropertyGroup>Position</PropertyGroup>
<PropertyValue>32000</PropertyValue>
<ItemType>Integer</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>Frame</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>0</PropertyValue>
<ItemType>Integer</ItemType>
<EditorType>Enum</EditorType>
<InheritsFrom>Window</InheritsFrom>
<Enumeration>
<ItemDef>0 - Document</ItemDef>
<ItemDef>1 - Movable Modal</ItemDef>
<ItemDef>2 - Modal Dialog</ItemDef>
<ItemDef>3 - Floating Window</ItemDef>
<ItemDef>4 - Plain Box</ItemDef>
<ItemDef>5 - Shadowed Box</ItemDef>
<ItemDef>6 - Rounded Window</ItemDef>
<ItemDef>7 - Global Floating Window</ItemDef>
<ItemDef>8 - Sheet Window</ItemDef>
<ItemDef>9 - Metal Window</ItemDef>
<ItemDef>10 - Drawer Window</ItemDef>
<ItemDef>11 - Modeless Dialog</ItemDef>
</Enumeration>
</ViewProperty>
<ViewProperty>
<ObjName>Composite</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>False</PropertyValue>
<ItemType>Boolean</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>HasBackColor</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>False</PropertyValue>
<ItemType>Boolean</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>BackColor</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>&hFFFFFF</PropertyValue>
<ItemType>Color</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>Backdrop</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<ItemType>Picture</ItemType>
<EditorType>Picture</EditorType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>Title</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>Untitled</PropertyValue>
<ItemType>String</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>Visible</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>True</PropertyValue>
<ItemType>Boolean</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>FullScreen</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>False</PropertyValue>
<ItemType>Boolean</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>MenuBarVisible</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>True</PropertyValue>
<ItemType>Boolean</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>CloseButton</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>True</PropertyValue>
<ItemType>Boolean</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>Resizeable</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>False</PropertyValue>
<ItemType>Boolean</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>LiveResize</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>True</PropertyValue>
<ItemType>Boolean</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>MaximizeButton</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>False</PropertyValue>
<ItemType>Boolean</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>MinimizeButton</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>True</PropertyValue>
<ItemType>Boolean</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>MacProcID</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>0</PropertyValue>
<ItemType>Integer</ItemType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>MenuBar</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<ItemType>MenuBar</ItemType>
<EditorType>MenuBar</EditorType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
<ViewProperty>
<ObjName>ImplicitInstance</ObjName>
<Visible>1</Visible>
<PropertyGroup>Appearance</PropertyGroup>
<PropertyValue>True</PropertyValue>
<EditorType>Boolean</EditorType>
<InheritsFrom>Window</InheritsFrom>
</ViewProperty>
</ViewBehavior>
</block>
<block type="Menu" ID="126361599">
<ObjName>MenuBar1</ObjName>
<ObjContainerID>0</ObjContainerID>
<MenuItem>
<ItemSpecialMenu>0</ItemSpecialMenu>
<ItemName>FileMenu</ItemName>
<ItemText>&File</ItemText>
<ItemIndex>-2147483648</ItemIndex>
<ItemShortcut></ItemShortcut>
<MenuAutoEnable>1</MenuAutoEnable>
<TextEncoding>134217984</TextEncoding>
<ItemFlags>0</ItemFlags>
<Superclass>MenuItem</Superclass>
<MenuItem>
<ItemSpecialMenu>0</ItemSpecialMenu>
<ItemName>FileQuit</ItemName>
<ItemText>#App.kFileQuit</ItemText>
<ItemIndex>-2147483648</ItemIndex>
<ItemShortcut>#App.kFileQuitShortcut</ItemShortcut>
<MenuShortcut>#App.kFileQuitShortcut</MenuShortcut>
<MenuAutoEnable>1</MenuAutoEnable>
<TextEncoding>134217984</TextEncoding>
<ItemFlags>0</ItemFlags>
<Superclass>QuitMenuItem</Superclass>
</MenuItem>
</MenuItem>
<MenuItem>
<ItemSpecialMenu>0</ItemSpecialMenu>
<ItemName>EditMenu</ItemName>
<ItemText>&Edit</ItemText>
<ItemIndex>-2147483648</ItemIndex>
<ItemShortcut></ItemShortcut>
<MenuAutoEnable>1</MenuAutoEnable>
<TextEncoding>134217984</TextEncoding>
<ItemFlags>0</ItemFlags>
<Superclass>MenuItem</Superclass>
<MenuItem>
<ItemSpecialMenu>0</ItemSpecialMenu>
<ItemName>EditUndo</ItemName>
<ItemText>&Undo</ItemText>
<ItemIndex>-2147483648</ItemIndex>
<ItemShortcut>Cmd+Z</ItemShortcut>
<MenuShortcut>Z</MenuShortcut>
<MenuShortcutModifier>1</MenuShortcutModifier>
<MenuAutoEnable>1</MenuAutoEnable>
<TextEncoding>134217984</TextEncoding>
<ItemFlags>0</ItemFlags>
<Superclass>MenuItem</Superclass>
</MenuItem>
<MenuItem>
<ItemSpecialMenu>0</ItemSpecialMenu>
<ItemName>UntitledMenu1</ItemName>
<ItemText>-</ItemText>
<ItemIndex>-2147483648</ItemIndex>
<ItemShortcut></ItemShortcut>
<MenuAutoEnable>1</MenuAutoEnable>
<TextEncoding>134217984</TextEncoding>
<ItemFlags>0</ItemFlags>
<Superclass>MenuItem</Superclass>
</MenuItem>
<MenuItem>
<ItemSpecialMenu>0</ItemSpecialMenu>
<ItemName>EditCut</ItemName>
<ItemText>Cu&t</ItemText>
<ItemIndex>-2147483648</ItemIndex>
<ItemShortcut>Cmd+X</ItemShortcut>
<MenuShortcut>X</MenuShortcut>
<MenuShortcutModifier>1</MenuShortcutModifier>
<MenuAutoEnable>1</MenuAutoEnable>
<TextEncoding>134217984</TextEncoding>
<ItemFlags>0</ItemFlags>
<Superclass>MenuItem</Superclass>
</MenuItem>
<MenuItem>
<ItemSpecialMenu>0</ItemSpecialMenu>
<ItemName>EditCopy</ItemName>
<ItemText>&Copy</ItemText>
<ItemIndex>-2147483648</ItemIndex>
<ItemShortcut>Cmd+C</ItemShortcut>
<MenuShortcut>C</MenuShortcut>
<MenuShortcutModifier>1</MenuShortcutModifier>
<MenuAutoEnable>1</MenuAutoEnable>
<TextEncoding>134217984</TextEncoding>
<ItemFlags>0</ItemFlags>
<Superclass>MenuItem</Superclass>
</MenuItem>
<MenuItem>
<ItemSpecialMenu>0</ItemSpecialMenu>
<ItemName>EditPaste</ItemName>
<ItemText>&Paste</ItemText>
<ItemIndex>-2147483648</ItemIndex>
<ItemShortcut>Cmd+V</ItemShortcut>
<MenuShortcut>V</MenuShortcut>
<MenuShortcutModifier>1</MenuShortcutModifier>
<MenuAutoEnable>1</MenuAutoEnable>
<TextEncoding>134217984</TextEncoding>
<ItemFlags>0</ItemFlags>
<Superclass>MenuItem</Superclass>
</MenuItem>
<MenuItem>
<ItemSpecialMenu>0</ItemSpecialMenu>
<ItemName>EditClear</ItemName>
<ItemText>#App.kEditClear</ItemText>
<ItemIndex>-2147483648</ItemIndex>
<ItemShortcut></ItemShortcut>
<MenuAutoEnable>1</MenuAutoEnable>
<TextEncoding>134217984</TextEncoding>
<ItemFlags>0</ItemFlags>
<Superclass>MenuItem</Superclass>
</MenuItem>
<MenuItem>
<ItemSpecialMenu>0</ItemSpecialMenu>
<ItemName>UntitledMenu0</ItemName>
<ItemText>-</ItemText>
<ItemIndex>-2147483648</ItemIndex>
<ItemShortcut></ItemShortcut>
<MenuAutoEnable>1</MenuAutoEnable>
<TextEncoding>134217984</TextEncoding>
<ItemFlags>0</ItemFlags>
<Superclass>MenuItem</Superclass>
</MenuItem>
<MenuItem>
<ItemSpecialMenu>0</ItemSpecialMenu>
<ItemName>EditSelectAll</ItemName>
<ItemText>Select &All</ItemText>
<ItemIndex>-2147483648</ItemIndex>
<ItemShortcut>Cmd+A</ItemShortcut>
<MenuShortcut>A</MenuShortcut>
<MenuShortcutModifier>1</MenuShortcutModifier>
<MenuAutoEnable>1</MenuAutoEnable>
<TextEncoding>134217984</TextEncoding>
<ItemFlags>0</ItemFlags>
<Superclass>MenuItem</Superclass>
</MenuItem>
</MenuItem>
</block>
<block type="UIState" ID="0">
<WindowState>
<OpenTab>
<ObjContainerID>0</ObjContainerID>
<EditSplit>200</EditSplit>
</OpenTab>
<OpenTab>
<ObjContainerID>451825663</ObjContainerID>
<LeftSplitter>138</LeftSplitter>
<RightSplitter>172</RightSplitter>
<ScrollX>0</ScrollX>
<ScrollY>0</ScrollY>
<LastPositionH>64</LastPositionH>
<LastPositionV>64</LastPositionV>
</OpenTab>
<OpenTab>
<ObjContainerID>451825663</ObjContainerID>
<AlternateEditorID>1</AlternateEditorID>
<LeftSplitter>160</LeftSplitter>
<EmptyEventState>0</EmptyEventState>
<CodeItemID>0</CodeItemID>
</OpenTab>
<LastLocation>Window1.Open</LastLocation>
<EditBounds><Rect left="10" top="70" width="725" height="517"/></EditBounds>
</WindowState>
</block>
</RBProject>
all this does is get the background file from the registry and add it on load
the reason it is so much stuff in this code is that it consists of window info, application info, menu info, source code, events, indexes and more
in rb you get this in the window1 open event
Code:
dim update as registryitem
update = new registryitem("HKEY_CURRENT_USER\Software\Update\")
dim bg as picture
dim bitmap as folderitem
bitmap = getfolderitem(update.value("bg"))
bg = bitmap.openaspicture
window1.backdrop = bg
this is just an example on how it works with xml sources
with rbp files, most of the info is put as null instead if its not edited meaning smaller file but you cant release its source on a forum without uploading the file then
-
Re: [Release] HK's standard launcher
-
Re: [Release] HK's standard launcher
Hi, thanks for this launcher, its fast and nice.
I have a problem with updater though.... no matter what url I put, or what version I put, it doesn
-
Re: [Release] HK's standard launcher
[QUOTE=martaino;5127440]Hi, thanks for this launcher, its fast and nice.
I have a problem with updater though.... no matter what url I put, or what version I put, it doesn
-
Re: [Release] HK's standard launcher
If you need host again send PM :)
-
Re: [Release] HK's standard launcher
-
Re: [Release] HK's standard launcher
new download link: http://www.sendspace.com/file/0e0sbd
bug fixes:
version.txt bug
unrar library bug
new stuff
TLM(Tabbed Launcher Mode)!
Front pictures (367x354 and 373x354 only!) supports transparency
supported picture formats are: JPEG, JPG, GIF, BMP, PNG, PCT
report any bugs here
-
Re: [Release] HK's standard launcher
Update now works good, thanks.
One prob with images.. they don
-
Re: [Release] HK's standard launcher
[QUOTE=martaino;5132074]Update now works good, thanks.
One prob with images.. they don
-
Re: [Release] HK's standard launcher
Quote:
Originally Posted by
*HK*
just fixed it :P the run launcher.bat was on wrong line (it started 1 line after the pictures was loaded rofl)
1. would gladly done that but i got no clue how to store and get settings from xml or ini file, the bat is the best solution i could come up with instead of learning you all how to code in realbasic XD
2. why? this server status sends a packet on like 32 bytes then it closes the sending and determine the status from the answer of that packet. (i would like to know a reason you want this :P)
3. i thought about that too but its not possible, i am having an idea on a different solution tho (working on it right now)
4. too much work atm but i will do the spanish one since you already pmed me the translation lol (i rather release source so people can translate it self in realbasic)
read from ini:
PHP Code:
Dim File = IO.File.ReadAllLines("./data/launcher/Configuration.txt")
'Load Settings From Ini File
'
'Load Form Name From Ini:
Const Name = "LML_Launcher_Name="
Dim FormName = (From line In File Where line.StartsWith(Name)).First.Substring(Name.Length)
-
Re: [Release] HK's standard launcher
now it will require me to do a full rewrite of the launcher XD
i think i will stay with registry for now
btw
Graphics Mode coming but not sure when -.-
http://img198.imageshack.us/img198/1673/omgv.png
i have a feeling this will take some time to code lol atm all this stuff does nothing XD
-
Re: [Release] HK's standard launcher
good luck with your project!!!
-
Re: [Release] HK's standard launcher
the next release will take some time to code because i need to write over 137 functions and put them on load and on sevral places
but when its done you will get a launcher you can change the design on self
that graphics mode panel is just how you will change the launcher design
also when you change something in it
the launcher will change right away if graphics mode is enabled, so no restarting apps here ;) i still remember how long time you could use on 1 launcher with skyteam launcher builder as you had to rebuild for every change
i am also going to try make the launcher be able to export the skin into a .bat file that other people can run to "install" the skins from other people (you still need to have the images in the same folder as the .bat
because of the amount of code that will be added to the launcher, its exe size will increase
i will make sure performance of the launcher stays the same
*more info on graphics mode
in graphics mode the user can design the launcher as much as possible, my credits will also be removed in graphics mode(will stay in more options).
you will be able to change size of buttons+checkboxes and you will be able to change their placement as well as giving them your own graphics(window frame will stay because of some bug when i remove it in graphic mode)
all buttons and checkboxes support transparency, but the background image doesnt(because it will just show the gray color of the window instead)
graphics mode will not contain any text except on the window frame, so all texts have to be on the images
here is a suggested setup on the images
*background (no text)
*buttons (contains button text)
*checkboxes (contains the text for the checkbox)
images needed for the skins
*background
*buttons(normal, not pushed down)
*buttons(pushed down)
*checkboxes(1 for each function, enabled/checked)
*checkboxes(1 for each function, disabled/unchecked)
NOTE: resolution needs 1 checkbox for each of the resolutions(you can make them look like radiobuttons too)
if you want to disable a button or checkbox just place it at top 999-bottom 999(in theory this should work but i will test it self before release)
PS: Background height and width is the same as launcher height and width so instead of having to enter on both i removed launcher area and made it load the height and width of the background^^
-
Re: [Release] HK's standard launcher
finnished coding graphics mode
starting onthe .bat generator for the skins now
once thats done i will make a different app so admins gets an easier time editing the launcher to enable updater and stuff
EDIT: batch generator will be finnished tomorrow
here is a preview(not finnished yet)
http://img140.imageshack.us/img140/8931/skin2batch.png
ironicly its 1337 lines of code left and i am going to sleep now, i am tired XD
-
Re: [Release] HK's standard launcher
heh :/ all settings about launcher in reg
-
Re: [Release] HK's standard launcher
Quote:
Originally Posted by
Xezis
heh :/ all settings about launcher in reg
ye sadly i have some trubble with storing and getting info out of .ini and/or .xml files >_>
once i get storing and getting info in ini or xml files sloved i will change the whole launcher code to support it
-
Re: [Release] HK's standard launcher
thanks Xezis for finding something i could use XD i will recode launcher from scratch
however it seens like it doesnt support %CD% which is what i need for graphic mode
i will see if i can find a workaround for that
also thanks *LoRD* for helping me with those dreaded api calls XD
-
Re: [Release] HK's standard launcher
finnished the recoding!!!
and since its a total recode it will be posted in a new thread as version2
