Jump to content

A Simple GUI Launcher

Generator

By Generator,
in AutoIt Example Scripts

 Share

Recommended Posts

Generator Universalist

Generator

Posted
Posted (edited)

Long time ago, i saw somebody had something similiar to this, but then the size and the buttons were very limited. Recently, i was thinking, maybe i should make 1 like that too.

Anyways it's here, very simple since first release, afterward i will add an ini and the funcs to store all the informations.

Finally i got it to work, using the easiest way, wasn't very clear in mind. Now you can load from ini.

Updated:

  • Now you can store all your info in an ini file which will be auto generated after use of the program
  • You can load your setting from the ini file
Todo List:

None

Comments and suggestions are welcomed, code below or download it here >GUI_Launcher.au3

Take a look:

#NoTrayIcon
#include<GUIConstants.au3>
#include<Math.au3>
#include<File.au3>
#include<String.au3>
#include<Misc.au3>

_Singleton("GUI Launcher")

Opt("GUIOnEventMode", 1)
Opt("GUICloseOnEsc", 0)
Opt("GUIResizeMode", 802)

Global $Run[256], $Browse[256], $Counter = 0, $WidthPos1 = -195, $HeightPos1 = 1, $WidthPos2 = -100, $HeightPos2 = 2, $Dir[256], $Execute[256], $File
Global $FileName = @ScriptDir & "\Setting.ini"

_OpenIni()

$mainfrm = GUICreate("GUI Launcher", 199, 55, -1, -1, $WS_MINIMIZEBOX + $WS_CAPTION)
$filemenu = GUICtrlCreateMenu("File")
$filemini = GUICtrlCreateMenuItem("Minimize", $filemenu)
$fileexit = GUICtrlCreateMenuItem("Exit", $filemenu)
$createmenu = GUICtrlCreateMenu("Options")
$createitem = GUICtrlCreateMenuItem("Add Button", $createmenu)
$loadini = GUICtrlCreateMenuItem("Load Setting", $createmenu)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetOnEvent($fileexit, "_Exit")
GUICtrlSetOnEvent($filemini, "_Minimize")
GUICtrlSetOnEvent($createitem, "_CreateButton")
GUICtrlSetOnEvent($loadini, "_LoadfromIni")
GUISetFont(9, 400, 0, "Tahoma")
GUISetState()
While 1
    Sleep(1)
WEnd
Func _Exit()
    _CloseIni()
    GUIDelete($mainfrm)
    ProgressOn("Saving current setting into Ini", "", "", Default, Default)
    For $i = 0 To UBound($Dir, 1) - 1
        IniWrite($FileName, "Directory", "Directory." & $i, $Dir[$i])
        If $i > 125 Then ProgressSet(25)
        If $i > 254 Then ProgressSet(50)
        Sleep(5)
    Next
    Sleep(100)
    For $i = 0 To UBound($Execute, 1) - 1
        IniWrite($FileName, "Execute", "Execute." & $i, $Execute[$i])
        If $i > 125 Then ProgressSet(75)
        If $i > 254 Then ProgressSet(95)
        Sleep(5)
    Next
    IniWrite($FileName, "Counter", "Counter.#", $Counter)
    ProgressSet(100)
    Sleep(200)
    ProgressOff()
    Exit
EndFunc   ;==>_Exit
Func _CreateButton()
    Local $WinPos = WinGetPos($mainfrm)
    $WidthPos1 += 200
    $WidthPos2 += 200
    $Run[$Counter] = GUICtrlCreateButton("Executable", $WidthPos1, $HeightPos1, 90, 30)
    GUICtrlSetOnEvent(-1, "_RunExecute")
    GUICtrlSetFont(-1, 9, 400, 0, "Tahoma")
    $Browse[$Counter] = GUICtrlCreateButton("Browse", $WidthPos2, $HeightPos2, 90, 30)
    GUICtrlSetOnEvent(-1, "_BrowseDirc")
    GUICtrlSetFont(-1, 9, 400, 0, "Tahoma")
    $Counter += 1
    If $Counter > 253 Then
        GUICtrlSetState($createitem, $GUI_DISABLE)
    EndIf
    If _MathCheckDiv($Counter, 3) = 1 Then
        If $Counter > 3 Then
        Else
            WinMove($mainfrm, "", $WinPos[0], $WinPos[1], $WinPos[2] + 198, $WinPos[3])
        EndIf
    Else
        $WidthPos1 -= 600
        $WidthPos2 -= 600
        $HeightPos1 += 35
        $HeightPos2 += 35
        WinMove($mainfrm, "", $WinPos[0], $WinPos[1], $WinPos[2], $WinPos[3] + 35)
    EndIf
