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

xiaohai2415 · 发表于 2019-3-1 23:46:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 xiaohai2415 于 2019-3-1 23:58 编辑

想做一个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-叫兽 · 发表于 2019-3-2 00:31:37

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

910-叫兽 · 发表于 2019-3-2 00:33:29

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

xiaohai2415 · 发表于 2019-3-2 07:21:03

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

紫猫 · 发表于 2019-3-3 19:23:06

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

紫猫 · 发表于 2019-3-3 20:14:38

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

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

职业-学生 · 发表于 2019-3-11 15:45:25

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

kf2004 · 发表于 2019-3-12 21:06:33

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

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

这个行不行?

		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分