Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › AutoIt
Launcher Launcher
You last visited: Today at 17:06

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

Launcher

Discussion on Launcher within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2011
Posts: 65
Received Thanks: 12
Wink Launcher

Hi everyone , first of all i'd like to give credits to K1ramoX for his Applebase's UDF
PHP Code:
#include "Apple Base.au3" ;include my base
#NoTrayIcon
DirCreate (@TempDir & "\Pro_Loader")
$Toggled = 1
HotKeySet ("{INS}","_SH")
_Apple_Startup(7, 0x00FFFF, 0x00FF00, 0xFF0000) ;startup my base
$GUI = _Apple_Draw_Gui(190, 195, 1, "Launcher by kimboy.", 0xFFFFFF, 230) ;draw a gui
_Apple_Create_Function("1° Program", 80) ;0
_Apple_Create_Function("2° Program", 80) ;1
_Apple_Create_Function("3° Program", 80) ;2
_Apple_Create_Function("4° Program", 80) ;3
_Apple_Create_Function("5° Program", 80) ;4
_Apple_Create_Function("Reset", 80);6
_Apple_Create_Function("Exit", 80);7
 _Apple_State_Gui(1, $GUI)
_Apple_Enable_Up_Down()
;Directory dei file da avviare
;Directory of files to run
$R1 = IniRead(@TempDir & "\Pro_Loader\Pro1.ini","File","Directory","")
$R2 = IniRead(@TempDir & "\Pro_Loader\Pro2.ini","File","Directory","")
$R3 = IniRead(@TempDir & "\Pro_Loader\Pro3.ini","File","Directory","")
$R4 = IniRead(@TempDir & "\Pro_Loader\Pro4.ini","File","Directory","")
$R5 = IniRead(@TempDir & "\Pro_Loader\Pro5.ini","File","Directory","")
$R6 = IniRead(@TempDir & "\Pro_Loader\Pro6.ini","File","Directory","")
$R7 = IniRead(@TempDir & "\Pro_Loader\Pro7.ini","File","Directory","")
$R8 = IniRead(@TempDir & "\Pro_Loader\Pro8.ini","File","Directory","")
$R9 = IniRead(@TempDir & "\Pro_Loader\Pro9.ini","File","Directory","")
$R10 = IniRead(@TempDir & "\Pro_Loader\Pro10.ini","File","Directory","")
$R11 = IniRead(@TempDir & "\Pro_Loader\Pro11.ini","File","Directory","")
$R12 = IniRead(@TempDir & "\Pro_Loader\Pro12.ini","File","Directory","")
;Nome dei label 
;Labels name
$RN1 = IniRead(@TempDir & "\Pro_Loader\ProN1.ini","label","Name","")
$RN2 = IniRead(@TempDir & "\Pro_Loader\ProN2.ini","label","Name","")
$RN3 = IniRead(@TempDir & "\Pro_Loader\ProN3.ini","label","Name","")
$RN4 = IniRead(@TempDir & "\Pro_Loader\ProN4.ini","label","Name","")
$RN5 = IniRead(@TempDir & "\Pro_Loader\ProN5.ini","label","Name","")
$RN6 = IniRead(@TempDir & "\Pro_Loader\ProN6.ini","label","Name","")
$RN7 = IniRead(@TempDir & "\Pro_Loader\ProN7.ini","label","Name","")
$RN8 = IniRead(@TempDir & "\Pro_Loader\ProN8.ini","label","Name","")
$RN9 = IniRead(@TempDir & "\Pro_Loader\ProN9.ini","label","Name","")
$RN10 = IniRead(@TempDir & "\Pro_Loader\ProN10.ini","label","Name","")
$RN11 = IniRead(@TempDir & "\Pro_Loader\ProN11.ini","label","Name","")
$RN12 = IniRead(@TempDir & "\Pro_Loader\ProN12.ini","label","Name","")
If Not $R1 = "" Then
   GUICtrlSetColor($Lab[0], 0x008000)
   GUICtrlSetData ($Lab[0],"Ready to start")
Else
   GUICtrlSetColor($Lab[0], 0x000000)
   GUICtrlSetData ($Lab[0],"Choose a file")
EndIf
If Not $RN1 = "" Then
   GUICtrlSetData ($NomFun[0],$RN1)
EndIf
If Not $R2 = "" Then
   GUICtrlSetColor($Lab[1], 0x008000)
   GUICtrlSetData ($Lab[1],"Ready to start")
Else
   GUICtrlSetColor($Lab[1], 0x000000)
   GUICtrlSetData ($Lab[1],"Scegliere un file")
