首页 VB自动关机

VB自动关机

举报
开通vip

VB自动关机VB自动关机 以下是本人自制的自动关机小程序,由VB编写,仅供菜鸟参考,高手请绕道吧! 本程序能在XP,win7等等系统下使用 主界面如下: 这是from1 要是您觉得不好看,完全可以自己设置的,只是我做的有点匆忙,所以没有考虑皮肤。 这是from2 这是from3 代码在下面,菜鸟可以直接复制啊,改一改就可以用了,想要源代码的联系我 QQ吧,下面有。 下面是参考程序: 在from1里面: Option Explicit Dim a, b, c, hh, mm, ss As Intege...

VB自动关机
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.程序可能有很多漏洞,如果您发现,请联系我,谢谢~ 写给亲爱的猪 (*^__^*) 嘻嘻 【原创作品,翻版不究】
本文档为【VB自动关机】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_995397
暂无简介~
格式:doc
大小:74KB
软件:Word
页数:0
分类:企业经营
上传时间:2018-11-14
浏览量:10