AutoHotkey Community

;
; Language:       English
; Platform:       Win9x/NT
; Author:         Andri(Titboy) <amg@quakemet.org>
;
; Script Function:
;  Will Parse a logfile generated from Star Wars Galaxies(TM). Will Generate a script file for SWG.
;
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
DetectHiddenWindows, On
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

Height = 10
Width = 165


; Form
WinGet, ClientArray, List, SwgClient




loop %ClientArray%
{

   



    element := ClientArray%A_Index%
   
   ; MsgBox % "Element number " . A_Index . " is " . ClientArray%A_Index%
    Gui, Add, Button, x15 y%Height% w135 h20, SWGClient %A_Index%

Height := Height + 25

}

Height := Height + 25


Gui, Show, h%Height% w%Width%, StarWarsGalaxiesController


return



ButtonSWGClient1:
{
if not DllCall("IsWindowVisible", "UInt", ClientArray1) 
winshow, ahk_id %ClientArray1%
else
winhide, ahk_id %ClientArray1%

WinActivate StarWarsGalaxiesController
return
}

ButtonSWGClient2:
{
if not DllCall("IsWindowVisible", "UInt", ClientArray2) 
winshow, ahk_id %ClientArray2%
else
winhide, ahk_id %ClientArray2%

WinActivate StarWarsGalaxiesController
return
}

ButtonSWGClient3:
{
if not DllCall("IsWindowVisible", "UInt", ClientArray3) 
winshow, ahk_id %ClientArray3%
else
winhide, ahk_id %ClientArray3%

WinActivate StarWarsGalaxiesController
return
}

GuiClose:
ExitApp

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
DetectHiddenWindows, On
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

Height = 10
Width = 165

; Form
WinGet, ClientArray, List, SwgClient

loop %ClientArray%
{
    element := ClientArray%A_Index%
    Gui, Add, Button, v%A_Index% gButtonAction x15 y%Height% w135 h20 , SWGClient %A_Index%
    Height := Height + 25
}
Height := Height + 25
Gui, Show, h%Height% w%Width%, StarWarsGalaxiesController
return

ButtonAction:
ClientArray := ClientArray%A_GuiControl%
if not DllCall("IsWindowVisible", "UInt", ClientArray) 
winshow, ahk_id %ClientArray%
else
winhide, ahk_id %ClientArray%
WinActivate StarWarsGalaxiesController
return

WinGet, ClientArray, List, SwgClient
Loop %   ClientArray
   Gui, Add, Button, w135 h20 gButtonSWGClient, SWGClient %A_Index%   ; control names will be added in order, 'Button1', 'Button2', etc.
Gui, Show, AutoSize Center, StarWarsGalaxiesController
return

ButtonSWGClient:
GuiControlGet, b, Focus   ; gets the current control in the GUI that has focus, which should be the last button you clicked
; MsgBox %   b
b :=   RegExReplace(b,"Button")   ; removes everything but the button number
if   !DllCall("IsWindowVisible", "UInt", (win :=   ClientArray%b%))
   WinShow, ahk_id %win%
else   WinHide, ahk_id %win%
WinActivate, StarWarsGalaxiesController
return

GuiClose:
ExitApp