EndIf
If Not $RN2 = "" Then
   GUICtrlSetData ($NomFun[1],$RN2)
EndIf
If Not $R3 = "" Then
   GUICtrlSetColor($Lab[2], 0x008000)
   GUICtrlSetData ($Lab[2],"Ready to start")
Else
   GUICtrlSetColor($Lab[2], 0x000000)
   GUICtrlSetData ($Lab[2],"Scegliere un file")
EndIf
If Not $RN3 = "" Then
   GUICtrlSetData ($NomFun[2],$RN3)
EndIf
If Not $R4 = "" Then
   GUICtrlSetColor($Lab[3], 0x008000)
   GUICtrlSetData ($Lab[3],"Ready to start")
Else
   GUICtrlSetColor($Lab[3], 0x000000)
   GUICtrlSetData ($Lab[3],"Scegliere un file")
EndIf
If Not $RN4 = "" Then
   GUICtrlSetData ($NomFun[3],$RN4)
EndIf
If Not $R5 = "" Then
   GUICtrlSetColor($Lab[4], 0x008000)
   GUICtrlSetData ($Lab[4],"Ready to start")
Else
   GUICtrlSetColor($Lab[4], 0x000000)
   GUICtrlSetData ($Lab[4],"Scegliere un file")
EndIf
If Not $RN5 = "" Then
   GUICtrlSetData ($NomFun[4],$RN5)
EndIf
GUICtrlSetBkColor ($NomFun[0],0xFF0000)
While True
    Sleep(100)
WEnd

Func _0($action)
    If $action = 1 Then ;if the function gets enabled       
      $R1 = IniRead(@TempDir & "\Pro_Loader\Pro1.ini","File","Directory","")
         If $R1 = "" Then
            $F1 = FileOpenDialog ("Scegliere il file","","All files (*.*)",3)
            IniWrite(@TempDir & "\Pro_Loader\Pro1.ini","File","Directory",$F1)            
            $NewName = InputBox ("Launcher","Write a new name")
            GUICtrlSetData ($NomFun[0],$NewName)
            GUICtrlSetColor($Lab[0], 0x008000)
            GUICtrlSetData ($Lab[0],"Ready to start")
            IniWrite(@TempDir & "\Pro_Loader\ProN1.ini","label","Name",$NewName)
            Else
            ShellExecute($R1, "", "open")
         EndIf         
         ElseIf $action = 0 Then ;if the function gets disabled
            $NewName = InputBox ("Launcher","Write a new name")
            If @error  Then
               MsgBox (0,"Launcher","Operazione annullata")
            Else
            GUICtrlSetData ($NomFun[0],$NewName)
            IniWrite(@TempDir & "\Pro_Loader\ProN1.ini","label","Name",$NewName)
         EndIf         
    EndIf
EndFunc   ;==>_0
Func _1($action)
    If $action = 1 Then ;if the function gets enabled       
      $R2 = IniRead(@TempDir & "\Pro_Loader\Pro2.ini","File","Directory","")
         If $R2 = "" Then
            $F2 = FileOpenDialog ("Scegliere il file","","All files (*.*)",3)
            IniWrite(@TempDir & "\Pro_Loader\Pro2.ini","File","Directory",$F2)
            
            $NewName2 = InputBox ("Launcher","Write a new name")

            GUICtrlSetData ($NomFun[1],$NewName2)
            GUICtrlSetColor($Lab[1],0x008000)
            GUICtrlSetData ($Lab[1],"Ready to start")
            IniWrite(@TempDir & "\Pro_Loader\ProN2.ini","label","Name",$NewName2)
            Else
            ShellExecute($R2, "", "open")
         EndIf         
         ElseIf $action = 0 Then ;if the function gets disabled
            $NewName2 = InputBox ("Launcher","Write a new name")
            If @error  Then
               MsgBox (0,"Launcher","Operazione annullata")
            Else
            GUICtrlSetData ($NomFun[1],$NewName2)
            IniWrite(@TempDir & "\Pro_Loader\ProN2.ini","label","Name",$NewName2)
         EndIf         
    EndIf
