Программа блокирует самые распространённые офисные игры в рабочее время с 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