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
L2 Executor
Forum rules
READ NOW: L2j Forums Rules of Conduct
READ NOW: L2j Forums Rules of Conduct
-
- Posts: 142
- Joined: Sat Mar 15, 2008 11:04 pm
- Location: Argentina
- Contact:
L2 Executor
Sorry everyone for my very bad English, I speak Spanish
- ThePhoenixBird
- L2j Inner Circle
- Posts: 1857
- Joined: Fri May 27, 2005 5:11 pm
Re: L2 Executor
changed title, it may be confusing
-
- Posts: 142
- Joined: Sat Mar 15, 2008 11:04 pm
- Location: Argentina
- Contact:
-
- Posts: 142
- Joined: Sat Mar 15, 2008 11:04 pm
- Location: Argentina
- Contact:
Re: L2 Executor
A new version much more attractive and complete
Link Down source code in Spanish and English
http://ifile.it/qhyuerk
some pictures:
Link Down source code in Spanish and English
http://ifile.it/qhyuerk
some pictures:
You do not have the required permissions to view the files attached to this post.
Sorry everyone for my very bad English, I speak Spanish
- wenthian
- Posts: 30
- Joined: Wed Aug 04, 2010 3:39 am
- Location: Indonesia
- Contact:
-
- Posts: 142
- Joined: Sat Mar 15, 2008 11:04 pm
- Location: Argentina
- Contact:
Re: L2 Executor
Hi, I cant find the files on my pc, but here said a new code.
Has added a little protection L2PacketHack
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.
Remember not to encrypt the files. INI have to be Plain Text.
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
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.
Sorry everyone for my very bad English, I speak Spanish