|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.11.2011, 18:54 | #1 |
Пользователь
Регистрация: 23.09.2009
Сообщений: 46
|
Пишем WinLocker на VB [статья]
В этой статье я расскажу, как написать простенький локер, что называется, на коленке.
Приложение будет состоять из 3-х файлов: 1. VBS-скрипта для убийства процессов. 2. Библиотеки для установки позиции окна HTML-приложения поверх всех окон. 3. HTML-приложения для растяжки во весь экран. Ready - Steady - Go Начнем с киллера процессов. Открываем блокнот. Я использую Notepad++. Пишем простенький код: Код:
Скрипт каждую секунду мониторит появление процессов и убивает свежие. Можете попробовать запустить. Предварительно рекомендую запустить диспетчер задач, для того, чтобы благополучно убить процесс wscript.exe. После запуска скрипта использовать дистпетчер задач не получится. Становится понятно для чего нам нужен этот скрипт . Продолжаем. Зачем нам понадобилось писать библиотеку? Из VBS получить дескриптор окна не реально, а он нам очень нужен для того, чтобы установить позицию окна поверх всех окон, поэтому создадим так называемый Wrapper - библиотеку, которая поможет нам использовать API-функции из скрипта. Для получения хэндла используем функцию FindWindow из библиотеки user32.dll, для установки позиции окна поверх всех - функцию SetWindowPos, а для запрета использования клавиатурного сочетания Alt+F4 - функцию RegisterHotKey из той же библиотеки. Открываем IDE VB6, создаем проект ActiveX DLL, называем проект WinLocker, класс - WLClass, пишем несложный код: Код:
|
11.11.2011, 18:57 | #2 |
Пользователь
Регистрация: 23.09.2009
Сообщений: 46
|
Продолжение
Завершаем. Пишем HTA. Открываем блокнот. Пишем код:
Код:
SINGLEINSTANCE="yes" - запрещает одновременный запуск одноименных HTA showInTaskbar="no" - запрещает отображение приложения в панели задач BORDER="none" - убирает границу окна приложения SCROLL="no" - убирает скролл Сохраняем файл с расширением HTA. Наш локер готов. Что получилось - на скриншоте ниже и во вложении. |
12.01.2012, 19:30 | #3 |
Новичок
Джуниор
Регистрация: 12.01.2012
Сообщений: 1
|
Пока не палитсо !!!
Нижняя панель не скрылась и пуск, проводник работает. Последний раз редактировалось чегевара21; 12.01.2012 в 19:56. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Пишем программу | Mistin | Общие вопросы Delphi | 3 | 26.05.2011 19:52 |
Пишем свой класс | Claster | Помощь студентам | 0 | 18.05.2011 18:19 |
Статья: Низкоуровневое сетевое программирование. Пишем клиент/серверное приложение на сокетах Беркли | oleg kutkov | C/C++ Сетевое программирование | 42 | 22.01.2011 00:35 |