Добавить возможность завершения/закрытия скрипта (PureBasic)
Здравствуйте.
Есть скрипт на языке программирования PureBasic
Что делает при запуске: просто вывести поверх рабочего стола большое чёрное окно без рамок, при этом завершить/закрыть скрипт нельзя - ни нажатием кнопок мышки (левая, правая, колесо), ни шевелением мышки, ни нажатием кнопок на клавиатуре
ExamineDesktops()
OpenWindow(0, 0, 0, DesktopWidth(0), DesktopHeight(0), #Empty$, #PB_Window_BorderLess)
StickyWindow(0, #True)
ShowCursor_(#False)
StartDrawing(WindowOutput(0))
Box(0, 0, OutputWidth(), OutputHeight(), 0)
StopDrawing()
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
Нужно добавить возможность завершения скрипта:
1) один раз нажать F4
или
2) два раза нажать F4
или
3) нажать и держать (длинное=долгое нажатие) F4
или
4) щелчок правой кнопкой мышки
или
5) щелчок левой кнопкой мышки
Есть скрипт на языке программирования PureBasic
Что делает при запуске: просто вывести поверх рабочего стола большое чёрное окно без рамок, при этом завершить/закрыть скрипт нельзя - ни нажатием кнопок мышки (левая, правая, колесо), ни шевелением мышки, ни нажатием кнопок на клавиатуре
ExamineDesktops()
OpenWindow(0, 0, 0, DesktopWidth(0), DesktopHeight(0), #Empty$, #PB_Window_BorderLess)
StickyWindow(0, #True)
ShowCursor_(#False)
StartDrawing(WindowOutput(0))
Box(0, 0, OutputWidth(), OutputHeight(), 0)
StopDrawing()
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
Нужно добавить возможность завершения скрипта:
1) один раз нажать F4
или
2) два раза нажать F4
или
3) нажать и держать (длинное=долгое нажатие) F4
или
4) щелчок правой кнопкой мышки
или
5) щелчок левой кнопкой мышки