Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Помогите s perezagruzkoi PLEASE!! Добавлено: 18.03.03 22:51  

Автор вопроса:  F@R@ | Web-сайт: www.fara-studio.narod.ru
Не могу понять как на VB сделать, чтобы комп перезагрузился.Кто поможет? ПЛИЗ

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 JBit



Вопросов: 0
Ответов: 8
  Профиль | | #1 Добавлено: 18.03.03 23:54

Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Флаги не помню, извини.

Кстати под WinXP слышал о проблемах с перезагрузкой, но на практике не проверял.

Ответить

Номер ответа: 2
Автор ответа:
 P



ICQ: 346632205 

Вопросов: 5
Ответов: 86
  Профиль | | #2 Добавлено: 19.03.03 00:13

Что-то типа этого:

Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4

Public Function RF()
Dim s As Long
' Reboot Force , т.е. без запроса на сохранение данных
s = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Function

Public Function SF()
Dim s As Long
' Shut down Force, т.е. без запроса на сохранение данных
s = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
End Function

Public Function Reboot()
Dim s As Long
s = ExitWindowsEx(EWX_REBOOT, 0&;) 'Reboot
End Function

Public Function ShutDown()
Dim s As Long
s = ExitWindowsEx(EWX_SHUTDOWN, 0&;) ' Shut down
End Function

Ответить

Страница: 1 |

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



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