Блокировка работы пользователя во время выполнения программы

[Tathagata]

Подскажите, господа.
Нужен, собственно, способ реализации сабжа.
При этом интересно решение как для vb, так и для vbscript.

[Snussi]

Делаем так

Код: Выделить всё

sub SuperWork
    frmUser.enabled=false ' Блокируем форму, в которой пользователь тыкает кнопки и все другое

    doevents ' На всякий случай, чтобы это применилось к форме.

   ' ....   Наши операции

   frmUser.enabled=true ' Обратно разблокируем

end sub


В VBScript - а зачем (по моему, это для ASP язык)

Кажись так

[Tathagata]

Делаем так

Код: Выделить всё

sub SuperWork
    frmUser.enabled=false ' Блокируем форму, в которой пользователь тыкает кнопки и все другое
    doevents ' На всякий случай, чтобы это применилось к форме.


Не совсем то. Хотелось бы что-то вроде радикального

rundll32 user,enableoemlayer
rundll32 user,disableoemlayer

При входе пользователя в систему запускается сценарий который выполняет ряд действий. Так вот, хотелось бы во время выполнения сценария не дать возможноть пользователю запускать приложения и работать в них.

В VBScript - а зачем (по моему, это для ASP язык)
Кажись так

Ха...

[tyomitch]

Это можно реализовать через хук типа WH_JOURNALPLAYBACK и проигрывая "пустую" запись. Я так делал, но готового кода под руками нет.

[Tathagata]

А можно ли хуки заставить работать в Vbscript?

[alibek]

Можно написать ActiveX DLL, в котором будет реализован хук, и вызывать эту DLL из кода VBScript. А в чистом виде в VBS недоступны API-функции.

[Tathagata]

Тогда проще использовать dynwrap.dll
чем писать самому.

[SAS]

Тогда проще использовать dynwrap.dll
чем писать самому.

Может поможете мне использовать этот dynwrap.dll?
http://bbs.vbstreets.ru/viewtopic.php?p=140470#140470

[JohnCR]

Можно попробовать сделать так:

Код: Выделить всё

'У формы можно поставить BorderStyle = 0
'и Startup Position = 2
'А фоном картинку какую-нить красяфскую...
Private Declare Function BlockInput Lib "User32" (ByVal fBlock As Long) As Long
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_SHOWWINDOW = &H40
Private Sub Form_Load()
Dim Lab As VB.Label
    App.TaskVisible = False
    Set Lab = Controls.Add("VB.Label", "Lab1", Me)
    'сделаем окно постоянно активным
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    Lab.Move 0, 0
    Lab.Font.Size = 36
    Lab.Caption = "Please wait..."
    Lab.AutoSize = True
    Lab.Visible = True
    Me.Width = 5000
    Me.Height = 1500
    BlockInput True 'блокируем клавиатуру и мышку
    'выполняем то, что нужно
    '...
    '
    BlockInput False 'включаем клавиатуру и мышку
    'End
End Sub

[Twister]

BlockInput

Работает до первого нажатия ALT+CTRL+DELETE. Т.е. пользователь жмет один раз 3 клавиши и продолжает хозяйнячать...

[Twister]

Я знаю как заблокировать клаву, но код на Делфи, а переводить лень. Могу скинуть.

Ну а мышь заблокировать вообще легко (этот способ ломотский конечно, но работает) - по таймеру (interval=1) перемещай курсор в нижний правый угол экрана...

[JohnCR]

В 9х Ctrl+Alt+Del можно отключить, а в НТ это никак не обойти, разве что развернуть форму на весь экран, чтобы ничего не было видно ).

[Twister]

Но можно свою прогу из Диспетчера убрать (даже в XP)...

[JohnCR]

Если окно диспетчера задач будет закрыто твоей программой, это будет проблематично сделать. )

[Twister]

Если окно диспетчера задач будет закрыто твоей программой, это будет проблематично сделать. )

Попробуй в ХР нажать три клавиши. Что ты видишь? Ты говоришь о перекрытии своей формой окна системного Диспетчера или Безопасность Windows? Пользователь все равно сможет вызвать одно из вышеперечисленных окон, и если свою прогу не скрыть из списка процессов (или не заблокировать Диспетчер, но ее можно будет найти какой нибудь другой утилитой), то пользователь сможет помешать работе проги (закроет ее например). Вопрос стоит в другом (как я понял): нужно заблокировать все способы ввода информации (клава, мышь) и заблокировать Диспетчер...

[JohnCR]

Конечно, я имею ввиду перекрытие своей программой окна диспетчера (taskmgr.exe). Не увидев его, не сможешь ничего завершить...

[A.A.Z.]

А если у юзера стоит не диспетчер, а, скажем, ProcessExplorer от Sysinternals (довольно распространенное явление)?

[JohnCR]

A.A.Z.
Какая разница? Счас пример накатаю... )) Пять сек.. ))

[Twister]

А если у юзера стоит не диспетчер, а, скажем, ProcessExplorer от Sysinternals (довольно распространенное явление)?

Посмотри этот примерчик, никакой ProcessExplorer не найдет прогу...

[A.A.Z.]

Это я видел Речь-то у вас ведь вроде шла о том, что не давать юзеру его _открыть_

[Twister]

Речь-то у вас ведь вроде шла о том, что не давать юзеру его _открыть_

Не давать открыть или не показать процесс в списке, какая разница - главное результат...

[JohnCR]

Вот, завершайте: )

[Twister]

Жаль не могу ЩАС посмотреть - басик не стоит, что там?

[JohnCR]

там ехе есть )

[Twister]

аааа...
ща заберу...

[Twister]

2 JohnCR
Знаешь - просто, но со вкусом!!! Я хочу сказать что мне пришлось комп перегрызть чтоб выключить эту пакость...

Я как раз сейчас занимаюсь разработкой своего Диспетчера, надо в нем предусмотреть защиту от подобных фишек...