请教关于time控件

怎么实现当计算机启动一个小时后开始运行某一功能。譬如说当计算机系统启动一个小时后执行关机功能。关机功能代码我写好了。

解决方案 »

  1.   

    要让你的程序在启动的时候就运行，然后计时1个小时
    timer间隔可以设置成一分钟60,000
    然后做个循环
    在timer函数中，
    if a>60 then
    '关机
    else
      a=a+1
    end if定义a为全局，或者局部静态希望有帮助
      

  2.   

    为什么不用　Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
    呢？？
      

  3.   

    GetTickCount函数返回的是系统运行的时间，单位是毫秒Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As LongPrivate Sub Timer1_Timer()
        Timer1.Interval=500
        If GetTickCount/1000/60>60 Then MsgBox "系统运行时间已经超过一个小时了，准备关机！"End Sub
      

  4.   

    楼上的方法不错,而且还准确,time控件的时间计算不准确,只是个大概时间段!!
      

  5.   

    直接做一个关机的ＶＢ程序，放到windows的计划任务里，设定好时间，简单，方便