TC官方合作论坛

标题: 求助：关于TC浏览器大漠后台找图问题 [打印本页]

作者: zhufl00 时间: 2012-6-17 22:29
标题: 求助：关于TC浏览器大漠后台找图问题
谁帮我看看，我的程序运行时，在TC的浏览器里大漠后台找图，浏览器会卡住，谁知道怎么回事吗

#import "dm.dmsoft"  dm
空间正式
//定义默认空间
逻辑型是否成功
整型 intX,intY

功能逻辑型初始化()
//这里添加你要执行的代码
辅助.注册插件("rc:dm.dll",真)

返回真
功能结束

功能整型找图点击(整型左上角x,整型左上角y,整型右下角x,整型右下角y,字符型图片,整型偏移x,整型偏移y)
整型返回信息
返回信息=dm.FindPic(左上角x,左上角y,右下角x,右下角y,图片,"000000",0.9,0,intX,intY)

如果(返回信息!=-1)
// 辅助.消息框("找到")
辅助.等待(100)
   dm.MoveTo(intX+偏移x,intY+偏移y)
   辅助.等待(100)
   dm.LeftClick()
   辅助.等待(100)
否则
辅助.消息框("未找到")
如果结束

返回 0
功能结束

功能整型找字左键点击(整型左上角x,整型左上角y,整型右下角x,整型右下角y,字符型图片,字符型偏色)
dm.FindStr(左上角x,左上角y,右下角x,右下角y,图片,偏色,1.0,intX,intY)
如果(intX>=0)
   辅助.消息框("找到")
   辅助.等待(100)
   dm.MoveTo(intX,intY)
   辅助.等待(100)
   dm.LeftClick()
   辅助.等待(100)
   否则
辅助.消息框("未找到")
如果结束

返回 0
功能结束

功能整型做1到40级任务()
整型 x,y
整型返回信息

辅助.等待(1000)
正式.找图点击(0,0,2000,2000,"2.bmp",0,0)
辅助.等待(1000)
正式.找图点击(0,0,2000,2000,"he.bmp",0,0)
辅助.等待(1000)
正式.找图点击(689,396,774,412,"接受.bmp",0,0)
辅助.等待(1000)
正式.找图点击(0,0,2000,2000,"背.bmp",0,0)
返回 0
功能结束

功能逻辑型  大漠绑定(字符型  句柄)
整型窗口句柄=转换.字符型转整型(句柄,0)
如果(窗口句柄==0)
辅助.消息框("没有找到窗口")
否则
dm.SetPath(辅助.获取资源路径("rc:"))
dm.SetDict(0,"ziku.txt")
整型  窗口绑定是否成功
窗口绑定是否成功=dm.BindWindow(窗口句柄,"dx2","dx2","dx",0)
   辅助.等待(500)
      如果(窗口绑定是否成功==0)
      辅助.消息框("窗口绑定失败")
      否则
         正式.做1到40级任务()
      如果结束
如果结束
返回真
功能结束

功能逻辑型开始_点击()
//这里添加你要执行的代码

循环(真)
是否成功 = 网页.加载完成("浏览器0")
辅助.等待(500)
如果(是否成功)
辅助.等待(1000)
字符型返回值句柄=系统.枚举(转换.整型转字符型(网页.得到窗口句柄("浏览器0")),3)
正式.大漠绑定(返回值句柄)

跳出
如果结束
循环结束

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

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

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

作者: 陌上青衣。 时间: 2012-6-17 22:57
开始里面加了循环容易卡死

作者: zhufl00 时间: 2012-6-17 23:31
回复 2楼陌上青衣。的帖子

好像可以了哦谢谢了

作者: tyuyan 时间: 2012-6-18 09:34
来看看哈。

作者: 花开花落 时间: 2012-6-18 10:49

死循环要加线程来开启的。

作者: 战斗之神 时间: 2012-6-18 10:50
看看。。

作者: 落叶归根 时间: 2012-6-18 11:15

..新手问题

作者: 战地之王 时间: 2012-6-18 11:16
我的以前也开始过。才知道要用线程来控制。

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)