UC知道如何用VB 控制系统的运行时间
来源：百度知道 编辑：UC知道 时间：2024/06/25 05:06:51
假如让电脑每天只运行8小时，该怎么做？请你改写下面的代码，或者重新给个比较全的程序代码。
Private Sub Form_Load()
a = Time
Open "F:\关机\控制.txt " For Input As 1
Input #1, c
'请你在此填写代码
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
b = Time
c = b - a
Open "F:关机\控制.txt " For Output As 1
Print #1, "#", c, "#"
Close #1
End Sub
悬赏30分，如果我很满意，追加20分。
Private Sub Form_Load()
a = Time
Open "F:\关机\控制.txt " For Input As 1
Input #1, c
'请你在此填写代码
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
b = Time
c = b - a
Open "F:关机\控制.txt " For Output As 1
Print #1, "#", c, "#"
Close #1
End Sub
悬赏30分，如果我很满意，追加20分。
简单的
新建一个VB工程 添加一个Timer计时器控件
然后完整地抄下下面的代码
Dim StartTime As Date
Private Sub Form_Load()
If App.PrevInstance Then End
App.TaskVisible = False
Me.BorderStyle = 0
Me.Hide
StartTime = Now
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If DateDiff("h", StartTime, Now) >= 8 Then
Shell Environ$("WinDir") & "\system32\shutdown.exe -s -t"
End If
End Sub
你想先尝试一下效果的话 那把最后一段里的
If DateDiff("h", StartTime, Now) >= 8 Then
修改一下 修改成
If DateDiff("s", StartTime, Now) >= 30 Then
然后运行 30秒后 电脑就关机了.... 可别忘了回来给我分啊. 哈哈