Цитата DemchaAV:
|
что мне делать с кодировкой пробовал абракадабра киллер не помогло »
|
Зачем вам киллер какой-то? Используйте файл из сообщения
#5
Цитата DemchaAV:
|
а можно ли ещё добавить звуковое уведомление »
|
Код:
Option Explicit
Dim oShell, retCode, WshShell
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "wmplayer """ & "C:\Windows\Media\tada.wav" & """",0,True
retCode = oShell.Popup("Выключить компьютер?", 60, "Подтверждение выключения", 4 + 32)
Select Case retCode
case 6, -1
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "C:\WINDOWS\system32\shutdown.exe -s"
case 7
WScript.quit(1)
End Select
Но это пожалуй последнее, а то через пять минут вы захотите чтоб оно еще кофе варило.