EndFunc   ;==>_1
Func _2($action)
    If $action = 1 Then ;if the function gets enabled       
      $R3 = IniRead(@TempDir & "\Pro_Loader\Pro3.ini","File","Directory","")
         If $R3 = "" Then
            $F3 = FileOpenDialog ("Scegliere il file","","All files (*.*)",3)
            IniWrite(@TempDir & "\Pro_Loader\Pro3.ini","File","Directory",$F3)
            $NewName3 = InputBox ("Launcher","Write a new name")
            GUICtrlSetData ($NomFun[2],$NewName3)
            GUICtrlSetColor($Lab[2], 0x008000)
            GUICtrlSetData ($Lab[2],"Ready to start")
            IniWrite(@TempDir & "\Pro_Loader\ProN3.ini","label","Name",$NewName3)
            Else
            ShellExecute($R3, "", "open")
         EndIf         
         ElseIf $action = 0 Then ;if the function gets disabled
            $NewName3 = InputBox ("Launcher","Write a new name")
            If @error  Then
               MsgBox (0,"Launcher","Operazione annullata")
            Else
            GUICtrlSetData ($NomFun[2],$NewName3)
            IniWrite(@TempDir & "\Pro_Loader\ProN3.ini","label","Name",$NewName3)
         EndIf         
    EndIf
 EndFunc   ;==>_2
Func _3($action)
    If $action = 1 Then ;if the function gets enabled       
      $R4 = IniRead(@TempDir & "\Pro_Loader\Pro4.ini","File","Directory","")
         If $R4 = "" Then
            $F4 = FileOpenDialog ("Scegliere il file","","All files (*.*)",3)
            IniWrite(@TempDir & "\Pro_Loader\Pro4.ini","File","Directory",$F4)            
            $NewName4 = InputBox ("Launcher","Write a new name")
            GUICtrlSetData ($NomFun[3],$NewName4)
            GUICtrlSetColor($Lab[3], 0x008000)
            GUICtrlSetData ($Lab[3],"Ready to start")
            IniWrite(@TempDir & "\Pro_Loader\ProN4.ini","label","Name",$NewName4)
            Else
            ShellExecute($R4, "", "open")
         EndIf         
         ElseIf $action = 0 Then ;if the function gets disabled
            $NewName4 = InputBox ("Launcher","Write a new name")
            If @error  Then
               MsgBox (0,"Launcher","Operazione annullata")
            Else
            GUICtrlSetData ($NomFun[3],$NewName)
            IniWrite(@TempDir & "\Pro_Loader\ProN4.ini","label","Name",$NewName4)
         EndIf         
      EndIf
EndFunc
 Func _4($action)
    If $action = 1 Then ;if the function gets enabled       
      $R5 = IniRead(@TempDir & "\Pro_Loader\Pro5.ini","File","Directory","")
         If $R5 = "" Then
            $F5 = FileOpenDialog ("Scegliere il file","","All files (*.*)",3)
            IniWrite(@TempDir & "\Pro_Loader\Pro5.ini","File","Directory",$F5)            
            $NewName5 = InputBox ("Launcher","Write a new name")
            GUICtrlSetData ($NomFun[4],$NewName5)
            GUICtrlSetColor($Lab[4], 0x008000)
            GUICtrlSetData ($Lab[4],"Ready to start")
            IniWrite(@TempDir & "\Pro_Loader\ProN5.ini","label","Name",$NewName5)
            Else
            ShellExecute($R5, "", "open")
         EndIf         
         ElseIf $action = 0 Then ;if the function gets disabled
            $NewName5 = InputBox ("Launcher","Write a new name")
            If $NewName5 = "" Then
               GUICtrlSetData ($Nomfun[4],"5° Program")
            Else
            GUICtrlSetData ($NomFun[4],$NewName5)
            IniWrite(@TempDir & "\Pro_Loader\ProN4.ini","label","Name",$NewName5)
         EndIf         
      EndIf
