【VB开源代码栏目提醒】:本文主要为网学会员提供“整人VB小程序 - 讲义教程”,希望对需要整人VB小程序 - 讲义教程网友有所帮助,学习一下!
整人
VB 小程序:倒计时关机
程序启动,会进入倒计时关机状态。
除非用户输入特定字符(如:我是大傻瓜),否则程序不会结束。
以下
代码在
VB6 调试通过。
首先,在窗体放置 6 个控件,不需设置任何属性: Label1、Label2、Label3、Command1、Text1、Timer1需修改 处的关机倒计时时间 和 要求用户输入的字符Private Declare Function ExitWindowsEx Lib user32 ByVal uFlags As LongByVal dwReserved As Long As LongConst EWX_SHUTDOWN 1Dim nJiShi As String nOK As BooleanPrivate Declare Function SetWindowPos Lib user32 ByVal hwnd As LongByVal hWndInsertAfter As Long ByVal X As Long ByVal Y As Long ByValcx As Long ByVal cy As Long ByVal wFlags As Long As LongPrivate Const HWND_Top 0 hWndInsertAfter 参数:Z 序列的顶部Private Const HWND_TopMost -1 最上Private Const SWP_NoSize H1 wFlags 参数Private Const SWP_NoMove H2Private Const SWP_NoZorder H4Private Const SWP_ShowWindow H40Private Const SWP_HideWindow H80Private 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 2End SubPrivate Sub Command1_Click If Text1.Text 我是大傻瓜 or Text1.Text 我是大笨蛋 Then 要求用户输入的字符 MsgBox 回答正确: 你是 大笨蛋! !!!!!!!! vbInformation回答问题 nOK True: Unload Me Else If TrimText1.Text Then Label3.Caption 请回答
问题 Else Label3.Caption 回答错误 End If End IfEnd SubPrivate Sub Form_UnloadCancel As Integer If Not nOK Then Cancel 1End SubPrivate Sub Timer1_Timer Dim nTime As String S As Long Call WinInTopMe.hwnd 使本程序显示在最前面 nJiShi DateAdds -1 nJiShi Label2.Caption 关机到计时: nJiShi S FormatnJiShi hhmmss If S 0 Then Exit Sub ExitWindowsEx EWX_SHUTDOWN 0 nOK TrueEnd SubPrivate Sub WinInTophwnd As Long Dim wAfter As Long wFlags As Long wAfter HWND_TopMost wFlags SWP_NoSize SWP_NoMove SetWindowPos hwnd wAfter 0 0 0 0 wFlagsEnd Sub