论坛 › 已解决问题区 › 定时器怎么做呀

yjw83523 发表于 2011-8-19 09:22:44

定时器怎么做呀

就是说每个3分钟就运行一次某个按键

kood481748 发表于 2011-8-19 10:53:29

参考“AdlibRegister”这个函数

hifi 发表于 2011-8-19 12:13:07

學習了~{:face (355):}

lxz 发表于 2011-8-19 22:08:41

帮助里有例子....

cxlater 发表于 2011-8-21 14:17:09

定时器。。。。。

doraegeep 发表于 2011-9-18 12:48:18

要的就是这种效果

xms77 发表于 2011-9-18 21:07:09

回复 1# yjw83523 #include <date.au3>

Dim $Rightnow_Min, $Time_min
Dim Const $Time_interval = 1                      ; 间隔时间系数，单位为分钟

$Time_min = @MIN
$Rightnow_Min = @MIN
While
$Rightnow_Min = @MIN
If $Rightnow_Min = $Time_min Then            ;如果当前的分钟时间和指定的分钟时间相符
    $Time_min = $Rightnow_Min + $Time_interval         ; 计算下一次的执行分钟时间
        If $Time_min >= 60 Then $Time_min = $Time_min - 60             ;如果下一次的执行分钟超过60，则减去60
        Send("keys")                ; 你要发送的按键
endif       
WEnd

doraegeep 发表于 2011-9-18 21:16:53

用sleep 可以吧

hzxymkb 发表于 2011-9-18 21:37:04

楼主的方法都试试，看看哪个方法合适你使用！

xms77 发表于 2011-9-19 12:52:30

回复 8# doraegeep
用sleep()，如果光光这个功能还行，如果还想加点别的功能的话就不行了，呵呵！

zhangchongzhi 发表于 2011-9-19 14:07:10

收着，学学。

逆水风帆 发表于 2011-9-19 22:21:15

一般不都用AdlibRegister这个函数吗，但是有时得同时使用内存整理函数，否则占用太多内存了

autt 发表于 2011-9-21 22:43:20

good ,adlibregister是个定时器工作,看到有人要用定时器做事情,根据他的要求自己在写,花了1个小时,还是搜索解决问题,搜索很重要啊,多谢谢2楼

wscsj330 发表于 2011-9-24 17:07:00

入门资料太多，不知道看哪个好

xiehuahere 发表于 2011-9-25 22:43:51

本帖最后由 xiehuahere 于 2011-9-25 22:53 编辑

$begin = TimerInit()
While 1
      If TimerDiff($begin) = 180000 Then; 3 minutes
            Send("keys")   ;你要发送的按键
            $begin = TimerInit()
      EndIf
      Sleep(1000)
WEnd方法很多，不过看起来还是 AdlibRegister 最适合做这种工作啦~~

查看完整版本: 定时器怎么做呀