• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已解决] 屏蔽相同颜色 [复制链接]

1#
//我想获取442,1393,791,1684内的所有颜色
Dim rColor
For i = 110 To 976
For j = 646 To 1503
TracePrint i,j
TracePrint GetPixelColor()
Next
Next
我想获取到的i,j值是屏蔽相同颜色后的结果该怎么写

本主题由 超级版主 n15976906190 于 2020/10/10 11:54:22 执行 审核帖子 操作
2#

回复 1楼18068460551的帖子


您所在的用户组无法下载或查看附件

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
3#

Dim rColor,结果
For i = 110 To 115
    For j = 150 To 155
        //TracePrint i,j
        TracePrint GetPixelColor(i,j)
        If InStr(1, 结果, GetPixelColor(i, j)) = 0 Then
            结果 = 结果 & GetPixelColor(i, j) & "|"
            TracePrint 结果
            Else
            TracePrint "包含"
        End If
    Next
Next
            TracePrint 结果
得出的结果不对
当前脚本第14行:null

4#

回复 3楼18068460551的帖子
  1. Dim rColor,结果=""
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
发新话题 回复该主题