社区 › 图文教程发布 › 大漠越学越蒙了

qwer821843 发表于 2022-12-17 20:47:14

大漠越学越蒙了

抓图怎么不显示色彩描述了，二值化区也不显示字了，以前取前二个的色就会显示字了，还有提取点阵有些4个字，是一个一个字，怎么有些是直接提取就4个字，那个定义文字是取个名吗?还是要和图里的文字一样的

qwer821843 发表于 2022-12-17 20:49:42

Sub 调用测试命令
        dm_ret = dm.FindStr(0,0,1024,768,"随身回收","eecc00-312821",0.89,intX,intY)
If intX >= 0 and intY >= 0 Then
   dm.MoveTo intX, intY
   Delay 350
   Call 鼠标左键单击(intX, intY)
End If   





End Sub




Function 鼠标左键单击(x,y)
    dm.MoveTo x, y
   Delay 350
    dm.LeftClick
End Function
Call 测试1
Sub 测试1
dm_ret = dm.FindPic(0, 0, 1024, 768, "神武.bmp", "050505", 0.79, 0, intX, intY)
TracePrint dm_ret
If intX >= 0 and intY >= 0 Then
    MessageBox "找到"

   dm.MoveTo intX, intY
   Delay 350
   Call 鼠标左键单击1(intX, intY)
   
   
End If
End Sub
Function 鼠标左键单击1(x,y)
    dm.MoveTo x, y
   Delay 350
    dm.LeftClick
End Function
Call 测试2

Sub 测试2
dm_ret = dm.FindStr(0, 0, 1024, 768, "战神", "60.100.100-44.37.12", 0.6, intX, intY)
TracePrint dm_ret
If intX >= 0 and intY >= 0 Then
   dm.MoveTo intX, intY
   Delay 350
   Call 鼠标左键单击2(intX, intY)
   
   
End If
End Sub
Function 鼠标左键单击2(x,y)
    dm.MoveTo x, y
   Delay 350
    dm.LeftClick
End Function

Call 测试3

Sub 测试3
dm_ret = dm.FindStr(0, 0, 1024, 768, "圣天", "ffff00-211c10", 0.6, intX, intY)
TracePrint dm_ret
If intX >= 0 and intY >= 0 Then
   dm.MoveTo intX, intY
   Delay 350
   Call 鼠标左键单击3(intX, intY)
   
   
End If
End Sub
Function 鼠标左键单击3(x,y)
    dm.MoveTo x, y
   Delay 350
    dm.LeftClick
End Function
Call 测试4

Sub 测试4
dm_ret = dm.FindStr(0, 0, 1024, 768, "北冥", "ffff00-181410", 0.6, intX, intY)
TracePrint dm_ret
If intX >= 0 and intY >= 0 Then
   dm.MoveTo intX, intY
   Delay 350
   Call 鼠标左键单击4(intX, intY)
   
   
End If
End Sub
Function 鼠标左键单击4(x,y)
    dm.MoveTo x, y
   Delay 350
    dm.LeftClick
End Function
Call 测试5

Sub 测试5
dm_ret = dm.FindStr(0, 0, 1024, 768, "合件", "ffff00-1b1910", 0.6, intX, intY)
TracePrint dm_ret
If intX >= 0 and intY >= 0 Then
   dm.MoveTo intX, intY
   Delay 350
   Call 鼠标左键单击5(intX, intY)
   
   
End If
End Sub
Function 鼠标左键单击5(x,y)
    dm.MoveTo x, y
   Delay 350
    dm.LeftClick
End Function


老是找字找图，牛头不对马嘴，我都这样写了，用了最笨的方法

qwer821843 发表于 2022-12-17 20:50:17

前面的绑定没写出来，绑定是成功的

e辈子 发表于 2022-12-18 13:27:30

红橙黄绿青蓝紫

阮文轩哥哥 发表于 2023-1-6 18:36:57

哈哈哈哈，易语言好多东西都是越学越懵，我学那个画板和注册机也都懵了

阮文轩哥哥 发表于 2023-1-6 18:37:42

e辈子 发表于 2022-12-18 13:27
红橙黄绿青蓝紫

你不行:P

allMagic 发表于 2023-2-9 20:37:14

红

11522476 发表于 2023-3-14 22:52:22

哈哈哈哈，易语言好多东西都是越学越懵，我学那个画板和注册机也都懵了

qweasdzxc666 发表于 2023-5-28 14:17:56

广泛大锅饭大锅饭大概

jtyh 发表于 2024-11-11 17:04:45

我擦,我才学也知道取色那里要打上勾勾

查看完整版本: 大漠越学越蒙了