求助：关于TC浏览器大漠后台找图问题

zhufl00

    谁帮我看看，我的程序运行时，在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()
辅助.退出()

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

陌上青衣。

开始里面加了循环容易卡死

zhufl00

回复 2楼陌上青衣。的帖子

好像可以了哦  谢谢了

tyuyan

来看看哈。

花开花落

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

战斗之神

看看。。

落叶归根

..新手问题

战地之王

我的以前也开始过。 才知道要用线程来控制。