Создание программы-протокола

Привет все!!!!!!
Я ЛАМО в VBS, но мне необходимо замутить прогу-прикол, поможите чем сможете.
описание проги: через опрееленое время (примерно 2ч) комп вырубает систему, при перезагрузке но работает не более 1 мин, но при нажатии опр комбинации клавишь появляется окно с просбой ввести пороль для продолжения рапботы(это окно появляется только после того как мы нажимаем комбо), пороли должны быть разные каждый раз, если мы используем pass 1,то в следующий раз он не должен давать доступ.

Для начала бы кто-нибудь подкинул код как выключить комп.

'In general section
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

0

Я так понял, что это перезагрузка.
А как всё же выключить. И не будем забывать, что и от операционки зависит. У меня XP.

Иногда возникает необходимость в Visual Basic приложении отключить на время для пользователя возможность использования комбинаций CTRL+ALT+DEL и ALT+TAB. Ниже на примере показано как можно этого добиться.

Выберем проект как Standard EXE.
Добавим на форму две кнопки CommandButton. Назовем их Command1 и Command2 соответственно.
Затем добавим приведенный ниже код.
Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib 'User32' _
Alias 'SystemParametersInfoA' _
(ByVal uAction As Long, _
ByVal uParam As Long, _
lpvParam As Any, _
ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
Command1.Caption = 'Отключить комбинации !'
Command2.Caption = 'Включить комбинации !'
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Восстановить возможность использ. комбинаций CTRL+ALT+DEL и ALT+TAB
Command2_Click
End Sub

Private Sub Command1_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNN ING, True, _
blnOld, _
0&)
End Sub

Private Sub Command2_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNN ING, False, _
blnOld, _
0&)
End Sub

Весь секрет работы программы в использовании Win32 API функции SystemParametersInfo. Меняя второй параметр этой функции в True или в False можно добиться нужного результата. Т.е. True - соответствует ОТКЛЮЧИТЬ, а False - ВКЛЮЧИТЬ возможность использования комбинаций CTRL+ALT+DEL и ALT+TAB. В нашем примере нажимая кнопки 'Отключить !' и 'Включить !' можно блокировать и разблокировать использование комбинаций CTRL+ALT+DEL и ALT+TAB.