| Вопрос: завершение сеанса 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 |
|
Public Sub Shutdown()
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 |
|
Код стар как сама жизнь на земле, хоть бы strComputer , для приличия кто-нибудь убрал, зачем он там, не уж то точку трудно написать
|
||
Страница: 1 |