Что нового

Как сделать рабочии функции трея

Bayka

Новичок
Сообщения
6
Репутация
0
Код:
#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
........
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Re: Вопросы по трею

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"Вопросы по трею" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор форума.
 

kasper_sky

Antivirus
Сообщения
116
Репутация
1
Bayka [?]
- Как убрать эти галочки, когда жмёшь на пункты?
В начале прописываешь
Код:
Opt("TrayMenuMode", 2)



- Можно сделать ссылку на сайт?
Создаешь контрол, и клике на нем выполняешь
Код:
ShellExecute('http://somesite.com')

в этом случае сайт откроется в назначенном по умолчанию браузере.
 

Zaramot

I ♥ AutoIt
Сообщения
1 160
Репутация
659
Код:
#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 GUIGetMsg() <> $Closewindow
    Switch TrayGetMsg()
        Case 0
            ContinueLoop
        Case $OPTt
            GUISetState(@SW_SHOW)
        Case $SITEt
            ShellExecute('www.google.com')
        Case $EXITt
            Exit
    EndSwitch

    Switch GUIGetMsg()
        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
 
Автор
B

Bayka

Новичок
Сообщения
6
Репутация
0
В треи жму открыть, открывается, но кроме крестика ничего не работает.
Если нажать на него, то второй раз открыть уже не получается.
 

gregaz

AutoIT Гуру
Сообщения
1 166
Репутация
299
Bayka [?]
В треи жму открыть, открывается, но кроме крестика ничего не работает.
Если нажать на него, то второй раз открыть уже не получается.
Убери : (или перенеси в опрос GUIGetMsg())
Код:
;Case 0
           ; ContinueLoop


Примерно так :
Код:
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)
       ;.....................
    EndSwitch
Wend
 
Верх