找回密码
 加入
搜索
查看: 3832|回复: 8

[AU3基础] 新问题延迟写值,,请进来帮帮忙,谢谢!

  [复制链接]
发表于 2010-3-15 08:00:24 | 显示全部楼层 |阅读模式
本帖最后由 visualc 于 2010-3-15 22:46 编辑

我想问个问题,我先获取系统时间,在系统时间后一分钟执行一条语句,这样行不, 我就是想延迟1分钟,用SLEEP不行,我在获取其他数据时就延迟了,效果不行, 程序大致,无限循环读取INI,假如等于1,msgbox(是,否)点击否写值0到ini〔就不提示用户〕,关键就是在这了,我点击是,想在一分钟后提示,或更长时间在提示用户(在一分钟后写值1),
发表于 2010-3-15 12:25:14 | 显示全部楼层
 楼主| 发表于 2010-3-15 22:40:21 | 显示全部楼层
回复 2# afan 我想问个问题,我先获取系统时间,在系统时间后一分钟执行一条语句,这样行不, 我就是想延迟1分钟,用SLEEP不行,我在获取其他数据时就延迟了,效果不行, 程序大致,无限循环读取INI,假如等于1,msgbox(是,否)点击否写值0到ini〔就不提示用户〕,关键就是在这了,我点击是,想在一分钟后提示,或更长时间在提示用户(在一分钟后写值1),
发表于 2010-3-15 22:43:56 | 显示全部楼层
回复  afan  我想问个问题,我先获取系统时间,在系统时间后一分钟执行一条语句,这样行不, 我就是想延迟1 ...
visualc 发表于 2010-3-15 22:40



    没看懂……
发表于 2010-3-15 22:45:11 | 显示全部楼层
回复  afan  我想问个问题,我先获取系统时间,在系统时间后一分钟执行一条语句,这样行不, 我就是想延迟1 ...
visualc 发表于 2010-3-15 22:40



    没看懂……
 楼主| 发表于 2010-3-15 22:57:07 | 显示全部楼层
回复 4# afan

http://www.autoitx.com/thread-13479-1-1.html 看看这个就明白了,<>7时他就不停的提示,我想间隔一分钟提示,
 楼主| 发表于 2010-3-15 23:06:09 | 显示全部楼层
回复 5# gapkiller

不知大家看懂没有,http://www.autoitx.com/thread-13479-1-1.html

这个不能用sleep()
这样就影响后面的获取了,因为我有可能30秒输入记录,这样后面就不能获取了
 楼主| 发表于 2010-3-15 23:09:31 | 显示全部楼层
回复 5# gapkiller

不知大家看懂没有,http://www.autoitx.com/thread-13479-1-1.html

这个不能用sleep()
这样就影响后面的获取了,因为我有可能30秒输入记录,这样后面就不能获取了
发表于 2010-3-16 00:22:07 | 显示全部楼层
没看到你的代码,我胡乱写了个,不知道是不是你想要的效果,给你做参考,结构你自已按你需要的改
$time = TimerInit ()
Dim $flag = 1 , $wait = 0 ,$yTime = 0
While 1
        ;读取ini
        
        If $flag Then
                $yOrN = MsgBox (4,"","点否写入,点是一分钟写入")
                $flag = 0
        EndIf
        If $yOrN == 6 Then 
                $yTime = TimerDiff ($time)
                $wait = 1
                $yOrN = 0
        ElseIf $yOrN == 7 Then
                MsgBox (0,"","写入")
                $yOrN = 0
                Exit
        EndIf
        If $wait == 1 Then
                ToolTip ("延时:"&Int((TimerDiff($time)-$ytime)/1000)&"秒"&@CRLF&"现在还可以执行其他循环内的任务。")
        EndIf
        If Int((TimerDiff ($time) - $yTime)/1000) = 60 And $wait == 1 Then
                $wait = 0
                MsgBox (0,"","写入")
                Exit
        EndIf
WEnd
                
        

评分

参与人数 1金钱 +20 收起 理由
afan + 20

查看全部评分

您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-20 23:56 , Processed in 0.076631 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表