使用VB自动关机.docxVIP

3. 整人 VB 小程序：倒计时关机 程序启动，会进入倒计时关机状态。除非用户输入特定字符（如：我是大傻瓜），否则程序不会结束。 以下代码在 VB6 调试通过。首先，在窗体放置 6 个控件，不需设置任何属性： Label1、Label2、Label3、Command1、Text1、Timer1 需修改 **** 处的关机倒计时时间 和 要求用户输入的字符 Private Declare Function ExitWindowsEx Lib user32(ByVal uFlags As Long, ByVal dwReserved As Long) AsLong Const EWX_SHUTDOWN = 1 Dim nJiShi As String, nOK As Boolean Private Declare Function SetWindowPos Lib user32(ByVal hwnd As Long, ByVal hWndInsertAfter As Long,ByValX As Long, ByVal Y As Long,ByVal cx As Long,ByVal cy As Long, ByVal wFlags As Long) As Long Private Const HWND_Top = 0 hWndInsertAfter 参数：Z 序列的顶部Private Const HWND_TopMost = -1 最上 Private Const SWP_NoSize = H1 wFlags 参数Private Const SWP_NoMove = H2 Private Const SWP_NoZorder = H4 Private Const SWP_ShowWindow = H40 Private Const SWP_HideWindow = H80 Private Sub Form_Load() Dim S nJiShi = 0:10:05 ***** 设置关机时间，可修改 Label1.AutoSize = True: Label1.Caption = 请输入正确字符，否则自动关机。你是什么人？ Label2.AutoSize = True: Label2.Caption = Label3.AutoSize = True: Label3.Caption = : Label3.ForeColor = 255 Timer1.Enabled = True: Timer1.Interval = 1000 Me.Caption = 自动关机 Text1.Text = : Command1.Caption = 确定(Y) S = Label1.Height Label2.Move S, S: Label1.Move S, S * 2.5 Text1.Move S, S * 4, S * 10, S: Label3.Move S, S *7 Command1.Move S * 8, S * 6, S * 5, S * 2 End Sub Private Sub Command1_Click() If Text1.Text =我是大傻瓜 or Text1.Text =我是大笨蛋 Then ***** 要求用户输入的字符 MsgBox 回答正确：你是大笨蛋！！！！！！！！！,vbInformation, 回答问题 nOK = True: Unload Me Else If Trim(Text1.Text) = Then Label3.Caption = 请回答问题 Else Label3.Caption = 回答错误 End If End If End Sub Private Sub Form_Unload(Cancel As Integer) If Not nOK Then Cancel = 1 End Sub Private Sub Timer1_Timer() Dim nTime As String, S As Long Call WinInTop(Me.hwnd) 使本程序显示在最前面nJiShi = DateAdd(s, -1, nJiShi) Label2.Caption = 关机到计时： nJiShi S = Format(nJiShi, hhmmss) If S 0 Then Exit Sub ExitWindowsEx EWX_SHUTDOWN, 0 nOK = True End Sub Private Sub WinInTop(hwnd As Long) Dim wAfter As Long, wFlags As Long wAfter = HWND_TopMost wFlags =