| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2534 人关注过本帖
标题:[原创]我做的一个定时关机器,请指教
只看楼主 加入收藏
zdzycx
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-3-1
收藏
 问题点数:0 回复次数:21 
[原创]我做的一个定时关机器,请指教

OwV3SUWZ.rar (3.38 KB) [原创]我做的一个定时关机器,请指教



代码:
Private Sub Command1_Click()
If MsgBox("确实要注消吗?", 48 + vbYesNo, "警告") = vbYes Then
Label1.Caption = "正在注消......"
Timer1.Enabled = False
Shell "shutdown /l"

End If
End Sub

Private Sub Command2_Click()
If MsgBox("确实要关机吗?", 48 + vbYesNo, "警告") = vbYes Then
Label1.Caption = "正在关机......"
Timer1.Enabled = False
Shell "shutdown /f /s /t 0"

End If
End Sub

Private Sub Command3_Click()
Command3.Visible = False
Text1.Visible = False
If MsgBox("确实要定在" + Text1.Text + "关机吗?", vbQuestion + vbYesNo, "定时关机") = vbYes Then
Text1.Text = Text1.Text + ":00"
Form1.Hide
End If
Timer2.Enabled = True

End Sub

Private Sub Label1_Click()
Text1.Visible = True
Command3.Visible = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Date + Time()

End Sub

Private Sub Timer2_Timer()
If Time() = Text1.Text Then
Shell "shutdown /f /s /t 0"
End If


End Sub

搜索更多相关主题的帖子: 关机器 Sub End Private 
2006-03-11 20:10
zdzycx
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-3-1
收藏
得分:0 

有没有把窗体在一定时间过后自动最小化到任务托盘的简单点的代码
好像要调用API,太难理解!


2006-03-12 12:01
st285
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-3-12
收藏
得分:0 
Shell "shutdown /l"
Shell "shutdown /f /s /t 0"
Shell "shutdown /f /s /t 0"
是什么意思
2006-03-12 12:46
zdzycx
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-3-1
收藏
得分:0 
这是winxp的注消和强制关机命令,呵,不会用API所以就只能对winxp或win203有效

2006-03-12 13:27
q19840207
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2006-3-12
收藏
得分:0 

前两天刚刚做好的

支持关机、重启、休眠、注销等动作,也可以最小化到任务栏

[此贴子已经被作者于2006-3-12 15:15:54编辑过]



cswTzRiM.rar (21.66 KB)
2006-03-12 15:15
q19840207
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2006-3-12
收藏
得分:0 
上传不了,继续试试
GglgJ8xo.rar (21.66 KB) [原创]我做的一个定时关机器,请指教


2006-03-12 15:20
zdzycx
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-3-1
收藏
得分:0 
老大你上传来的是计算器

2006-03-12 15:32
zdzycx
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-3-1
收藏
得分:0 
把你的定时器弄上来,让大家学学吧!

2006-03-12 15:33
leishendyg
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2005-4-17
收藏
得分:0 

不知道能用马 ?


我的邮箱leishendyg@有事您说话....
2006-03-13 11:29
majiaow
Rank: 1
等 级:新手上路
帖 子:172
专家分:0
注 册:2006-2-21
收藏
得分:0 
不管能用不能用定一下先

2006-03-14 16:11
快速回复:[原创]我做的一个定时关机器,请指教
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026499 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved