Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / блокировка управления / 7 сообщений из 7, страница 1 из 1
19.02.2007, 11:56
    #34340443
jhonkuk
jhonkuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
блокировка управления
Кто-рить делал блокировку клавы и мыши, хотя можно и что-то другое. Задача в том, чтоб комп у юзера блокировался каждый час на 10-15 мин. Типа, хорош глаза ломать, вали перекури.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.02.2007, 12:45
    #34340618
Aklin
Aklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
блокировка управления
на VB под винду никак, разве что грузить проц по жуткому, н о и то не поможет, ибо есть ALT+CTRL+DEL + убить приложение.

можно пробовать сделать поверх всех окон + таймер на SHOW.
но все равно убивается. но мешает конкретно.

да и антивири могу тен позволить

аффтопитезь: объект либо именован, либо не существует
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.02.2007, 13:03
    #34340691
jhonkuk
jhonkuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
блокировка управления
А перехват нажатия клавиш не поможет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.02.2007, 13:40
    #34340832
Nikz
Nikz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
блокировка управления
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
    BlockInput True
    Sleep  10000 
    BlockInput False
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.02.2007, 14:53
    #34341135
Aklin
Aklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
блокировка управления
Nikz
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
    BlockInput True
    Sleep  10000 
    BlockInput False
End Sub


блок своих входящих?
не поможет, ибо несколько секунд тупо кликать на зваисшее приложение и оно обьявится "не отвечающим". далее заодим в таскмгр и убиваетм его.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.02.2007, 14:59
    #34341158
jhonkuk
jhonkuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
блокировка управления
Nikz, хороший код. А вот как я решил поиздеваться на юзером :-) Срабатыет на 50-ой мин., Держит 10 мин. и так каждый час.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.02.2007, 17:39
    #34341942
Nikz
Nikz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
блокировка управления
Aklin Nikz...
блок своих входящих?
не поможет, ибо несколько секунд тупо кликать на зваисшее приложение и оно обьявится "не отвечающим". далее заодим в таскмгр и убиваетм его.
блок всех входящих =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / блокировка управления / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 451ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164479]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 150ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 218ms
total:  451ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]