设置窗体的代码解释 Imports System.Diagnostics Public Class 设置窗体 Private shutTime As String '关机时间的字符串 Private IsToday As Boolean = True '判断是否是今天的变量 Private delay As Integer '延时多少秒放关机 Private lastTime As Integer '关机的倒计时 P rivate action As String '关机或重启或注销 Priv
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long Private Decl
'开始游戏 Private Sub Command3_Click() If Option1.Value Then Timer1.Interval = 1 Timer2.Interval = 0 Label7.Caption = "" Label1.Top = 8760 Label6.Top = 8760 Label1.Visible = True Label6.Visible = True End If If Option2.Value Then Timer2.Interval = 1 Tim
