Автоматическое выключение компьютера по клику - VB
Формулировка задачи:
Люди!!! Помогите! Нужен оператор, который вырубает камп.
Мне нужна кнопка на форме, после нажатия каторой камп автоматически вырубиться
Решение задачи: «Автоматическое выключение компьютера по клику»
textual
Листинг программы
- Dim strComputer As String
- strComputer = '.'
- Set objWMIService = GetObject('winmgmts:' & _
- '{impersonationLevel=impersonate,(Shutdown)}!\ ' & strComputer & '
- ootcimv2')
- Set colOperatingSystems = objWMIService.ExecQuery( _
- 'Select * from Win32_OperatingSystem')
- For Each ObjOperatingSystem In colOperatingSystems
- ObjOperatingSystem.ShutDown 'Для выключения
- 'ObjOperatingSystem.Reboot - Для перезагрузки
- Next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
