Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 624
от 08.10.2007, 11:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 287, Экспертов: 39
В номере:Вопросов: 1, Ответов: 3


Вопрос № 104126: Здравствуйте, уважаемые! Скажите пожалуйста, как (желательно API функцией) можно отправить машину на перезагрузку (ну или просто выключить). Какие параметры API функции должны быть? Заранее СПАСИБО!...

Вопрос № 104.126
Здравствуйте, уважаемые! Скажите пожалуйста, как (желательно API функцией) можно отправить машину на перезагрузку (ну или просто выключить). Какие параметры API функции должны быть? Заранее СПАСИБО!
Отправлен: 03.10.2007, 10:56
Вопрос задал: Орлов Владимир Артемьевич (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: QDSota
Здравствуйте, Орлов Владимир Артемьевич!

Примерно так:

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
'reboot the computer
ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub

---------
Открыть глаза навстречу солнцу
Ответ отправил: QDSota (статус: Профессионал)
Тел.: 8-916-53-43-916
ICQ: 84611301
----
Ответ отправлен: 03.10.2007, 11:21
Оценка за ответ: 5
Комментарий оценки:
Спасибо! Попробую использовать.

Отвечает: PsySex
Здравствуйте, Орлов Владимир Артемьевич!
Ответ предыдущего эксперта корректно работает, если я не ошибаюсь, под ОС версии 9х, я вам предлагаю для 2k и выше.

Приложение:

---------
Bom Shankar!

Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 03.10.2007, 13:14
Оценка за ответ: 5
Комментарий оценки:
Спасибо за ответ. Попытаюсь разобраться.

Отвечает: Черников Игорь Владимирович
Здравствуйте, Орлов Владимир Артемьевич!
Как перезагрузить Windows
 Разместите в модуле:
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

А это в коде:
   Dim s As Long   
   s = ExitWindowsEx(EWX_SHUTDOWN, 0&)   'Так можно сделать Shut down
   s = ExitWindowsEx(EWX_LOGOFF, 0&) 'Так можно сделать Log off
   s = ExitWindowsEx(EWX_REBOOT, 0&) 'А так Reboot

---------
От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 6-ой класс)
Ответ отправлен: 03.10.2007, 19:15
Оценка за ответ: 5
Комментарий оценки:
Спасибо! Это как раз то, что я хотел узнать.


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.60.10 от 27.09.2007
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное