#Include <Constants.au3>
#include <GUIConstants.au3>
#NoTrayIcon
Opt("TrayMenuMode",1)
$vneshka = TrayCreateItem("Проверить интернет")
$vnutr = TrayCreateItem("Внупренняя сеть")
$DNS = TrayCreateItem("Проверить DNS" )
$IP = TrayCreateItem("Cообщить IP-адреса" )
$Gateway = TrayCreateItem("Проверить маршрутизатор")
TrayCreateItem("")
$contakt = TrayCreateItem("Контакты ИТ-отдела")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
TraySetState()
Func contakt()
GUICreate("Контакты ИТ-отдела", 400,500) ; will create a dialog box that when displayed is centered
GUISetHelp("notepad") ; will run notepad if F1 is typed
Opt("GUICoordMode",2)
GUICtrlCreateLabel ("Фамилия Имя Должность Мобильный IP-Phone", 10, 10, 500)
GUICtrlSetColor(-1,0x880000)
GUICtrlSetFont (-1,9, 400, 4)
GUICtrlCreateLabel ("По всем вопросам обращайтесь Helpdesk XXXXXXXXXXXXXXXXXXXXXXXXXXXX ", -1, 0,500)
GUICtrlSetColor(-1,0xff0000)
GUICtrlSetFont (-1,9,450)
GUICtrlCreateLabel ("Захаров Игорь Тех. Специалист XXXXXXXXXXXXXXXXXXXXX", -1, 0,500)
GUICtrlCreateLabel ("Земко Артем Тех. Специалист XXXXXXXXXXXXXXXXXXXXX", -1, 0,500)
GUISetState ()
While 1
$msg2 = GUIGetMsg()
if $msg2 = $GUI_EVENT_CLOSE Then ExitLoop
Wend
EndFunc
While 1
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $vneshka
vneshka()
Case $msg = $vnutr
vnutr()
Case $msg = $DNS
DNS()
Case $msg = $IP
IP()
Case $msg = $Gateway
Gateway()
Case $msg = $contakt
contakt()
Case $msg = $exititem
ExitLoop
EndSelect
WEnd
Exit
|
бред какой то! не могу же я всю папку Include из директории AutoIt сюда скопировать!! 
(кажется я четвертый в топике кто благодарит тебя за эту прогу 
