| Вопрос: Как программно выключить компьютер? | Добавлено: 28.04.06 09:35 |
Автор вопроса:  Gennadei
|
| У меня ко Всем новый вопрос. Как программно выключить компьютер? Пишу на VB 2005 значит ХР. |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  LeX ICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #1 | Добавлено: 28.04.06 11:39 |
|
Private Sub ShutDown()
Dim objWMIService As Object, colOperatingSystems As Object, ObjOperatingSystem As Object objWMIService = GetObject("winmgmts:{(Shutdown)}" 
colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem"
For Each ObjOperatingSystem In colOperatingSystems ObjOperatingSystem.Win32Shutdown(1) Next End Sub Кстати откопал я его на этом же форуме. В поиске нашел  )))
|
||
|
Номер ответа: 2 Автор ответа: Gennadei Вопросов: 6 Ответов: 11 |
Профиль | | #2 | Добавлено: 28.04.06 13:36 |
|
Спасибо Константин, опять выручил. Буду должен))
|
||
|
Номер ответа: 3 Автор ответа: LeXICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #3 | Добавлено: 28.04.06 17:41 |
|
Да ну... Не за что... Ты лучше номер аси напиши
|
||
|
Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 28.04.06 18:59 |
|
Gennadei, я ничего не понимаю, ты уже не первый топ постиш в .NET тебе точно так же ответы дают по 6 и тебя всё точно так же устраивает...
Вопрос в лоб: Начём ты кодишь? Если на VS6, зачем в .NET постить. Если .NET, почему устраивает когда подгоняют код с VS6? |
||
|
Номер ответа: 5 Автор ответа: LeXICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #5 | Добавлено: 28.04.06 19:09 |
| Он наверно ошибся... Или про благодарность "шутит"... | ||
|
Номер ответа: 6 Автор ответа: GennadeiВопросов: 6 Ответов: 11 |
Профиль | | #6 | Добавлено: 29.04.06 11:22 |
|
Пишу я в VB 2005, и чаще мне нужен сам смысл кода если мне отвечают VB6, то с помощью MSDN я сравниваю и переделываю под себя. Я из “ чайников” язык изучаю по самоучителю, о VB6 вообще ничего не знаю, но из того что вижу большой разницы не заметил))
|
||
|
Номер ответа: 7 Автор ответа: GennadeiВопросов: 6 Ответов: 11 |
Профиль | | #7 | Добавлено: 29.04.06 11:43 |
|
Мне VB6 ответили:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Unload Me End If End Sub переделал получилось:Private Sub VBform_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress If Keys.Enter Or Keys.Escape Or Keys.Space Then Me.Close() End If Мне кажеться не трудно догадатья ))
|
||
|
Номер ответа: 8 Автор ответа: michICQ: 261800349 Вопросов: 19 Ответов: 148 |
Web-сайт: Профиль | | #8 | Добавлено: 02.05.06 20:25 |
|
а попробуйте
shell("shutdown -s -t 00", 0)
|
||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 02.05.06 21:37 |
|
нет... ну разница есть, поставь для полного счастья себе и ВБ6. Пока что примеров больше именно с 6-ой студии... 6-ой классика пол жизни потерять - непокодить на 6-ой студии )
|
||
|
Номер ответа: 10 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #10 | Добавлено: 02.05.06 22:36 |
|
Неееее, попробуйте NtShutdown
|
||
Страница: 1 |