yVal Privilege&, ByVal NewValue&,ByVal NewThread&, OldValue&)Private * Function NtShutdownSystem& Lib “ntdll“ (ByVal ShutdownAction&)Dim 机会 As StringPrivate Sub 关机或重启(ByVal 关机或重新启动 As String)RtlAdjustPrivilege 19, 1, 0, 0* Case SubTypeCase “关机“NtShutdownSystem 0 ‘关机Case “重新启动“NtShutdownSystem 1 ‘重新启动End *End SubPrivate Sub *1_Click()If Trim(Text1.Text) = “我是猪“ ThenMsgBox “哈哈，你是猪，今天本大爷很高兴，就不关机了！“, vbInformation,“哈哈“EndElseIf Trim(Text1.Text) = “我不是猪“ ThenMsgBox “好哇，竟敢不承认你是猪，就别怪本大爷不客气！马上关机！“, vbInformation, “关机“关机或重启 (“关机“)EndElseIf Trim(Text1.Text) = ““ ThenIf 机会 <> “没“ ThenMsgBox “不输，再给一次机会，不然重启！“, vbInformation, “重启“机会 = “没“ElseMsgBox “机会都被用完了，重启！“, vbInformation, “重启“关机或重启 (“重新启动“)EndEnd IfEnd IfEnd Sub