EndFunc   ;==>_CreateButton
Func _RunExecute()
    Local $Id = @GUI_CtrlHandle
    For $i = 0 To UBound($Run, 1) - 1
        If GUICtrlGetHandle($Run[$i]) = $Id Then
            ShellExecute($Dir[$i])
            ExitLoop
        EndIf
    Next
EndFunc   ;==>_RunExecute
Func _BrowseDirc()
    Local $Id = @GUI_CtrlHandle
    Local $Dirc, $String, $Display
    $Dirc = FileOpenDialog("Please Select the File", @DesktopDir, "All (*.*)", 1 + 2)
    $String = StringSplit($Dirc, ".")
    $String2 = StringSplit($String[1], "\")
    $Display = UBound($String2, 1) - 1
    For $i = 0 To UBound($Browse, 1) - 1
        If GUICtrlGetHandle($Browse[$i]) = $Id Then
            $Dir[$i] = $Dirc
            $Execute[$i] = $String2[$Display]
            GUICtrlSetData($Run[$i], $Execute[$i])
            ExitLoop
        EndIf
    Next
EndFunc   ;==>_BrowseDirc
Func _LoadfromIni()
    Local $IniRead
    If FileExists($FileName) Then
        GUISetState(@SW_HIDE, $mainfrm)
        ProgressOn("Loading Setting from Ini", "", "", Default, Default)
        $IniRead = IniRead($FileName, "Counter", "Counter.#", 0)
        For $i = 1 To $IniRead
            _CreateButton()
        Next
        ProgressSet(50)
        Sleep(100)
        For $i = 0 To UBound($Dir, 1) - 1
            $Dir[$i] = IniRead($FileName, "Directory", "Directory." & $i, "")
            If $i > 125 Then ProgressSet(60)
            If $i > 254 Then ProgressSet(70)
            Sleep(5)
        Next
        Sleep(100)
        For $i = 0 To UBound($Execute, 1) - 1
            $Execute[$i] = IniRead($FileName, "Execute", "Execute." & $i, "")
            GUICtrlSetData($Run[$i], IniRead($FileName, "Execute", "Execute." & $i, ""))
            If $i > 125 Then ProgressSet(80)
            If $i > 254 Then ProgressSet(95)
            Sleep(5)
        Next
        ProgressSet(100)
        Sleep(200)
        ProgressOff()
        GUISetState(@SW_SHOW, $mainfrm)
    Else
        MsgBox(64, "Error", "File do not exist, failed to load setting", 3)
        Return
    EndIf
EndFunc   ;==>_LoadfromIni
Func _OpenIni()
    If FileExists($FileName) Then
        $File = FileOpen($FileName, 0)
    EndIf
EndFunc   ;==>_OpenIni
Func _CloseIni()
    If FileExists($FileName) Then
        FileClose($File)
    EndIf
EndFunc   ;==>_CloseIni
Func _Minimize()
    GUISetState(@SW_MINIMIZE, $mainfrm)
EndFunc   ;==>_Minimize
Edited by Generator
Link to comment
Share on other sites
JustinReno Universalist

JustinReno

Posted
Posted

Have you seen this launcher:

I dont know who made it but its pretty cool

CODE

#include <GUIConstants.au3>

Global $hide_state = 0, $btn_state = 0, $pass = 0, $side = "left"

Global $Button_[15], $Label_[15], $config_[8]

If Not FileExists(@ScriptDir & "\toolbar.ini") Then Create_ini()

$Label_name = IniReadSection(@ScriptDir & "\toolbar.ini", "Label")

$Launch_name = IniReadSection(@ScriptDir & "\toolbar.ini", "Launch")

$hwnd= GUICreate("Sliding Launcher", 603, 170, -588, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW, $WS_EX_ACCEPTFILES))

