VB开发的关机小程序 (vb6.0永远的神)

需求:
公司域控有的更新需要电脑关机 强制关机的命令是可以推, 但太暴力. 设想推一个exe提示用户保存资料 有个倒计时倒计时到了就关机.

设计:
vb歪嘴战神不请自来
窗口1. 作为入口 visible设为false, 使程序为后台进程 (防止懂得的轻易在任务管理器关掉)

加timer 一分钟执行一次更新一个全局变量 剩余分钟数 当分钟数为零 关机

窗体2 ,可以下拉列表选推迟30 60分钟, 或ok. 选推迟会更新窗体1里的全局变量

窗体3, 在窗体1 倒计时到10分钟时展示. 一直展示到为0

secondLast  = 60*10 
Private Sub Timer1_Timer()
    secondLast = secondLast - 1
    lbMinute.Caption = Int(secondLast / 60)
    lbSecond.Caption = secondLast Mod 60
    If Int(secondLast / 60) = 0 Then
        lbSecond.ForeColor = vbRed
    End If
End Sub

顺带 窗体无关闭按钮 可拖动 一直最前端 发邮件
真的是急速开发