想做一个30秒内检测一个区域的颜色，检测到重新计时再检测

xiaohai2415

想做一个30秒内检测一个区域的颜色，检测到重新计时再检测，检测不到就点击一下，以下是我写的代码，麻烦大神们给我指点一下哪里出错了。
Dim intX,intY
Dim 秒数=0
Do
秒数=秒数 + 1
TracePrint "开始检测30秒内没有打怪就用随机"
If 秒数>30 Then
FindColor 944,927,1062,1352,"192BA1-303030",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "30秒内检测到在打怪"
Delay 100
秒数=0
Else
TracePrint " 30秒内没找到怪使用随机卷"
Tap 690, 1870
End If
End If
Loop

910-叫兽

Delay 100   这个循环十次才一秒   小于30就是三秒

910-叫兽

   安卓的代码没看过  Tap 690, 1870  但是你这个是死坐标么？ 为什么不用活坐标，用找色返回的坐标不是会好一点么？

xiaohai2415

Tap 690, 1870 这个是随机卷的位置，这里点一下就使用随机了

紫猫

你这个循环并非30秒检测一次, 一开始变量秒数条件就不成立, 直接无间隔循环累加达到30后才开始判断处理, 跟你说的30秒一次判断没有任何关系

紫猫

[按键精灵] 纯文本查看 复制代码

Dim i=0
do
    i=i+1
    delay 1000//这个延时必须被循环执行到, 否则时间就不准了
    if i>30 then
        //这里才是大于30秒
        i = 0
    end if
loop

职业-学生

学习了,原来应该算上时间

kf2004

[按键精灵] 纯文本查看 复制代码

dim t
t = TickCount
Do
    //找色
    If 颜色找到 Then 
        t = TickCount
    End If
    Delay 500
Loop Until TickCount - t >= 30000

这个行不行?