$config_[1] = GUICtrlCreateLabel("Label Name", 15, 32, 60, 20)

$config_[2] = GUICtrlCreateInput("", 75, 30, 80, 20)

$config_[3] = GUICtrlCreateLabel("Program to Launch", 175, 32, 100, 20)

$config_[4] = GUICtrlCreateInput("", 270, 30, 255, 20)

GUICtrlSetState( -1, $GUI_DROPACCEPTED )

$config_[5] = GUICtrlCreateButton("Cancel", 530, 5, 50, 20)

$config_[6] = GUICtrlCreateButton("Browse", 530, 30, 50, 20)

$config_[7] = GUICtrlCreateButton("Accept", 530, 55, 50, 20)

For $x = 1 To 7

GUICtrlSetState($config_[$x], $GUI_HIDE)

Next

$Show = GUICtrlCreateButton(">", 585, 8, 17, 155, BitOR($BS_CENTER, $BS_FLAT))

GUISetState(@SW_HIDE, $hwnd)

$hwnd2 = GUICreate("Sliding Launcher", 603, 170, 0, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))

$Button_[1] = GUICtrlCreateButton("", 20, 35, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[1][1])

$Label_[1] = GUICtrlCreateLabel($Label_name[1][1], 20, 8, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[2] = GUICtrlCreateButton("", 100, 35, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[2][1])

$Label_[2] = GUICtrlCreateLabel($Label_name[2][1], 100, 8, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[3] = GUICtrlCreateButton("", 180, 35, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[3][1])

$Label_[3] = GUICtrlCreateLabel($Label_name[3][1], 180, 8, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[4] = GUICtrlCreateButton("", 260, 35, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[4][1])

$Label_[4] = GUICtrlCreateLabel($Label_name[4][1], 260, 8, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[5] = GUICtrlCreateButton("", 340, 35, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[5][1])

$Label_[5] = GUICtrlCreateLabel($Label_name[5][1], 340, 8, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[6] = GUICtrlCreateButton("", 420, 35, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[6][1])

$Label_[6] = GUICtrlCreateLabel($Label_name[6][1], 420, 8, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[7] = GUICtrlCreateButton("", 500, 35, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[7][1])

$Label_[7] = GUICtrlCreateLabel($Label_name[7][1], 500, 8, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[8] = GUICtrlCreateButton("", 20, 120, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[8][1])

$Label_[8] = GUICtrlCreateLabel($Label_name[8][1], 20, 93, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[9] = GUICtrlCreateButton("", 100, 120, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[9][1])

$Label_[9] = GUICtrlCreateLabel($Label_name[9][1], 100, 93, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[10] = GUICtrlCreateButton("", 180, 120, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[10][1])

$Label_[10] = GUICtrlCreateLabel($Label_name[10][1], 180, 93, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[11] = GUICtrlCreateButton("", 260, 120, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[11][1])

$Label_[11] = GUICtrlCreateLabel($Label_name[11][1], 260, 93, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[12] = GUICtrlCreateButton("", 340, 120, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[12][1])

$Label_[12] = GUICtrlCreateLabel($Label_name[12][1], 340, 93, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[13] = GUICtrlCreateButton("", 420, 120, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[13][1])

$Label_[13] = GUICtrlCreateLabel($Label_name[13][1], 420, 93, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Button_[14] = GUICtrlCreateButton("", 500, 120, 73, 41, $BS_ICON)

GUICtrlSetImage(-1, $Launch_name[14][1])

$Label_[14] = GUICtrlCreateLabel($Label_name[14][1], 500, 93, 73, 17, $SS_CENTER + $SS_SUNKEN)

$Hide = GUICtrlCreateButton("<", 585, 8, 17, 155, BitOR($BS_CENTER, $BS_FLAT, $BS_MULTILINE))

$Edit = GUICtrlCreateButton("[]", 0, 8, 15, 155, BitOR($BS_CENTER, $BS_FLAT, $BS_MULTILINE))

GUICtrlSetTip(-1, "Config")

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd2, "int", 100, "long", 0x00040001);slide in from left

GUISetState()

Opt("TrayMenuMode", 1)

Opt("TrayOnEventMode", 1)

$config_tray = TrayCreateItem("Configure...")

TrayItemSetOnEvent(-1, "Set_config")

TrayCreateItem("")

$exit_tray = TrayCreateItem("Exit Sliding Launcher")

TrayItemSetOnEvent(-1, "Set_Exit")

TraySetState()

While 1

$msg1 = GUIGetMsg()

If $msg1 = $GUI_EVENT_CLOSE Then Exit

If $msg1 = $Hide Then

If $pass = 1 Then

WinSetTitle($hwnd2, "", "Sliding Launcher")

$pass = 0

Else

Slide_out()

EndIf

EndIf

If $msg1 = $Show Then Slide_in()

If $msg1 = $Edit Then $pass = 1

$a_pos = WinGetPos($hwnd2)

$a_pos2 = WinGetPos($hwnd)

If $side = "left" Then

If $a_pos[0]+306 < (@DesktopWidth / 2) Then

If $a_pos[0] <> 0 And $hide_state = 0 And $a_pos[0] Then

WinMove($hwnd2, "", 0, $a_pos[1])

WinMove($hwnd, "", -588, $a_pos[1])

EndIf

If $a_pos2[0] <> - 588 And $hide_state = 1 Then

WinMove($hwnd, "", -588, $a_pos2[1])

WinMove($hwnd2, "", 0, $a_pos2[1])

EndIf

Else

SideSwitch()

EndIf

EndIf

If $side = "right" Then

If $a_pos[0]+306 > (@DesktopWidth / 2) Then

If $a_pos[0] <> @DesktopWidth-605 And $hide_state = 0 Then

WinMove($hwnd2, "", (@DesktopWidth-605), $a_pos[1])

WinMove($hwnd, "", (@DesktopWidth-23), $a_pos[1]) ; should be -15

EndIf

If $a_pos2[0] <> (@DesktopWidth-23) And $hide_state = 1 Then ; should be -15

WinMove($hwnd, "", (@DesktopWidth-23), $a_pos2[1]) ; should be -15

WinMove($hwnd2, "", (@DesktopWidth-605), $a_pos2[1])

EndIf

Else

SideSwitch()

EndIf

EndIf

If $pass = 1 Then WinSetTitle($hwnd2, "", "Config Mode - Please Press the Button to Configure... Press ""<"" to Cancel")

If $hide_state = 0 Then

$a_mpos = GUIGetCursorInfo($hwnd2)

If IsArray($a_mpos) = 1 Then

For $b = 1 To 14

If $a_mpos[4] = $Button_[$b] And $b>=1 And $b<=7 Then

If $b = 1 Then $left = 15

If $b > 1 Then $left = (($b - 1) * 80) + 15

GUICtrlSetPos($Button_[$b], $left, 30, 83, 46)

GUICtrlSetColor($Label_[$b], 0xff0000)

GUICtrlSetCursor($Button_[$b], 0)

While $a_mpos[4] = $Button_[$b]

$msg = GUIGetMsg()

If $msg = $Button_[$b] Then

If $pass = 0 Then

Function($:)

ExitLoop

Else

Set_ini($:P

ExitLoop

EndIf

EndIf

$a_mpos = GUIGetCursorInfo($hwnd2)

If IsArray($a_mpos) <> 1 Then ExitLoop

WEnd

$left = $left + 5

GUICtrlSetPos($Button_[$b], $left, 35, 73, 41)

GUICtrlSetColor($Label_[$b], 0x000000)

EndIf

If $a_mpos[4] = $Button_[$b] And $b>=8 and $b<=14 Then

If $b = 7 Then $left = 15

If $b > 7 Then $left = (($b - 8) * 80) + 15

GUICtrlSetPos($Button_[$b], $left, 120, 83, 46)

GUICtrlSetColor($Label_[$b], 0xff0000)

GUICtrlSetCursor($Button_[$b], 0)

While $a_mpos[4] = $Button_[$b]

$msg = GUIGetMsg()

If $msg = $Button_[$b] Then

If $pass = 0 Then

Function($:)

ExitLoop

Else

Set_ini($:)

ExitLoop

EndIf

EndIf

$a_mpos = GUIGetCursorInfo($hwnd2)

If IsArray($a_mpos) <> 1 Then ExitLoop

WEnd

$left = $left + 5

GUICtrlSetPos($Button_[$b], $left, 120, 73, 41)

GUICtrlSetColor($Label_[$b], 0x000000)

EndIf

Next

EndIf

EndIf

WEnd

Func Slide_in()

$hide_state = 0

;Btn_reset()

GUISetState(@SW_HIDE, $hwnd)

If $side = "left" Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd2, "int", 100, "long", 0x00040001);slide in from left

If $side = "right" Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd2, "int", 100, "long", 0x00040002);slide in from right

WinActivate($hwnd2)

WinWaitActive($hwnd2)

EndFunc ;==>Slide_in

Func Slide_out()

$hide_state = 1

;Btn_reset()

If $side = "left" Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd2, "int", 100, "long", 0x00050002);slide out to left

If $side = "right" Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd2, "int", 100, "long", 0x00050001);slide out to right

GUISetState(@SW_SHOW, $hwnd)

WinActivate($hwnd)

WinWaitActive($hwnd)

EndFunc ;==>Slide_out

Func Create_ini()

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 1, @ProgramFilesDir & "\Internet Explorer\iexplore.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 2, @SystemDir & "\osk.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 3, @ProgramFilesDir & "\Windows Media Player\wmplayer.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 4, @SystemDir & "\notepad.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 5, @SystemDir & "\calc.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 6, @SystemDir & "\mstsc.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 7, @SystemDir & "\cleanmgr.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 8, @ProgramFilesDir & "\Internet Explorer\iexplore.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 9, @SystemDir & "\osk.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 10, @ProgramFilesDir & "\Windows Media Player\wmplayer.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 11, @SystemDir & "\notepad.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 12, @SystemDir & "\calc.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 13, @SystemDir & "\mstsc.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", 14, @SystemDir & "\cleanmgr.exe")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 1, "IE Explorer")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 2, "Keyboard")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 3, "Media Player")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 4, "Notepad")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 5, "Calculator")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 6, "Net Service")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 7, "Clean Mngr")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 8, "IE Explorer")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 9, "Keyboard")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 10, "Media Player")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 11, "Notepad")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 12, "Calculator")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 13, "Net Service")

