VB自动关机
以下是本人自制的自动关机小程序,由VB编写,仅供菜鸟参考,高手请绕道吧! 本程序能在XP,win7等等系统下使用
主界面如下:
这是from1
要是您觉得不好看,完全可以自己设置的,只是我做的有点匆忙,所以没有考虑皮肤。
这是from2
这是from3
代码在下面,菜鸟可以直接复制啊,改一改就可以用了,想要源代码的联系我
QQ吧,下面有。
下面是参考程序:
在from1里面:
Option Explicit
Dim a, b, c, hh, mm, ss As Integer
Dim sum, time1, aa As Long
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
sum = a * 3600 + b * 60 + c If Command1.Caption = "开启" Then
Command1.Caption = "取消"
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
If Label3.Caption = "小时" Then
If sum <= 0 Then
MsgBox ("猪,你输错时间了~")
Unload Me
Me.Show
Else
Timer2.Enabled = True
Timer2.Interval = 1000
End If
Else
If a >= 0 And a <= 24 And b >= 0 And b <= 59 And c >= 0 And c <= 59 Then
Timer2.Enabled = True
Timer2.Interval = 1000
Else
MsgBox ("笨蛋,有这时间吗,")
Unload Me
Me.Show
End If
End If
Else
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text2.SetFocus
Command1.Caption = "开启"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Timer2.Enabled = False End If
End Sub
Private Sub Command2_Click() Form3.Show
End Sub
Private Sub Command3_Click() Unload Form1
Unload Form2
Form1.Show
End Sub
Private Sub Command4_Click() End
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label3.Caption = "小时"
Label4.Caption = "分"
Label5.Caption = "秒"
Label6.Caption = "后将自动关机"
Label7.Caption = "倒计时模式:请输入倒计时间" Text2.SetFocus
End Sub
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label3.Caption = ":"
Label4.Caption = ":"
Label5.Caption = "" Label6.Caption = "将自动关机"
Label7.Caption = "定时模式:请输入自动关机时间" Text2.SetFocus
End Sub
Private Sub Form_Activate()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True Text2.SetFocus
End Sub
Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 Timer2.Enabled = False Label2.FontSize = 15 Form1.Left = Screen.Width / 2 - Form1.Width / 2
Form1.Top = Screen.Height / 2 - Form1.Height / 2
Form1.Picture = Nothing End Sub
Private Sub Timer1_Timer()
Label1.FontSize = 15
Label1.Caption = Time
If Timer2.Enabled = True Then
Label10.Caption = "已开启"
Else
Label10.Caption = "未开启"
End If
End Sub
Private Sub Timer2_Timer()
If Label3.Caption = "小时" Then
If sum <= 0 Then
Form2.Show
Timer2.Enabled = False
Command1.Caption = "开启"
Else
Text1.Text = Str(sum \ 3600)
Text2.Text = Str((sum Mod 3600) \ 60)
Text3.Text = Str((sum Mod 3600) Mod 60)
End If
sum = sum - 1
Else
hh = Hour(Now)
mm = Minute(Now)
ss = Second(Now)
time1 = hh * 3600 + mm * 60 + ss
aa = sum - time1
If aa <= 0 Then
Form2.Show
Timer2.Enabled = False
Command1.Caption = "开启"
Else
Label8.Caption = "提示:" & "距离自动关机还有" & aa \ 3600 & "小时" & (aa Mod 3600) \
60 & "分钟" & (aa Mod 3600) Mod 63 & "秒"
End If
End If
End Sub
在from2里面:
Dim i As Integer
Private Sub Command1_Click() Timer1.Enabled = False
Form2.Hide
Form1.Show
Unload Form1
Form1.Show
Unload Form2
End Sub
Private Sub Command2_Click()
Shell "shutdown -s -t 0" End Sub
Private Sub Command3_Click() End
End Sub
Private Sub Form_Load() Timer1.Enabled = True
Timer1.Interval = 1000
Form2.Left = Screen.Width / 2 - Form2.Width / 2
Form2.Top = Screen.Height / 2 - Form2.Height / 2
i = 20
Label2.FontSize = 45
End Sub
Private Sub Timer1_Timer() i = i - 1
If i <= 0 Then
Shell "shutdown -s -t 0" Else
Label2.Caption = i
End If
End Sub
在from3里面:
Private Sub Form_Load() Form3.Left = Screen.Width / 2 - Form3.Width / 2
Form3.Top = Screen.Height / 2 - Form3.Height / 2
End Sub
里面的图片是自己PS后贴上去的
使用说明:
有问
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
请联系QQ454203077(谷雨)
使用说明:
1.最好将杀毒软件关掉。原因是执行关机代码时会被杀毒软件询问是否阻止,如果您长时间不作选择,就不能自动关机(没办法,斗不过杀毒的 = =)。
2.也可以不关掉杀毒软件,但是先试用一次,在杀毒软件询问是否阻止关机的时候,选择不阻止,并且勾选以后不再提示选项,就可以了(如果没这选项的,只好用第一种办法了)。
3.本程序是.exe的,双击或右键打开即可以使用。
3.程序可能有很多漏洞,如果您发现,请联系我,谢谢~
写给亲爱的猪 (*^__^*) 嘻嘻
【原创作品,翻版不究】