皮皮网

1.易语言大漠插件找到字但是易语言找语言易语言模pacs系统源码找不到坐标

易语言大漠插件找到字但是找不到坐标

       .版本 2

       .支持库 dm

       .支持库 spec

       .子程序 备用代码找字坐标

       .局部变量 返回文本, 文本型

       .局部变量 AAA, 文本型

       .局部变量 BBB, 文本型, , "0"

       dmm.SetPath (取运行目录 ())

       dmm.SetDict (0, “字库.txt”)

       延时 ()

       返回文本 ＝ dm.Ocr (0, 0, 取屏幕宽度 (), 取屏幕高度 (), “A8A8A8-”, 1) ' 利用字库识别字

       输出调试文本 (返回文本) ' 字库中的字名

       AAA ＝ dm.FindStrE (0, 0, 取屏幕宽度 (), 取屏幕高度 (), “字库中的字名”, “A8A8A8-”, 1) ' 返回坐标“0|X|Y”

       输出调试文本 (AAA)

       BBB ＝ 分割文本 (AAA, “|”, )

       调试输出 (“找字返回的坐标” ＋ “ ” ＋ 到文本 (BBB [2]) ＋ “ ” ＋ 到文本 (BBB [3]))

       .判断开始 (返回文本 ＝ “字库中的字名”)

       ' 窗口_激活 (窗口_取句柄_模糊 (“窗口标题”))

       延迟 ()

       dm.MoveTo (到整数 (BBB [2]), 到整数 (BBB [3]))

       .默认

       .判断结束

       dmm.UnBindWindow ()