Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 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-сайт: team16.tut.su
 Профиль | | #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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам