#include <Constants.au3>

HotKeySet("{F9}", "func1")
HotKeySet("{F10}", "func2")
HotKeySet("{NUMPADDOT}", "func3")
HotKeySet("{NUMLOCK}", "func4")

Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown

Local $my1item = TrayCreateItem("Точка", -1, -1, 1)
TrayItemSetState(-1, $TRAY_CHECKED)
Local $my2item = TrayCreateItem("Запятая", -1, -1, 1)
TrayCreateItem("")
Local $showinfo = TrayCreateItem("О программе")
TrayCreateItem("")
Local $exititem = TrayCreateItem("Exit")

Local $myitem = 1

TraySetState()

While 1
   Local $msg = TrayGetMsg()
	Select
	  Case $msg = 0
		 ContinueLoop
	  Case $msg = $my1item
		 $myitem = 1
		 ContinueLoop
	  Case $msg = $my2item
		 $myitem = 2
		 ContinueLoop
	  Case $msg = $exititem
		 ExitLoop
	  Case $msg = $showinfo
		 MsgBox(0, "О программе", "Автор: Дмитрий Руденко" & @LF & "E-mail: 3952800@gmail.com" & @LF & "http://fordewind.org/" & @LF & "Программа распространяется бесплатно")
		 ContinueLoop
	EndSelect 
WEnd

Func func1()
   Send(@YEAR & '-' & @MON & '-' & @MDAY)
EndFunc

Func func2()
   Send(@YEAR & '-' & @MON & '-' & @MDAY & '_' & @HOUR & '-' & @MIN)
EndFunc

Func func3()
   sleep(35)
   IF $myitem = 1 then 
	  send("{ASC 046}")
   ElseIf $myitem = 2 Then
	  send("{ASC 044}")
   EndIf
EndFunc

Func func4()
   Send("{ESCAPE}")
   Send("{NUMLOCK on}")
EndFunc