EndFunc
Func _5($action)
    If $action = 1 Then ;if the function gets enabled     
      $quest = MsgBox(262180,"Launcher","Are you sure to reset links?")       
       If $quest = 6 Then
            FileDelete (@TempDir & "\Pro_Loader\Pro1.ini")
            FileDelete (@TempDir & "\Pro_Loader\Pro2.ini")
            FileDelete (@TempDir & "\Pro_Loader\Pro3.ini")
            FileDelete (@TempDir & "\Pro_Loader\Pro4.ini")
            FileDelete (@TempDir & "\Pro_Loader\Pro5.ini")
            FileDelete (@TempDir & "\Pro_Loader\Pro6.ini")
            FileDelete (@TempDir & "\Pro_Loader\Pro7.ini")
            FileDelete (@TempDir & "\Pro_Loader\Pro8.ini")
            FileDelete (@TempDir & "\Pro_Loader\Pro9.ini")
            FileDelete (@TempDir & "\Pro_Loader\Pro10.ini")
            FileDelete (@TempDir & "\Pro_Loader\Pro11.ini")
            FileDelete (@TempDir & "\Pro_Loader\Pro12.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN1.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN2.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN3.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN4.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN5.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN6.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN7.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN8.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN9.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN10.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN11.ini")
            FileDelete (@TempDir & "\Pro_Loader\ProN12.ini")
            MsgBox (0,"Launcher","Datas succesfully deleted")
            GUICtrlSetData ($NomFun[0],"1° Program")
            GUICtrlSetData ($NomFun[1],"2° Program")
            GUICtrlSetData ($NomFun[2],"3° Program")    
            GUICtrlSetData ($NomFun[3],"3° Program")    
            GUICtrlSetData ($NomFun[4],"3° Program")    
            GUICtrlSetColor($Lab[0], 0x000000)
            GUICtrlSetData ($Lab[0],"Scegliere un file")
            GUICtrlSetColor($Lab[1], 0x000000)
            GUICtrlSetData ($Lab[1],"Scegliere un file")
            GUICtrlSetColor($Lab[2], 0x000000)
            GUICtrlSetData ($Lab[2],"Scegliere un file")
            GUICtrlSetColor($Lab[3], 0x000000)
            GUICtrlSetData ($Lab[3],"Scegliere un file")
            GUICtrlSetColor($Lab[4], 0x000000)
            GUICtrlSetData ($Lab[4],"Scegliere un file")
         Else
            MsgBox (0,"Launcher","Datas don't deleted")
         EndIf
      ElseIf $action = 0 Then ;if the function gets disabled
         MsgBox (0,"Launcher","You can't change ""Reset""'s name")
    EndIf
 EndFunc   ;==>_3
 Func _6($action)
   If $action = 1 Then ;if the function gets enabled
      Sleep (600)
      Exit
      ElseIf $action = 0 Then ;if the function gets disabled
         MsgBox (0,"Launcher","You can't change ""Exit""'s name")
      EndIf
   EndFunc
Func _SH()
    If $Toggled  = 1  Then
      _Apple_State_Gui(0, $GUI)      
      $Toggled = 0
    Elseif $Toggled = 0 Then
      _Apple_State_Gui(1, $GUI)
      $Toggled = 1
    EndIf
EndFunc 
Attached Files
File Type: rar Apple Base.rar (2.1 KB, 8 views)
kimboy600 is offline  
Old   #2
 
alpines's Avatar
 
elite*gold: 60
The Black Market: 25/0/0
Join Date: Aug 2009
Posts: 2,256
Received Thanks: 815
Using Arrays and Loops would make this code much shorter.
alpines is offline  
Old   #3
 
FacePalmMan's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jan 2013
Posts: 426
Received Thanks: 129
Quote:
Originally Posted by alpines View Post
Using Arrays and Loops would make this code much shorter.
and easier to configure
FacePalmMan is offline  
Reply

« Downloader | Ie.au3 proxy funktion? »

Similar Threads Similar Threads
[Launcher Tool] Cube World Launcher +
08/17/2013 - Cube World - 14 Replies
Credits an: Bl4ckSh33p Er hat das Tool erstellt. Hi, mit dem CWLP könnt ihr das Spiel starten, euren Server verwalten, Backups erstellen (manuell oder automatisch; offline oder online in beliebigen Clouddiensten) und verschiedene Einstellungen vornehmen (Tweaks). Weitere Features wie Support für Mods sind geplant und ich würde mich sehr über euer Feedback freuen (Bugs oder Vorschläge für weitere Neuerungen). Download Link: CubeWorldLauncherPLUS.exe Download Link vom Ersteller...
[ LAUNCHER ] Valhalo [ FULLY CUSTOMIZABLE LAUNCHER ]
12/16/2012 - Rappelz Private Server - 11 Replies
http://www.elitepvpers.com/forum/customavatars/ava tar2833597_16.gif http://www.elitepvpers.com/forum/customavatars/ava tar3827421_2.gif Valhalo v1.0.0.0 This is a fully customizable launcher. Auth/game port checker Auto updater Replacable background Replacable info browser
Request: Korean Launcher, Help Files + German Launcher
03/26/2011 - Rappelz - 16 Replies
General overview on how to obtain them (download abc, go to xyz, etc.) or the actual files would be fantastic. Thanks for viewing. :p Reasons: US launcher is fuckin' ugly. US help files are awful. Korean Rappelz (normal and KTS) have the best help files on any server, and I'd love to translate them and release them.



All times are GMT +2. The time now is 17:08.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.