TC官方合作论坛

 找回密码
 立即注册
查看: 3515|回复: 2

[问题] 关于大漠后台找图!

[复制链接]
发表于 2012-2-21 20:48:19 | 显示全部楼层 |阅读模式
程序目的 :找到“我的电脑”窗口 查找“共享文档”这个文件夹
出现提示 :没有找到图片

代码如下:
#import "dm.dmsoft" dm

空间 大漠后台找图
//定义默认空间
字符型 标签0文本,标签1文本,标签2文本,标签3文本
整型 窗口句柄
整型 绑定窗口是否成功

//创建插件注册函数
功能 逻辑型 插件注册()
逻辑型 插件注册成功=辅助.是否注册("dm.dmsoft")

//判断插件是否注册成功
        如果(插件注册成功)
            标签.设置文本("标签0","插件已成功注册")
            
        否则
            标签.设置文本("标签0","请先注册插件")
        如果结束

返回 真
功能结束

功能 逻辑型 找到窗口()

窗口句柄=dm.FindWindow("","我的电脑")
        //判断我的电脑窗口是否打开
        如果(窗口句柄==0)
            标签.设置文本("标签1","没有找到窗口")
        否则
            标签.设置文本("标签1","成功找到窗口")
           
            //判断窗口是否绑定
        dm.BindWindow(窗口句柄,"dx","dx","dx",0)
            绑定窗口是否成功 = dm.IsBind( 窗口句柄)
                如果(绑定窗口是否成功==1)
                    标签.设置文本("标签2","成功绑定窗口")
                否则
                    标签.设置文本("标签2","绑定窗口不成功")
                如果结束
        如果结束
返回 真
功能结束

//创建后台找图函数
功能 逻辑型 后台找图()
字符型 路径=辅助.获取资源路径("rc:")
整型 设定路径是否成功=dm.SetPath(路径)
整型 X,Y

如果(绑定窗口是否成功==1)
        //整型 找图是否成功=dm.FindPic(0,0,2000,2000,"F:\\gxwd.bmp","000000",0.9,0,X,Y)
        整型 找图是否成功=dm.FindPic(0,0,2000,2000,"gxwd.bmp","000000",0.9,0,X,Y)

        如果(找图是否成功==1)
            标签.设置文本("标签3",转换.整型转字符型(X))
            
        否则
            标签.设置文本("标签3","没有找到图片")
        如果结束
否则
   标签.设置文本("标签2","绑定窗口失败")
如果结束
返回 真
功能结束


功能 逻辑型 开始_点击()
//这里添加你要执行的代码
大漠后台找图.插件注册()
辅助.等待(1000)
大漠后台找图.找到窗口()
辅助.等待(1000)
大漠后台找图.后台找图()
辅助.等待(1000)
返回 真
//函数返回语句
功能结束

功能 逻辑型 退出_点击()
//这里添加你要执行的代码
dm.UnBindWindow()
辅助.退出()

返回 真
//函数返回语句
功能结束

空间结束
//空间结束语句

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

发表于 2012-2-21 22:29:03 | 显示全部楼层
dddddddddddddddddddd
回复 支持 反对

使用道具 举报

发表于 2012-2-21 23:55:43 | 显示全部楼层
我知道问题在哪了。。。因为你的共享文档所在的句柄跟你这样获取我的电脑的句柄是不一样的。
共享文档属于我的电脑里面一个子窗口。

所以我跟你说最好就是用  获取鼠标指向窗口的句柄。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-9-29 05:49 , Processed in 0.068794 second(s), 25 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表