|
|
发表于 2013-5-22 15:41:21
|
显示全部楼层
湖北省鄂州市
已经完成了。源代码奉上了。
[e]
.版本 2
.支持库 spec
.程序集 窗口程序集1
.程序集变量 Dm, 对象, , , ’这里 一定要 用到一个全局变量 DM 类型是对象 因为我们就是用 的 大漠对象做的
.子程序 _按钮1_被单击
.局部变量 局部句柄, 整数型
局部句柄 = 窗口_取句柄_模糊 (“添加好友”, “TXGuiFoundation”)
调试输出 (局部句柄) ' 获取到窗口的句柄
Dm.数值方法 (“BindWindow”, 局部句柄, “gdi”, “windows”, “windows”, 0) ' 绑定窗口
编辑框1.内容 = 识别验证码 ()
.子程序 __启动窗口_创建完毕
文件自动释放 ()
注册大漠 ()
.子程序 识别验证码, 文本型
.局部变量 返回X, 整数型
.局部变量 返回Y, 整数型
Dm.数值方法 (“CaptureJpg”, 0, 0, 2000, 2000, “tmp.jpg”, 50) ' 这个是截图
' 返回 (Dm.文本方法 (“Ocr”, 0, 0, 2000, 2000, “7F66CC-806633|664CB2-664D4D|9966B2-66664D|996699-666666”, 0.9)) ’这个是识字
Dm.数值方法 (“FindPic”, 0, 0, 2000, 2000, “1.bmp”, “000000”, 0.9, 0, 返回X, 返回Y) ' 这个是识图
返回 (到文本 (返回X) + “|” + 到文本 (返回Y))
.子程序 文件自动释放
.如果真 (取反 (文件是否存在 (取运行目录 () + “\” + “dm.dll”)))
写到文件 (取运行目录 () + “\” + “dm.dll”, #DM_dll)
.如果真结束
.子程序 注册大漠
运行 (“regsvr32 dm.dll -s”, 真, ) ' 注册大漠插件
.如果真 (取反 (Dm.创建 (“dm.dmsoft”, )))
信息框 (“创建dm对象失败”, #错误图标, “错误#001”)
结束 ()
.如果真结束
调试输出 (Dm.文本方法 (“ver”, ))
.如果真 (Dm.文本方法 (“ver”, ) ≠ #插件版本)
信息框 (“插件版本不正确,请删除以前的dm.dll”, #错误图标, “错误#002”) ' 这里是大漠的 版本号
结束 ()
.如果真结束
Dm.数值方法 (“SetPath”, “”)
调试输出 (Dm.文本方法 (“ver”, ))
' 调试输出 (“字库中共有” + 到文本 (Dm.数值方法 (“GetDictCount”, 0)) + “个字符”)[/e] |
|