|
.版本 2
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
_临时子程序 () ' 在初始化代码执行完毕后调用测试代码
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 _临时子程序
.局部变量 a, 整数型
.局部变量 坐标, 坐标
' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
a = 查找颜色 (8421376, 坐标)
输出调试文本 (a)
输出调试文本 (坐标.X)
输出调试文本 (坐标.Y)
输出调试文本 (取点颜色 (200, 100))
.子程序 查找颜色, 整数型, , -1为失败 非-1成功
.参数 颜色值, 整数型
.参数 坐标, 坐标
.局部变量 临时字节集, 字节集
.局部变量 颜色值字节集, 字节集
.局部变量 颜色, 字节集
.局部变量 找到位置, 整数型
.局部变量 宽, 整数型
.局部变量 高, 整数型
.局部变量 R, 整数型
.局部变量 G, 整数型
.局部变量 B, 整数型
临时字节集 = 快照 (, , ) ' 取屏幕
宽 = 临时字节集 [19] + 临时字节集 [20] × 256
高 = 临时字节集 [23] + 临时字节集 [24] × 256
输出调试文本 (宽)
输出调试文本 (高)
临时字节集 = 取字节集右边 (临时字节集, 取字节集长度 (临时字节集) - 54)
颜色值字节集 = 到字节集 (颜色值)
R = 颜色值字节集 [1]
G = 颜色值字节集 [2]
B = 颜色值字节集 [3]
颜色 = { 0, 0, 0 }
颜色 [1] = 到字节 (B)
颜色 [2] = 到字节 (G)
颜色 [3] = 到字节 (R)
找到位置 = -1
.循环判断首 ()
找到位置 = 寻找字节集 (临时字节集, 颜色, 找到位置 + 1)
.如果真 (找到位置 = -1)
跳出循环 ()
.如果真结束
.循环判断尾 ((找到位置 - 1) % 3 ≠ 0)
.如果 (找到位置 ≠ -1)
坐标.X = ((找到位置 - 1) ÷ 3 + 1) % 宽
坐标.Y = 高 - ((找到位置 - 1) ÷ 3 + 1) \ 宽
.否则
.如果结束
返回 (找到位置)
.子程序 取点颜色, 整数型, , 取屏幕某点,返回颜色值
.参数 X, 整数型
.参数 Y, 整数型
返回 (GetPixel (GetDC (0), X, Y))
点击进入下载-查找颜色_和取点颜色.e |
|