L2 Executor

[KadeL]

It created a simple exe to start the l2.bin, with a small menu on the systray.

This made with AutoIT
http://www.autoitscript.com/autoit3/downloads.shtml

Link Down: source code in Spanish and English
http://ifile.it/253dzt0

[ThePhoenixBird]

changed title, it may be confusing

[KadeL]

ok sorry

[KadeL]

A new version much more attractive and complete
Link Down source code in Spanish and English
http://ifile.it/qhyuerk

some pictures:

Imagen1.jpg

Imagen2.jpg

Imagen3.jpg

[wenthian]

link was broken dude, have u another link?

[KadeL]

Hi, I cant find the files on my pc, but here said a new code.
Has added a little protection L2PacketHack

Code: Select all

 #include "GUIConstants.au3"#include "ModernMenu.au3"#include <Process.au3>#NoTrayIconFileCreateShortcut(@ScriptDir & "\L2 - KadeL.exe",@DesktopDir & "\L2 - KadeL",@ScriptDir,"", "By KadeL™", @ScriptDir & "\sysicons.dll", "^!k", "", @SW_SHOWNORMAL)If ProcessExists("l2.bin") Then    Run("l2.bin", "", @ScriptDir, "")    ExitEndIfSleep(2000)If ProcessExists("K-Update.exe") Then    ProcessClose("L2 - KadeL.exe")    ProcessClose("L2 - KadeL.exe")    ProcessClose("l2.bin")    ProcessClose("l2.bin")    ExitEndIfOpt("WinTitleMatchMode", 2)If WinExists("L2PacketHack") Then    ProcessClose("l2.bin")    Sleep(500)    ProcessClose("l2.bin")    Sleep(500)    ProcessClose("l2.bin")EndIfOpt("WinTitleMatchMode", 2)If WinExists("Modification L2PacketHack") Then    ProcessClose("l2.bin")    Sleep(500)    ProcessClose("l2.bin")    Sleep(500)    ProcessClose("l2.bin")EndIfOpt("TrayMenuMode",3)Opt("GUIOnEventMode", 1)Opt("TrayIconHide", 0)TrayTip("L2 KadeL", "Iniciando L2 Freya", 2, 1)Run("l2.bin", "", @ScriptDir, "")Opt("WinTitleMatchMode", 2)If WinExists("L2PacketHack") Then    ProcessClose("l2.bin")    Sleep(500)    ProcessClose("l2.bin")    Sleep(500)    ProcessClose("l2.bin")EndIfOpt("WinTitleMatchMode", 2)If WinExists("Modification L2PacketHack") Then    ProcessClose("l2.bin")    Sleep(500)    ProcessClose("l2.bin")    Sleep(500)    ProcessClose("l2.bin")EndIfSleep(2000)Opt("TrayIconHide", 1)SetBlueTrayColors()$nTrayIcon1 = _TrayIconCreate("L2 KadeL System v4.1" , "sysicons.dll")_TrayIconSetState() $nTrayMenu1     = _TrayCreateContextMenu()$nSideItem      = _CreateSideMenu($nTrayMenu1)_SetSideMenuText($nSideItem, "L2 KaDeL System v4.1")_SetSideMenuColor($nSideItem, 0xFFFFFF) ; Text color_SetSideMenuBkColor($nSideItem, 0xFF0000) ; bottom start color_SetSideMenuBkGradColor($nSideItem, 0x000000) ; top end color $MenuWeb        = _TrayCreateMenu("KadeL's Web")_TrayCreateItem("")_TrayItemSetIcon(-1, "", 0)$MenuUpdate     = _TrayCreateMenu("Actualizar")_TrayCreateItem("")_TrayItemSetIcon(-1, "", 0)$TrayOtro       = _TrayCreateItem("Abrir Otro Cliente")_TrayCreateItem("")_TrayItemSetIcon(-1, "", 0)$MenuEstilo     = _TrayCreateMenu("Estilo del Menu")_TrayCreateItem("")_TrayItemSetIcon(-1, "", 0)$TrayExitClie   = _TrayCreateItem("Cerrar Cliente/s")_TrayCreateItem("")_TrayItemSetIcon(-1, "", 0)$TrayExit       = _TrayCreateItem("Cerrar K-System") _TrayItemSetIcon($TrayExit, "sysicons.dll", 02)_TrayItemSetSelIcon($TrayExit, "sysicons.dll", 03)GUICtrlSetOnEvent($TrayExit, "MenuEvents") _TrayItemSetIcon($TrayExitClie, "sysicons.dll", 04)_TrayItemSetSelIcon($TrayExitClie, "sysicons.dll", 05)GUICtrlSetOnEvent($TrayExitClie, "MenuEvents") _TrayItemSetIcon($MenuEstilo, "sysicons.dll", 06)_TrayItemSetSelIcon($MenuEstilo, "sysicons.dll", 07) _TrayItemSetIcon($TrayOtro, "sysicons.dll", 08)_TrayItemSetSelIcon($TrayOtro, "sysicons.dll", 09)GUICtrlSetOnEvent($TrayOtro, "MenuEvents") _TrayItemSetIcon($MenuUpdate, "sysicons.dll", 10)_TrayItemSetSelIcon($MenuUpdate, "sysicons.dll", 11) _TrayItemSetIcon($MenuWeb, "sysicons.dll", 12)_TrayItemSetSelIcon($MenuWeb, "sysicons.dll", 13) $TrayAdvanced   = _TrayCreateItem("Moderno", $MenuEstilo, -1, 1)GUICtrlSetOnEvent(-1, "MenuEvents")$TraySimple     = _TrayCreateItem("Clásico", $MenuEstilo, -1, 1)GUICtrlSetOnEvent(-1, "MenuEvents")_TrayItemSetIcon($TrayAdvanced, "", 0)_TrayItemSetIcon($TraySimple, "", 0)GUICtrlSetState($TrayAdvanced, $GUI_CHECKED) $TrayUp1    = _TrayCreateItem("L2 KadeL System", $MenuUpdate)GUICtrlSetOnEvent(-1, "MenuEvents")$TrayUp2    = _TrayCreateItem("Cliente Lineage II", $MenuUpdate)GUICtrlSetOnEvent(-1, "MenuEvents") $TrayWeb    = _TrayCreateItem("KadeL's Web", $MenuWeb)GUICtrlSetOnEvent(-1, "MenuEvents")$TrayForo   = _TrayCreateItem("KadeL's Foro", $MenuWeb)GUICtrlSetOnEvent(-1, "MenuEvents")$TrayVot    = _TrayCreateItem("Votar al Server", $MenuWeb)GUICtrlSetOnEvent(-1, "MenuEvents")$TrayDrop   = _TrayCreateItem("Guias, Drop, Quest", $MenuWeb)GUICtrlSetOnEvent(-1, "MenuEvents")$TrayUser   = _TrayCreateItem("Panel de Usuario", $MenuWeb)GUICtrlSetOnEvent(-1, "MenuEvents")$TrayError  = _TrayCreateItem("Reportar Error Via SMS", $MenuWeb)GUICtrlSetOnEvent(-1, "MenuEvents")$TrayDona1  = _TrayCreateItem("Registrar Donación", $MenuWeb)GUICtrlSetOnEvent(-1, "MenuEvents")$TrayDona2  = _TrayCreateItem("Info. Donación", $MenuWeb)GUICtrlSetOnEvent(-1, "MenuEvents")$TrayDona3  = _TrayCreateItem("Realizar Donación", $MenuWeb)GUICtrlSetOnEvent(-1, "MenuEvents") ; KadeL_TrayItemSetIcon($TrayUp1, "sysicons.dll", 14)_TrayItemSetSelIcon($TrayUp1, "sysicons.dll", 15); Cliente_TrayItemSetIcon($TrayUp2, "sysicons.dll",16)_TrayItemSetSelIcon($TrayUp2, "sysicons.dll", 17) _TrayItemSetIcon($TrayWeb, "sysicons.dll", 18)_TrayItemSetSelIcon($TrayWeb, "sysicons.dll", 19) _TrayItemSetIcon($TrayForo, "sysicons.dll", 20)_TrayItemSetSelIcon($TrayForo, "sysicons.dll", 21) _TrayItemSetIcon($TrayVot, "sysicons.dll", 22)_TrayItemSetSelIcon($TrayVot, "sysicons.dll", 23) _TrayItemSetIcon($TrayDrop, "sysicons.dll", 24)_TrayItemSetSelIcon($TrayDrop, "sysicons.dll", 25) _TrayItemSetIcon($TrayError, "sysicons.dll", 26)_TrayItemSetSelIcon($TrayError, "sysicons.dll", 27); Reg Dona_TrayItemSetIcon($TrayDona1, "sysicons.dll", 28)_TrayItemSetSelIcon($TrayDona1, "sysicons.dll", 29); Info Dona_TrayItemSetIcon($TrayDona2, "sysicons.dll", 30)_TrayItemSetSelIcon($TrayDona2, "sysicons.dll", 31); Donar_TrayItemSetIcon($TrayDona3, "sysicons.dll", 32)_TrayItemSetSelIcon($TrayDona3, "sysicons.dll", 33) _TrayItemSetIcon($TrayUser, "sysicons.dll", 34)_TrayItemSetSelIcon($TrayUser, "sysicons.dll", 35) ; Main GUI LoopWhile 1    Sleep(10)   WEndExit Func MenuEvents()    Local $Msg = @GUI_CtrlID    Switch $Msg        Case $TrayAdvanced, $TraySimple            If BitAnd(GUICtrlRead($TraySimple), $GUI_CHECKED) Then                GUICtrlSetState($TraySimple, $GUI_UNCHECKED)                GUICtrlSetState($TrayAdvanced, $GUI_CHECKED)                $bUseAdvTrayMenu = TRUE            Else                GUICtrlSetState($TraySimple, $GUI_CHECKED)                GUICtrlSetState($TrayAdvanced, $GUI_UNCHECKED)                $bUseAdvTrayMenu = FALSE            EndIf        Case $TrayWeb            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Abriendo: KadeL's Web", 3, 1)            $rc = _RunDos("start http://kadel.com.ar/")            Sleep(2000)            Opt("TrayIconHide", 1)                    Case $TrayForo            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Abriendo: KadeL's Foro", 3, 1)            $rc = _RunDos("start http://kadel.com.ar/foro/")            Sleep(2000)            Opt("TrayIconHide", 1)                    Case $TrayVot            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Abriendo: Vota al Server", 3, 1)            $rc = _RunDos("start http://kadel.com.ar/l2/index.php?id=votar")            Sleep(2000)            Opt("TrayIconHide", 1)                    Case $TrayDrop            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Abriendo: Guias, Drop, Quest", 3, 1)            $rc = _RunDos("start http://kadel.com.ar/l2/index.php?id=guialist")            Sleep(2000)            Opt("TrayIconHide", 1)                    Case $TrayDona1            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Abriendo: Registrar Donación", 3, 1)            $rc = _RunDos("start http://kadel.com.ar/l2/index.php?id=donareg")            Sleep(2000)            Opt("TrayIconHide", 1)                    Case $TrayDona2            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Abriendo: Info. Donación", 3, 1)            $rc = _RunDos("start http://kadel.com.ar/l2/index.php?id=donainfo")            Sleep(2000)            Opt("TrayIconHide", 1)                    Case $TrayDona3            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Abriendo: Realizar Donación", 3, 1)            $rc = _RunDos("start http://kadel.com.ar/l2/index.php?id=donamedio")            Sleep(2000)            Opt("TrayIconHide", 1)                    Case $TrayError            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Abriendo: Reporte de Error", 3, 1)            $rc = _RunDos("start http://kadel.com.ar/l2/index.php?id=reporte")            Sleep(2000)            Opt("TrayIconHide", 1)                    Case $TrayUser            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Abriendo: Panel de Usuario", 3, 1)            $rc = _RunDos("start http://kadel.com.ar/l2/index.php?id=login")            Sleep(2000)            Opt("TrayIconHide", 1)                    Case $TrayUp1            Dim $iMsgBoxAnswer            $iMsgBoxAnswer = MsgBox(33,"L2 KadeL","Para actualizar es necesario Cerrar todos los Clientes." & @CRLF & "" & @CRLF & "Recuerda usar el Botón de Full Check para" & @CRLF & "comprobar la descarga de los archivos" & @CRLF & "" & @CRLF & "Quieres Continuar...?")            Select                Case $iMsgBoxAnswer = 1 ;OK                Opt("TrayIconHide", 0)                TrayTip("L2 KadeL", "Cerrando Todos los Clientes", 3, 1)                Sleep(200)                ProcessClose("l2.bin")                Sleep(200)                ProcessClose("l2.bin")                Sleep(200)                ProcessClose("l2.bin")                Sleep(200)                ProcessClose("l2.bin")                Sleep(200)                ProcessClose("l2.bin")                Sleep(2000)                TrayTip("L2 KadeL", "Abriendo: K-Update", 3, 1)                Sleep(1000)                ShellExecute("K-Update.exe", "", @ScriptDir, "", "")                Sleep(500)                TrayTip("L2 KadeL", "Cerrando L2 KadeL System", 3, 1)                Sleep(500)                _TrayIconDelete($nTrayIcon1)                ProcessClose("L2 - KadeL.exe")                Sleep(500)                ProcessClose("L2 - KadeL.exe")                Sleep(500)                ProcessClose("L2 - KadeL.exe")                Sleep(500)                ProcessClose("L2 - KadeL.exe")                _TrayIconDelete($nTrayIcon1)                Sleep(1000)                Opt("TrayIconHide", 1)                _TrayIconDelete($nTrayIcon1)                Exit            Case $iMsgBoxAnswer = 2 ;Cancel                MsgBox(0,"L2 KadeL","Actualizacion Cancelada...")            EndSelect           Case $TrayUp2            Dim $iMsgBoxAnswer            $iMsgBoxAnswer = MsgBox(33,"L2 KadeL","Para actualizar es necesario Cerrar todos los Clientes." & @CRLF & "" & @CRLF & "Al actualizar el Cliente tendras que actualizar nuevamente" & @CRLF & "la Carpeta System por la de L2 KadeL" & @CRLF & "" & @CRLF & "Recuerda usar el Botón de Checking Files para" & @CRLF & "comprobar la descarga de los archivos" & @CRLF & "" & @CRLF & "Quieres Continuar...?")            Select                Case $iMsgBoxAnswer = 1 ;OK                Opt("TrayIconHide", 0)                TrayTip("L2 KadeL", "Cerrando Todos los Clientes", 3, 1)                Sleep(200)                ProcessClose("l2.bin")                Sleep(200)                ProcessClose("l2.bin")                Sleep(200)                ProcessClose("l2.bin")                Sleep(200)                ProcessClose("l2.bin")                Sleep(200)                ProcessClose("l2.bin")                Sleep(2000)                TrayTip("L2 KadeL", "Abriendo: LineageII Cliente Update", 3, 1)                ShellExecute("LineageII.exe", "", "../", "", "")                Sleep(5000)                TrayTip("L2 KadeL", "Al terminar la actualización del cliente" & @CRLF & "Se actualizara el L2 kadeL System.", 3, 1)                Sleep(5000)                Opt("TrayIconHide", 1)                Opt("WinWaitDelay",100)                Opt("WinTitleMatchMode",4)                WinWaitClose("Lineage II Automatic Update")                ProcessClose("l2.bin")                Sleep(500)                ProcessClose("l2.bin")                Sleep(500)                ProcessClose("LineageII.exe")                Opt("TrayIconHide", 0)                TrayTip("L2 KadeL", "Abriendo: K-Update", 3, 1)                Sleep(1000)                ShellExecute("K-Update.exe", "", @ScriptDir, "", "")                TrayTip("L2 KadeL", "Cerrando L2 KadeL System", 3, 1)                Sleep(500)                Opt("TrayIconHide", 1)                ProcessClose("L2 - KadeL.exe")                Sleep(500)                              Opt("TrayIconHide", 1)            Case $iMsgBoxAnswer = 2 ;Cancel                MsgBox(0,"L2 KadeL","Actualizacion Cancelada...")            EndSelect                    Case $TrayOtro            Opt("WinTitleMatchMode", 2)            If WinExists("L2PacketHack") Then                ProcessClose("l2.bin")                Sleep(500)                ProcessClose("l2.bin")                Sleep(500)                ProcessClose("l2.bin")            EndIf            Opt("WinTitleMatchMode", 2)            If WinExists("Modification L2PacketHack") Then                ProcessClose("l2.bin")                Sleep(500)                ProcessClose("l2.bin")                Sleep(500)                ProcessClose("l2.bin")            EndIf            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Abriendo: Otro Cliente", 3, 1)            Run("l2.bin", "", @ScriptDir, "")            Opt("WinTitleMatchMode", 2)            If WinExists("L2PacketHack") Then                ProcessClose("l2.bin")                Sleep(500)                ProcessClose("l2.bin")                Sleep(500)                ProcessClose("l2.bin")            EndIf            Opt("WinTitleMatchMode", 2)            If WinExists("Modification L2PacketHack") Then                ProcessClose("l2.bin")                Sleep(500)                ProcessClose("l2.bin")                Sleep(500)                ProcessClose("l2.bin")            EndIf            Sleep(2000)            Opt("TrayIconHide", 1)                    Case $TrayExitClie            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Cerrando Todos los Clientes", 3, 1)            Sleep(200)            ProcessClose("l2.bin")            Sleep(200)            ProcessClose("l2.bin")            Sleep(200)            ProcessClose("l2.bin")            Sleep(200)            ProcessClose("l2.bin")            Sleep(200)            ProcessClose("l2.bin")            Sleep(2000)            Opt("TrayIconHide", 1)                    Case $TrayExit            Opt("TrayIconHide", 0)            TrayTip("L2 KadeL", "Cerrando L2 KadeL System", 3, 1)            Sleep(1000)            _TrayIconDelete($nTrayIcon1)            ProcessClose("L2 - KadeL.exe")            Sleep(500)            ProcessClose("L2 - KadeL.exe")            Sleep(500)            ProcessClose("L2 - KadeL.exe")            Sleep(500)            ProcessClose("L2 - KadeL.exe")            Sleep(500)            ProcessClose("L2 - KadeL.exe")            Sleep(500)            ProcessClose("L2 - KadeL.exe")            _TrayIconDelete($nTrayIcon1)            Exit    EndSwitchEndFunc Func SetBlueTrayColors()    _SetTrayBkColor(0xFFD8C0)    _SetTrayIconBkColor(0xEE8877)    _SetTrayIconBkGrdColor(0x703330)    _SetTraySelectBkColor(0x662222)    _SetTraySelectRectColor(0x4477AA)    _SetTraySelectTextColor(0x66FFFF)    _SetTrayTextColor(0x000000)EndFunc 

PS1: sysicons.dll file is a library of icons, which can create with a program like the Icon Workshop
PS2: If you want to start your own files. INI have to add the following command.

Code: Select all

 Run("l2.bin -INI=CUSTOM_L2.ini -USERINI=CUSTOM_USER.ini", "", @ScriptDir, "") 

Remember not to encrypt the files. INI have to be Plain Text.