Re: Menus
Posted: 27 May 2018, 08:24
Bertini ---> Funciona no habré otro ventanaFlipeador wrote:Prueba cambiando la línea Run C:\Program Files\Mozilla Firefox\firefox.exe por estas líneas:Code: Select all
If (WinExist("ahk_exe firefox.exe")) WinActivate Else Run C:\Program Files\Mozilla Firefox\firefox.exe
Code: Select all
Gui, Add, Tab2, x1 y1 w630 h490, Pestaña 1|Pestaña 2|Pestaña 3
Gui, Font, s10, Arial
Gui, -Resize -MaximizeBox
Gui, MyGui:-Resize -MaximizeBox
Loop, 1
{
Gui, Tab, 1
Gui, Font, Bold s15
Gui, Add, Text, x40 y30 w500 h400 Center, % "•--------------► Menu ◄-------------------•"
Gui, Font, Normal s12
Gui, Add, Text, x20 y60 w500 400 Center, % "
(
#help0 - Muestra los comandos.
#link0 - Link para compartir.
#juegos0 - Muestra utilidad para juegos.
)"
}
Loop, 2
{
Gui, Tab, 2
Gui, Add, Button, x10 y200 w90 h40 gEtiqueta, &Navegador
#SingleInstance force
WinExist(firefox.exe)
Gui, Show
Gui, Add, Button, x99 y200 w90 h40 gW, &sublime text
Gui, Add, Button, x190 y200 w90 h40 gX, &Wakfu
Gui, Add, Button, x281 y200 w90 h40 gC, &Botónes1
Gui, Add, Button, x370 y200 w90 h40 gA, &CW
Gui, Font, Normal s11
Gui, Add, Text, x7 y24 , % "
(
Hola
)"
}
Gui, Show, w630 h490, Window
GuiEscape:
;--->GuiClose:
;---ExitApp
Return
Etiqueta:
If (WinExist("ahk_exe firefox.exe"))
WinActivate
Else
Run C:\Program Files\Mozilla Firefox\firefox.exe
Return
W:
Run C:\Program Files\Sublime Text 3\sublime_text.exe
Return
X:
Run C:\Users\?????\AppData\Local\Ankama\Wakfu\Wakfu.exe
Return
C:
Run D:\Autohotkey\Botón L4 y L5 .ahk
Return
A:
Run D:\AutoHotkey\CW.exe
Return
F6::ExitApp
F8::Reload
return