说明: 自己写的关机代码 Dim h As Long Dim m As Long Dim s As Long Dim timeremain As Long Private Sub Form_Load() red.Checked = False green.Checked = False blue.Checked = False Shell "c:\windows\system32\shutdown.exe -a" End Sub Private Sub blue_Click() red.Checked
<qq_30846629> 上传 | 大小:70kb