Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#NoTrayIcon
Global $INI = @ScriptDir & '\Settings.ini'
If FileExists($INI) Then
$Iccup = IniRead($INI, 'Option', 'Iccup', '')
$Garena = IniRead($INI, 'Option', 'Garena', '')
$PDL = IniRead($INI, 'Option', 'PDL', '')
$Darer = IniRead($INI, 'Option', 'Darer', '')
$RGC = IniRead($INI, 'Option', 'RGC', '')
$Binds = IniRead($INI, 'Option', 'Бинды', '')
$AWC117 = IniRead($INI, 'Option', 'AWC', '')
EndIf
$GUI = GUICreate('Стартёр', 170,315, -1, -1, BitOr($WS_BORDER, $WS_POPUP, $WS_SYSMENU), BitOR($WS_EX_CONTROLPARENT, $WS_EX_TOOLWINDOW))
$Closewindow = GUICtrlCreateButton ("X",150,0,20,20)
$tab=GUICtrlCreateTab (-2,0,176,295)
$tab0=GUICtrlCreateTabitem ("Warcraft")
GUICtrlCreateLabel ("- Iccup",60,55,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- Garena",60,85,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- PDL",60,115,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- Darer",60,145,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- RGC",60,175,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- Бинды",60,205,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- AWC",60,235,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("Быстрый запуск",41,297,90,20,-1,$GUI_WS_EX_PARENTDRAG)
$start1 = GUICtrlCreateButton ("Запуск",5,50,50)
$start2 = GUICtrlCreateButton ("Запуск",5,80,50)
$start3 = GUICtrlCreateButton ("Запуск",5,110,50)
$start4 = GUICtrlCreateButton ("Запуск",5,140,50)
$start5 = GUICtrlCreateButton ("Запуск",5,170,50)
$start6 = GUICtrlCreateButton ("Запуск",5,200,50)
$start7 = GUICtrlCreateButton ("Запуск",5,230,50)
$start8 = GUICtrlCreateButton ("Запуск",5,260,50)
$tab1=GUICtrlCreateTabitem ("Опции")
GUICtrlCreateLabel ("- Iccup",60,55,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- Garena",60,85,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- PDL",60,115,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- Darer",60,145,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- RGC",60,175,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- Бинды",60,205,50,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel ("- AWC",60,235,50,20,-1,$GUI_WS_EX_PARENTDRAG)
$start9 = GUICtrlCreateButton ("Запуск",5,50,50)
$start10 = GUICtrlCreateButton ("Запуск",5,80,50)
$start11 = GUICtrlCreateButton ("Запуск",5,110,50)
$start12 = GUICtrlCreateButton ("Запуск",5,140,50)
$start13 = GUICtrlCreateButton ("Запуск",5,170,50)
$start14 = GUICtrlCreateButton ("Запуск",5,200,50)
$start15 = GUICtrlCreateButton ("Запуск",5,230,50)
$start16 = GUICtrlCreateButton ("Запуск",5,260,50)
GUICtrlCreateLabel ("Настройка путей",39,297,90,20,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateTabitem ("") ; закрываем табы
Opt("TrayMenuMode", 3)
$OPTt = TrayCreateItem("Открыть")
TrayCreateItem("")
$SITEt = TrayCreateItem("Сайт")
TrayCreateItem("")
$EXITt = TrayCreateItem("Выход")
TraySetState()
While 1
Switch TrayGetMsg()
Case $OPTt
GUISetState(@SW_SHOW)
Case $SITEt
ShellExecute('www.google.com')
Case $EXITt
Exit
EndSwitch
Switch GUIGetMsg()
Case $Closewindow
Exit
Case 0
ContinueLoop
Case $start1
ShellExecute($Iccup)
Case $start2
ShellExecute($Garena)
Case $start3
ShellExecute($PDL)
Case $start4
ShellExecute($Darer)
Case $start5
ShellExecute($RGC)
Case $start6
ShellExecute($Binds)
Case $start7
ShellExecute($AWC117)
Case $start9
$File1 = FileOpenDialog('', '', 'All files (*.*)')
if @error then ContinueLoop
IniWrite(@ScriptDir & '\Settings.ini', 'Option', 'Iccup', $File1)
Case $start10
$File1 = FileOpenDialog('', '', 'All files (*.*)')
if @error then ContinueLoop
IniWrite(@ScriptDir & '\Settings.ini', 'Option', 'Garena', $File1)
Case $start11
$File1 = FileOpenDialog('', '', 'All files (*.*)')
if @error then ContinueLoop
IniWrite(@ScriptDir & '\Settings.ini', 'Option', 'PDL', $File1)
Case $start12
$File1 = FileOpenDialog('', '', 'All files (*.*)')
if @error then ContinueLoop
IniWrite(@ScriptDir & '\Settings.ini', 'Option', 'Darer', $File1)
Case $start13
$File1 = FileOpenDialog('', '', 'All files (*.*)')
if @error then ContinueLoop
IniWrite(@ScriptDir & '\Settings.ini', 'Option', 'RGC', $File1)
Case $start14
$File1 = FileOpenDialog('', '', 'All files (*.*)')
if @error then ContinueLoop
IniWrite(@ScriptDir & '\Settings.ini', 'Option', 'Binds', $File1)
Case $start15
$File1 = FileOpenDialog('', '', 'All files (*.*)')
if @error then ContinueLoop
IniWrite(@ScriptDir & '\Settings.ini', 'Option', 'AWC117', $File1)
EndSwitch
Wend
Спасибо!
Код:
#NoTrayIcon
Opt("TrayMenuMode", 3)
$OPTt = TrayCreateItem("Открыть")
TrayCreateItem("")
$SITEt = TrayCreateItem("Сайт")
TrayCreateItem("")
$EXITt = TrayCreateItem("Выход")
TraySetState()
While 1
Switch TrayGetMsg()
Case $OPTt
GUISetState(@SW_SHOW)
Case $SITEt
ShellExecute('www.google.com')
Case $EXITt
Exit
EndSwitch
Switch GUIGetMsg()
Case $Closewindow
Exit
Case 0
ContinueLoop
........