【一只鱼】图灵v1.1插件(屏幕、后台和图片的找图、色与字)

鱼头之王

图灵v1.1版插件发布，永久免费。

能够根据屏幕、后台窗口和图片进行“像素获取、取色、找色、找图、找字和截图保存”等功能。


使用VB开发的com插件，适合所有语言调用。
主要开发方向：图像处理方面，不涉及鼠标与键盘操作。

注意：首先，添加插件到资源中，再使用！！！

例子演示：

1. 
   
2. 
   
3. //开始按钮_点击操作
   
4. 功能 开始_点击()
   
5.    
   
6.    
   
7.     //---------------[注册插件]
   
8.     是否成功=辅助.是否注册("OneFish.Soul")
   
9.     如果(是否成功)
   
10.         辅助.消息框("插件已注册")
    
11.     否则
    
12.         是否成功=辅助.注册插件("rc:FISH.dll", 真)
    
13.         如果(是否成功)
    
14.             辅助.消息框("插件注册成功")
    
15.         如果结束
    
16.     如果结束   
    
17.    
    
18.    
    
19.     //---------------[创建插件对象]
    
20.     FISH = 插件("OneFish.Soul")
    
21.    
    
22.    
    
23.     //---------------[获取指定点颜色]
    
24.     颜色 = FISH.GetPixelColor(0, 0, "BGR")
    
25.     辅助.消息框(颜色)
    
26.    
    
27.    
    
28.     //---------------[区域找(单)色]
    
29.     坐标 = FISH.FindColor("0000FF", 0, 1, "FULL", 1)         //坐标=array[][]
    
30.     //坐标 = FISH.FindColor("0000FF|FF0000", 0, 1, "FULL", 1)
    
31.     x = 坐标[0][0]
    
32.     y = 坐标[0][1]
    
33.     辅助.消息框(x & ", " & y)
    
34.     鼠标.移动(x, y)  
    
35.    
    
36.    
    
37.     //---------------[获取屏幕区域像素]
    
38.     范围 = 数组[4]
    
39.     范围[0] = 100
    
40.     范围[1] = 100
    
41.     范围[2] = 110
    
42.     范围[3] = 110
    
43.     像素二维数组 = FISH.GetPixels(范围)
    
44.     //变量 xx, yy
    
45.     //数组空间.大小(像素二维数组, xx, yy)  
    
46.     //遍历(y=0;y<yy;y++)
    
47.     //    遍历(x=0;x<xx;x++)
    
48.     //        调试输出(像素二维数组[x][y])
    
49.     //    遍历结束
    
50.     //遍历结束
    
51.    
    
52.    
    
53.     //---------------[保存区域像素为图片]
    
54.     FISH.PixelsToBmp(像素二维数组, "C:\\YL1.bmp")
    
55.    
    
56.    
    
57.     //---------------[区域找(单)图]
    
58.     坐标 = FISH.FindPicture("C:\\YL1.bmp", 0, 1.0, "FULL", 0)
    
59.     //坐标 = FISH.FindPicture("C:\\YL1.bmp|C:\\YL2.bmp", 0, 1.0, "FULL", 0)
    
60.     变量 下标
    
61.     数组空间.大小(坐标, 下标)  
    
62.     遍历(i=0;i<下标;i++)
    
63.         x = 坐标[0][0]
    
64.         y = 坐标[0][1]
    
65.         辅助.消息框(x & ", " & y)
    
66.         鼠标.移动(x, y)  
    
67.     遍历结束
    
68.    
    
69.    
    
70.     //---------------[区域找(单)字]
    
71.     坐标 = FISH.FindWordShape("一只鱼", "宋体,9", 0, 1.0, "FULL", 0)
    
72.     //坐标 = FISH.FindWordShape("一只鱼|我的电脑", "宋体,9", 0, 1.0, "FULL", 0)
    
73.     变量 下标
    
74.     数组空间.大小(坐标, 下标)  
    
75.     遍历(i=0;i<下标;i++)
    
76.         x = 坐标[0][0]
    
77.         y = 坐标[0][1]
    
78.         辅助.消息框(x & ", " & y)
    
79.         鼠标.移动(x, y)  
    
80.     遍历结束
    
81.    
    
82.    
    
83. 功能结束
    

复制代码

鱼头之王

2857989310 发表于 2018-4-2 02:01
楼主，为什么tc7.0使用 FISH.GetPixels 这个命令程序就崩溃，TC4.431的没问题，

可能返回值的类型空间不够，溢出崩溃了吧？

2857989310

楼主，为什么tc7.0使用 FISH.GetPixels 这个命令程序就崩溃，TC4.431的没问题，

cupidyzw1

默默地支持楼主。

鱼头之王

wwkiqpl 发表于 2015-6-14 10:18
区域找图  找不到图   返回值问题？
在按键中试了正常

不是我的脚本例子问题？？

参考下 这个：http://bbs.tyuyan.com/forum.php? ... &fromuid=149807

wwkiqpl

区域找图  找不到图   返回值问题？
在按键中试了正常

鱼头之王

kelejiabing101 发表于 2015-3-12 21:11
我查了下 猜测你的找字 应该是 先获取文字的点阵 然后形状找

你有更好的办法？

kelejiabing101

我查了下 猜测你的找字 应该是 先获取文字的点阵 然后形状找

鱼头之王

kelejiabing101 发表于 2015-3-3 21:24
阈值  

另外     像素二维数组=FISH.GetPixels("0,0,10,10") 这个命令返回的 数组值是 13864257 之类的怎 ...

Public Function ColorRGB(Color As Long) As Byte()
C**t ByN As Integer = 256
C**t ByN2 As Long = 65536
Dim A(2) As Byte
A(0) = (Color Mod ByN)
A(1) = ((Color Mod ByN2) \ ByN)
A(2) = (Color \ ByN2)
ColorRGB = A
End Function

参考这个改



13864257 (10)=D38D41(16) 这个正确

kelejiabing101

更正下说明中的错误

命令名称：FindWordShape区域形状找字
命令功能：区域找单个文字或者多个字符串
命令参数：
参数1：字符串型,要查找的字符串 "一只鱼|一条鱼"
参数2：字符串型,字体,字号     "宋体,9"
参数3：变体型,查找方向
参数4：浮点数,相似度   0.1-1.0
参数5：变体型,查找区域范围     "FULL" 或者"0,0,2000,2000"
参数5：整数型,返回查找结果类型
返回值：整数型,文字的坐标
//
//---------------[区域找(单)字]
坐标=FISH.FindWordShape("一只鱼|我的电脑","宋体,9",0,1.0,"FULL",0)
变量下标
数组空间.大小(坐标,下标)
遍历(i=0;i<下标;i++)
    x=坐标[i][0]
    y=坐标[i][1]
    辅助.消息框(x&","&y)
    鼠标.移动(x,y)
遍历结束