没看到你的代码,我胡乱写了个,不知道是不是你想要的效果,给你做参考,结构你自已按你需要的改$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
|