ОфисЛодырь - защита от ленивых сотрудников

Программа блокирует самые распространённые офисные игры в рабочее время с 8ми утра до 17 вечера, обед с 12-13 не в счёт.
В результате персонал офиса будет больше уделять времени работе а не развлечениям.

#Region
	#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion
Global Const $gui_event_close = -3
Global Const $gui_event_minimize = -4
Global Const $gui_event_restore = -5
Global Const $gui_event_maximize = -6
Global Const $gui_event_primarydown = -7
Global Const $gui_event_primaryup = -8
Global Const $gui_event_secondarydown = -9
Global Const $gui_event_secondaryup = -10
Global Const $gui_event_mousemove = -11
Global Const $gui_event_resized = -12
Global Const $gui_event_dropped = -13
Global Const $gui_rundefmsg = "GUI_RUNDEFMSG"
Global Const $gui_avistop = 0
Global Const $gui_avistart = 1
Global Const $gui_aviclose = 2
Global Const $gui_checked = 1
Global Const $gui_indeterminate = 2
Global Const $gui_unchecked = 4
Global Const $gui_dropaccepted = 8
Global Const $gui_nodropaccepted = 4096
Global Const $gui_acceptfiles = $gui_dropaccepted
Global Const $gui_show = 16
Global Const $gui_hide = 32
Global Const $gui_enable = 64
Global Const $gui_disable = 128
Global Const $gui_focus = 256
Global Const $gui_nofocus = 8192
Global Const $gui_defbutton = 512
Global Const $gui_expand = 1024
Global Const $gui_ontop = 2048
Global Const $gui_fontitalic = 2
Global Const $gui_fontunder = 4
Global Const $gui_fontstrike = 8
Global Const $gui_dockauto = 1
Global Const $gui_dockleft = 2
Global Const $gui_dockright = 4
Global Const $gui_dockhcenter = 8
Global Const $gui_docktop = 32
Global Const $gui_dockbottom = 64
Global Const $gui_dockvcenter = 128
Global Const $gui_dockwidth = 256
Global Const $gui_dockheight = 512
Global Const $gui_docksize = 768
Global Const $gui_dockmenubar = 544
Global Const $gui_dockstatebar = 576
Global Const $gui_dockall = 802
Global Const $gui_dockborders = 102
Global Const $gui_gr_close = 1
Global Const $gui_gr_line = 2
Global Const $gui_gr_bezier = 4
Global Const $gui_gr_move = 6
Global Const $gui_gr_color = 8
Global Const $gui_gr_rect = 10
Global Const $gui_gr_ellipse = 12
Global Const $gui_gr_pie = 14
Global Const $gui_gr_dot = 16
Global Const $gui_gr_pixel = 18
Global Const $gui_gr_hint = 20
Global Const $gui_gr_refresh = 22
Global Const $gui_gr_pensize = 24
Global Const $gui_gr_nobkcolor = -2
Global Const $gui_bkcolor_default = -1
Global Const $gui_bkcolor_transparent = -2
Global Const $gui_bkcolor_lv_alternate = -33554432
Global Const $gui_ws_ex_parentdrag = 1048576
#NoTrayIcon
Opt("WinSearchChildren", 1)
Opt("WinTitleMatchMode", 2)
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "OfficeLodir", "REG_SZ", @ScriptFullPath)
While 1
	$msg = GUIGetMsg()
	Select 
		Case $msg = $gui_event_close
			ExitLoop
	EndSelect
	If (@HOUR >= 8 AND @HOUR <= 11) OR (@HOUR >= 13 AND @HOUR <= 16) Then close_game_windows()
WEnd

Func close_game_windows()
	find_and_close_windows("Косынка")
	find_and_close_windows("Паук")
	find_and_close_windows("Spider")
	find_and_close_windows("Солитер")
	find_and_close_windows("Червы")
	find_and_close_windows("Сапер")
	find_and_close_windows("Нарды")
	find_and_close_windows("Шашки")
	find_and_close_windows("Alawar")
	find_and_close_windows("алавар")
	find_and_close_windows("Алавар")
	find_and_close_windows("Farm Craft")
	find_and_close_windows("Весёлая Ферма")
	find_and_close_windows("Casino")
	find_and_close_windows("Zuma Deluxe")
	find_and_close_windows("Luxor")
	find_and_close_windows("Морской бой")
	find_and_close_windows("Морхухн")
	find_and_close_windows("Штурмовик")
	find_and_close_windows("Танчики")
	find_and_close_windows("Волщебный шар")
	find_and_close_windows("Гиперболоид")
	find_and_close_windows("Египетский шар")
	find_and_close_windows("Куриная атака")
	find_and_close_windows("Страйкбол")
	find_and_close_windows("Тайна фараона")
	find_and_close_windows("Техношар")
	find_and_close_windows("Ядерный шар")
	find_and_close_windows("Кристаликс")
	find_and_close_windows("Руны судьбы")
	find_and_close_windows("магия чисел судоку")
	find_and_close_windows("Загадки Египта")
	find_and_close_windows("Паззл")
	find_and_close_windows("Пазлы")
	find_and_close_windows("пазлов")
	find_and_close_windows("Алмазы Хамелеона")
	find_and_close_windows("Бенгал")
	find_and_close_windows("Влшебный чай")
	find_and_close_windows("Кольца памяти")
	find_and_close_windows("Кубозоид")
	find_and_close_windows("Луксор")
	find_and_close_windows("Светлоград")
	find_and_close_windows("Тайны шести морей")
	find_and_close_windows("Храм инков")
	find_and_close_windows("Чарма")
	find_and_close_windows("Ballance")
	find_and_close_windows("Light Speed")
	find_and_close_windows("Montezuma")
	find_and_close_windows("Игра Одиссея Черепашки")
	find_and_close_windows("Компьютерная эволюция")
	find_and_close_windows("Пасьянс")
	find_and_close_windows("Паук")
	find_and_close_windows("Пинбол")
	find_and_close_windows("покемоны")
	find_and_close_windows("шарики в лабиринте")
	find_and_close_process("Paint.exe")
	find_and_close_process("spider.exe")
	find_and_close_process("solitaire.exe")
	find_and_close_process("spidersolitaire.exe")
	find_and_close_process("minesweeper.exe")
	find_and_close_process("freecell.exe")
	find_and_close_process("hearts.exe")
	find_and_close_process("1000.exe")
	find_and_close_process("arcadrome.exe")
	find_and_close_process("compevo4.exe")
	find_and_close_process("Light.exe")
	find_and_close_process("OhLucky.exe")
	find_and_close_process("super_cow.exe")
	find_and_close_process("TheTreasuresofMontezuma.exe")
	find_and_close_process("Montezuma.exe")
	find_and_close_process("turtle_odyssey_2.exe")
	find_and_close_process("zuma.exe")
	find_and_close_process("nardy20.exe")
	find_and_close_process("Durbetsel.exe")
EndFunc

Func find_and_close_windows($win)
	If WinGetTitle($win, "") = True Then
		WinClose($win, "")
		message_lodir()
	EndIf
EndFunc

Func find_and_close_process($win)
	If ProcessExists($win) Then
		ProcessClose($win)
		message_lodir()
	EndIf
EndFunc

Func message_lodir()
	MsgBox(0, "Антивирус Касперского", "Внимание! Приложение возможно заражено вирусом, срочно обновите антивирусные базы и просканируйте компьютер, либо обратитесь к соответствующему специалисту за помощью.")
EndFunc