Показать полную графическую версию : [решено] Можноли в Autoite отредактировать значок скрипта который появляеться в сис.трее?
Anarasius
17-09-2009, 20:02
Я имею виду можно ли туда добавить функции и т.д.? И как это делать?
Смотри в справке описание, и пример к функции: TrayCreateItem.
А вот, если хочется это сделать красивее:#NoTrayIcon
#include <ModernMenuRaw.au3>
$hTrayIcon = _TrayIconCreate("My Tray App")
_TrayIconSetClick(-1, 9)
_TrayIconSetState()
$nTrayMenu = _TrayCreateContextMenu()
$Calc_TrayItem = _TrayCreateItem("Калькулятор")
_TrayItemSetIcon(-1, "calc.exe", 0)
$Word_TrayItem = _TrayCreateItem("MS Word")
_TrayItemSetIcon(-1, @ProgramFilesDir &"\Microsoft Office\Office12\WINWORD.EXE", 0)
$Notepad_TrayItem = _TrayCreateItem("Блокнот")
_TrayItemSetIcon(-1, "notepad.exe", 0)
$CmdLine_TrayItem = _TrayCreateItem("Коммандная строка")
_TrayItemSetIcon(-1, "cmd.exe", 0)
$MSPaint_TrayItem = _TrayCreateItem("MSPaint")
_TrayItemSetIcon(-1, "mspaint.exe", 0)
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$Exit_TrayItem = _TrayCreateItem("Выход")
_TrayItemSetIcon(-1, "shell32.dll", 28)
_SetTrayIconBkColor(0xC46200)
_SetTraySelectBkColor(0x087272)
_SetTraySelectTextColor(0xFFFFFF)
While 1
Switch GUIGetMsg()
Case $Calc_TrayItem
Run("Calc.exe")
Case $Notepad_TrayItem
Run("Notepad.exe")
Case $CmdLine_TrayItem
Run("Cmd.exe")
Case $MSPaint_TrayItem
Run("MSPaint.exe")
Case $Word_TrayItem
Run (@ProgramFilesDir &"\Microsoft Office\Office12\WINWORD.EXE")
Case $Exit_TrayItem
_TrayIconDelete($hTrayIcon)
Exit
EndSwitch
WEnd
Для работы скрипта нужна библиотека ModernMenuRaw.au3
А вот, если хочется это сделать красивее »
Гыы, прикольно! :)
А что делает _TrayIconSetClick? Я не понял из кода.
А что делает _TrayIconSetClick? Я не понял из кода. »
Смотри в справке описание функции: TraySetClick . (Сдесь используется в _TrayIconSetClick(-1, 9) - 9 что означает 1 = Pressing primary mouse button + 8 = Pressing secondary mouse button, иными словами при клике на значке в сист.трее левой или правой клавишей мышки, появится трей-меню. (А функция _TrayIconSetClick из библиотеки ModernMenuRaw.au3)
Anarasius
17-09-2009, 22:38
Подскажите, как вставить сюда этот скрипт
#RequireAdmin
;Добавляем программу в автозапуск
If RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", @ScriptName) = "" Then _
RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", @ScriptName, "REG_SZ", '"' & @ScriptFullPath & '"')
;Указываем программу на запуск
$sApp = "notepad.exe"
;Указываем число запуска
$nDay = 16
While 1
If @MDAY = $nDay Then
Run($sApp)
While @MDAY = $nDay
Sleep(60000)
WEnd
EndIf
Sleep(1000)
WEnd
Уже все перепробовал но у меня не раб кнопка Выход, спасибо!
как вставить сюда этот скрипт »
Куда сюда? И код нужно заключать в соот-вующие теги.
Вопрос был в том, как поменять значок скрипта в трее, вам дали (http://forum.oszone.net/post-1221383.html#post1221383) короткий и верный ответ - используйте TraySetIcon.
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.