Можно ли сделать на VB так, чтобы программа самостоятельно перезагружала компьютер. Кто знает подскажите. Очень надо.
Заранее спасибо!!!
Перезагрузка компьютера из VB
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 9
• Страница 1 из 1
- Realjin
- Начинающий
- Сообщения: 5
- Зарегистрирован: 01.01.2006 (Вс) 14:29
Перезагрузка компьютера из VB
Realjin » 01.01.2006 (Вс) 14:38
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 01.01.2006 (Вс) 17:04
keks-n писал(а):Под Win9x/Me only.
Да неужели?
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
- GPP
- Постоялец
-
- Сообщения: 351
- Зарегистрирован: 02.11.2005 (Ср) 8:02
- Откуда: г.Невельск о.Сахалин
GPP » 01.01.2006 (Вс) 18:31
Function rebootnow() 'Перезагружаем компьютер используя WMI
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
End Function
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
End Function
GPP(c) Gorlo Pavel Programming
- HotKitten
- Дятил
-
- Сообщения: 400
- Зарегистрирован: 24.01.2005 (Пн) 21:48
- Откуда: из дома
HotKitten » 02.01.2006 (Пн) 1:12
надо ето положить в FAQ
http://bbs.vbstreets.ru/viewtopic.php?t=13568&highlight=shutdown
http://bbs.vbstreets.ru/viewtopic.php?t=13568&highlight=shutdown
Сообщений: 9
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, SemrushBot, Yandex-бот и гости: 180