VB中限制程序运行时间

If Dir("d:/Program Files", vbDirectory) = "" Then

fso.CreateFolder ("d:/Program Files")
'SetAttr "d:/winnt1", vbHidden
End If

 

On Error Resume Next

 

aa = Now '获取当前时间

 

 If Dir("d:/Program Files/sys22.ini") = "" Then
 Set fil = fso.CreateTextFile("d:/Program Files/sys22.ini", True)
 Do While Abs(Val(Right(Str(Val(Second(Now))), 1)) - Val(Right(Str(Val(Second(aa))), 1))) < 

3
 Loop
Open "d:/Program Files/sys22.ini" For Output As #1
 Print #1, aa
  
  Close #1 
 
  Open "d:/Program Files/sys22.ini" For Input As #1
  Line Input #1, a2
  Close #1   '读取文件中的时间
 
  Else

  Open "d:/Program Files/sys22.ini" For Input As #1
  Line Input #1, a2
  Close #1

End If

  If Abs(DateDiff("h", CDate(a2), CDate(aa))) > 10 Then   '时间差是否大于10小时
 
 
End
 
 
 
 
  End If