IniWrite(@ScriptDir & "\toolbar.ini", "Label", 14, "Clean Mngr")

EndFunc ;==>Create_ini

Func Set_ini(ByRef $(!)

Slide_out()

GUICtrlSetState($Show, $GUI_HIDE)

For $x = 1 To 7

GUICtrlSetState($config_[$x], $GUI_SHOW)

Next

Sleep(50)

WinMove($hwnd, "", 3, $a_pos[1])

GUICtrlSetData($config_[2], $Label_name[$b][1])

GUICtrlSetData($config_[4], $Launch_name[$b][1])

GUICtrlSetState($config_[4], $GUI_DROPACCEPTED )

While 3

$a_pos = WinGetPos($hwnd)

WinMove($hwnd, "", 3, $a_pos[1])

WinMove($hwnd2, "", 3, $a_pos[1])

$msg3 = GUIGetMsg()

If $msg3 = $GUI_EVENT_CLOSE Then Exit

If $msg3 = $config_[5] Then ExitLoop

If $msg3 = $config_[6] Then

$Find = FileOpenDialog("Please Select a Program to Launch", @ProgramFilesDir, "exe (*.exe)", 1 + 2)

If Not @error = 1 Then GUICtrlSetData($config_[4], $Find)

EndIf

If $msg3 = $config_[7] Then

$temp_info = GUICtrlRead($config_[4])

If FileExists($temp_info) Then

If StringInStr($temp_info, ".lnk") Then

$details = FileGetShortcut($temp_info)

$temp_info = $details[0]

EndIf

If StringInStr($temp_info, ".exe") Then

IniWrite(@ScriptDir & "\toolbar.ini", "Launch", $b, $temp_info)

IniWrite(@ScriptDir & "\toolbar.ini", "Label", $b, (GUICtrlRead($config_[2])))

$Label_name = IniReadSection(@ScriptDir & "\toolbar.ini", "Label")

$Launch_name = IniReadSection(@ScriptDir & "\toolbar.ini", "Launch")

For $x = 1 To 14

GUICtrlSetData($Label_[$x], $Label_name[$x][1])

GUICtrlSetImage($Button_[$x], $Launch_name[$x][1])

Next

ExitLoop

Else

MsgBox(262208, "Sorry!", "The ""exe"" file could not be verified ", 4)

EndIf

Else

MsgBox(262208, "Sorry!", "The file location could not be verified ", 4)

EndIf

EndIf

WEnd

For $x = 1 To 7

GUICtrlSetState($config_[$x], $GUI_HIDE)

Next

WinMove($hwnd, "", -588, $a_pos[1])

GUICtrlSetState($Show, $GUI_SHOW)

Slide_in()

EndFunc ;==>Set_ini

Func Function(ByRef $(!)

Slide_out()

If FileExists($Launch_name[$b][1]) Then

$LFile = FileGetShortName($Launch_name[$b][1])

Run($LFile)

Else

MsgBox(262208, "Sorry!", "The file location could not be verified ", 4)

EndIf

EndFunc ;==>Function

Func Set_Exit()

Exit

EndFunc ;==>Set_Exit

Func Set_Config()

$a_pos = WinGetPos($hwnd)

If $a_pos[0] = 3 Then Return

Slide_in()

$pass = 1

EndFunc ;==>Set_Exit

Func SideSwitch()

If $side = "left" Then

$side = "right"

GuiCtrlSetPos($Hide,1,8)

GuiCtrlSetData($Hide, ">")

GuiCtrlSetPos($Show,1,8)

GuiCtrlSetData($Show, "<")

GUICtrlSetPos($Edit,585,8)

Else

$side = "left"

GuiCtrlSetPos($Hide,585, 8)

GuiCtrlSetData($Hide, "<")

GuiCtrlSetPos($Show,585, 8)

GuiCtrlSetData($Show, ">")

GUICtrlSetPos($Edit,1,8)

EndIf

EndFunc

pretty cool, huh?

Link to comment
Share on other sites
Generator Universalist

Generator

Posted
  • Author
Posted (edited)

That one is made form Valtuter's UDF on sliding GUI, personally i don't like it because you have to create two GUI and keep switching it just takes too much work, but the animation is great.

If you want to do that too on your GUI just look up these dllcall in the script, example

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd2, "int", 100, "long", 0x00040001);slide in from left

Edited by Generator
Link to comment
Share on other sites
sandman Universalist

sandman

Posted
Posted

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd2, "int", 100, "long", 0x00040001);slide in from left

