VBNet - Форум - Учетные записи Windows

Вопрос: Учетные записи Windows Добавлено: 17.12.08 12:07

Автор вопроса: Svsit

Подскажите, как определить имя активного пользователя в системе, и как принудительно выйти из соответствующей учетной записи. Или подскажите как с самого начала работы ОС заблокировать опеределенную учетную запись (ограниченную в правах).

Программа уже есть и работает как служба Windows, просто надо добавить соответстующий модуль.
Заранее спасибо.
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: Isage.ru Вопросов: 3 Ответов: 38	Профиль \| Цитата \| #1	Добавлено: 17.12.08 12:15
	Сдаётся мне милок ты вирус пишешь? Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long Private Sub Form_Load() Dim sBuffer As String Dim lSize As Long sBuffer = Space$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) MsgBox Left$(sBuffer, lSize), , "Активный пользователь:" End Sub Ответить

Номер ответа: 2 Автор ответа: Isage.ru Вопросов: 3 Ответов: 38	Профиль \| Цитата \| #2	Добавлено: 17.12.08 12:26
	Для того что бы завершить сеанс пользователя надо: Навести мышку на кнопку пуск, произвести одинарный щелчок левой кнопкой, выбрать пункт :"завершить сеанс пользователя ....$NameUser" или написать вот такой кодик! Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Sub Form_Load() ExitWindowsEx 0, 0 'Выгружает пользователя End Sub Ответить

Номер ответа: 3 Автор ответа: Isage.ru Вопросов: 3 Ответов: 38	Профиль \| Цитата \| #3	Добавлено: 17.12.08 12:31
	А заблокировать программно не риально. Если только при загрузке ос проверять на наличие одобренного пользователя. Алгоритм: Стартует рабочий стол. Загружается программа. Блокируется мышка и клава. Проверяется разрешение на вход пользователя. Если разрешено разблокировываем пользователя. Но если нет,то выключаем комп (ну или что там хочешь)! Ответить

Номер ответа: 4 Автор ответа: Yanex ICQ: 387761649 Вопросов: 32 Ответов: 169	Web-сайт: Progr.Do.am Профиль \| Цитата \| #4	Добавлено: 17.12.08 14:01
	Довольно странное решение. И оно отлично лечится методом "безопасного режима". Может, лучше, пароль на аккаунте сменить? Тогда уж точно заблокируется Ответить

Номер ответа: 5 Автор ответа: Svsit Вопросов: 5 Ответов: 3	Профиль \| Цитата \| #5	Добавлено: 18.12.08 17:40
	Спасибо за информацию. Пишу не вирус, а программу для того что бы детишки на уроке информатики в школе не шалили. Играть уже не могут. Только осталось с учетными записями проблему решить (стирают файлы у друг друга). Если пароли выдавать не вход в систему - или забудут, или будут знать их все. Детишки!!! Ответить

Номер ответа: 6 Автор ответа: Imperial Kashak ICQ: 479713821 Вопросов: 10 Ответов: 57	Профиль \| Цитата \| #6	Добавлено: 21.01.09 20:29
	Детишки... А хорошую пищу для размышления дали, товарищ! )) Загорелся идеей ) Ответить

Страница: 1 |