PDA

Показать полную графическую версию : [решено] Можноли в Autoite отредактировать значок скрипта который появляеться в сис.трее?


Anarasius
17-09-2009, 20:02
Я имею виду можно ли туда добавить функции и т.д.? И как это делать?

beve
17-09-2009, 20:38
Смотри в справке описание, и пример к функции: 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

evg64
17-09-2009, 21:07
А вот, если хочется это сделать красивее »
Гыы, прикольно! :)
А что делает _TrayIconSetClick? Я не понял из кода.

beve
17-09-2009, 21:27
А что делает _TrayIconSetClick? Я не понял из кода. »
Смотри в справке описание функции: TraySetClick . (Сдесь используется в _TrayIconSetClick(-1, 9) - 9 что означает 1 = Pressing primary mouse button + 8 = Pressing secondary mouse button, иными словами при клике на значке в сист.трее левой или правой клавишей мышки, появится трей-меню. (А функция _TrayIconSetClick из библиотеки ModernMenuRaw.au3)

kaster
17-09-2009, 21:53
TraySetIcon('iconpath')

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

Уже все перепробовал но у меня не раб кнопка Выход, спасибо!

Creat0R
17-09-2009, 23:07
как вставить сюда этот скрипт »
Куда сюда? И код нужно заключать в соот-вующие теги.

Вопрос был в том, как поменять значок скрипта в трее, вам дали (http://forum.oszone.net/post-1221383.html#post1221383) короткий и верный ответ - используйте TraySetIcon.




© OSzone.net 2001-2012