Страница: 1 |
Страница: 1 |
Вопрос: завершение сеанса windows
Добавлено: 12.03.07 11:53
Автор вопроса: sasha
Подскажите пожалуйста как с помощью vb завершить сеанс работы windows.
Допустим при открытом и не сохраненном документе word при использовании этого кода -
Call ExitWindowsEx(EWX_FORCE Or EWX_LOGOFF, 0)
винда не завершает работу.
Или подскажите как завершить терминальную сессию (удаленный рабочий стол).
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
Bonapart
ICQ: 175256
Вопросов: 32
Ответов: 108
Web-сайт:
Профиль | | #1
Добавлено: 12.03.07 12:28
Acerace.narod.ru/project.rar
Потом просто все процессы перебей и ExitWindowsEx(EWX_FORCE Or EWX_LOGOFF, 0) работать начнёт
Номер ответа: 2
Автор ответа:
sasha
Вопросов: 9
Ответов: 4
Профиль | | #2
Добавлено: 12.03.07 12:40
а вот как сделать чтоб процессы не прибивать...
Номер ответа: 3
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #3
Добавлено: 12.03.07 15:22
Set a = GetObject("WINMGMTS:{impersonationLevel=impersonate, (Shutdown)}!\\.\root\cimv2"
Set colOperatingSystems = a.ExecQuery("Select * from Win32_OperatingSystem"
For Each ObjOperatingSystem In colOperatingSystems
ObjOperatingSystem.Shutdown
Next
End Sub
Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, _
(Shutdown)}!\\" & strComputer & "\root\cimv2"
Set colOperatingSystems = objWMIService.ExecQuery( _
"Select * from Win32_OperatingSystem"
For Each ObjOperatingSystem In colOperatingSystems
ObjOperatingSystem.Reboot ' Для перезагрузки
Next
Номер ответа: 4
Автор ответа:
Patriot
ICQ: 439168318
Вопросов: 5
Ответов: 50
Профиль | | #4
Добавлено: 12.03.07 22:58
Код стар как сама жизнь на земле, хоть бы