菜菜在问各位一个问题。
我自已这几天在学习VB。想做一个自关机的程序。分别以二种方法关机。
一、用指定系统时间关机。如每 天晚上12.00关机。
二、设定时间。如。三个小时后自动关机。
我是用shell rundll32.exe user.exe,exitwindows做的。
可是乍把两个TEXT控件来响影它呢？
请大家帮助。
问题点数：10、回复次数：6Top
1 楼hypmonkey（EpingHe）回复于 2002-01-05 14:31:25 得分 0
apiTop
2 楼reallyloveyou（江小鱼）回复于 2002-01-05 14:35:55 得分 0
一定要用API吗？Top
3 楼reallyloveyou（江小鱼）回复于 2002-01-05 14:45:02 得分 0
还有。AGI的大体概念。是什么？可否告诉小弟一下。我看了一些书。还是看不懂。主要是自已没有一个大体上的认识。在这里万分感谢Top
4 楼x_nh（狼来了）回复于 2002-01-05 15:56:15 得分 0
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Top
5 楼bbb20bb（）回复于 2002-01-05 16:17:19 得分 10
这个程序也许对你有用
Private Const EWX_SHUTDOWN As Long = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Dim Hrs
Dim Mnt
Dim AMPM
Dim SetAlarm
Private Sub cmdCurrent_Click()
MsgBox SetAlarm, , "Current Alarm Time"
End Sub
Private Sub cmdQuit_Click()
End
End Sub
Private Sub cmdSet_Click()
Hrs = txtHours.Text
Mnt = txtMinutes.Text
If optAM.Value = True Then
AMPM = "AM"
ElseIf optPM.Value = True Then
AMPM = "PM"
End If
SetAlarm = Hrs + ":" + Mnt + ":00 " + AMPM
End Sub
Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
End Sub
Private Sub Timer1_Timer()
lblTime.Caption = Time ' Update time display.
If SetAlarm = lblTime.Caption Then
'shut down the computer
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End If
End Sub
Top
6 楼vsice（“笑看每一天”）回复于 2002-01-05 16:20:07 得分 0
对，就是楼上的那位朋友说的那个API，补充一下：uflags参数有0,1,2,4。 重起是2，其它的慢慢试吧。Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