Does anyone know a resource to get all the handy functions like this? I tried MSDN but it's just too darn confusing in parts.

[center]"Yes, [our app] runs on Windows as well as Linux, but if you had a Picasso painting, would you put it in the bathroom?" -BitchX.com (IRC client)"I would change the world, but they won't give me the source code." -Unknownsite . blog . portfolio . claimidcode.is.poetry();[/center]

Link to comment
Share on other sites
Gif Universalist

Gif

Posted
Posted

Does anyone know a resource to get all the handy functions like this? I tried MSDN but it's just too darn confusing in parts.

i know a very nice program to get the functions from DLLs even those not from microsoft, but no other site only MSDN

you can find the program here

Link to comment
Share on other sites
sandman Universalist

sandman

Posted
Posted

i know a very nice program to get the functions from DLLs even those not from microsoft, but no other site only MSDN

you can find the program here

I'm aware of that program, but that doesn't tell you what parameters to use for calling it, things like that.

[center]"Yes, [our app] runs on Windows as well as Linux, but if you had a Picasso painting, would you put it in the bathroom?" -BitchX.com (IRC client)"I would change the world, but they won't give me the source code." -Unknownsite . blog . portfolio . claimidcode.is.poetry();[/center]

Link to comment
Share on other sites
  • 2 weeks later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...