求教。

zpdk

#import "dm.dmsoft" dm
#include"退出.t"
空间 大漠绑定
//定义默认空间
整型 线程1,线程运行1,线程2,线程运行2,线程3,线程运行3,线程4,线程运行4,绑定1,绑定2,绑定3,解绑,窗口句柄1,窗口句柄2,窗口句柄3,XX1,XX2
字符型 窗口1,窗口2

功能 逻辑型 线程运行4()
dm.SetPath(辅助.获取资源路径("rc:"))
辅助.等待(300)
编辑框.设置文本("编辑框0","或许路径")
辅助.等待(300)
dm.SetDict(0,"字库.txt")
辅助.等待(300)
编辑框.设置文本("编辑框0","字库成功")
辅助.等待(300)
绑定3=0
窗口句柄3 = dm.GetMousePointWindow()
辅助.等待(200)
dm.SetWindowText(窗口句柄3,"test")
绑定3 = dm.BindWindow(窗口句柄3,"dx2", "windows", "windows",0)
辅助.等待(200)
dm.DownCpu(50)
辅助.等待(20)
如果(绑定3==1)
   
  编辑框.设置文本("编辑框1",转换.整型转字符型(窗口句柄3))
否则
    辅助.消息框("第3个窗口绑定失败")
如果结束
整型 图,X,Y,a,b
//找图返回值=dm.FindPic(0,0,2000,2000,"360ie.bmp","000000",0.9,0,X,Y) //大漠找图
a=0
b=21
循环(a<b)
//图=dm.FindPic(0,0,240,320,"邮件.bmp","000000",0.9,0,X,Y) //大漠找图
图=dm.FindStr(0,0,2000,2000,"菜单","ffffff-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","菜单找到找下一个")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0",转换.整型转字符型(a))
//辅助.消息框("没有找到图片")   
辅助.等待(500)
如果结束
//图=dm.FindPic(0,0,240,320,"邮件.bmp","000000",0.9,0,X,Y) //大漠找图
图=dm.FindStr(0,0,2000,2000,"人物","ffffff-000000|3d673d-000000",1.0,X,Y)
如果(X>0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","人物找到找下一个")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0",转换.整型转字符型(a))
辅助.等待(500)
如果结束
//图=dm.FindPic(0,0,240,320,"邮件.bmp","000000",0.9,0,X,Y) //大漠找图
图=dm.FindStr(0,0,2000,2000,"任务","ffffff-000000|ff0000-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","任务找到找下一个")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0","没有找到")
//辅助.消息框("没有找到图片")   
辅助.等待(500)
如果结束
//图=dm.FindPic(0,0,240,320,"邮件.bmp","000000",0.9,0,X,Y) //大漠找图
图=dm.FindStr(0,0,2000,2000,"限时","ffffff-000000|b4b4b4-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","限时找到找下一个")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0","没有找到")
//辅助.消息框("没有找到图片")   
辅助.等待(500)
如果结束
//图=dm.FindPic(0,0,240,320,"邮件.bmp","000000",0.9,0,X,Y) //大漠找图
图=dm.FindStr(0,0,2000,2000,"御前","ffffff-000000|ff0000-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","门派找到找下一个")
//加一个鼠标移动也可以用大漠的鼠标移动
//标签.设置文本("标签0","门派没有找到")
//辅助.消息框("没有找到图片")   
辅助.等待(500)
如果结束
//图=dm.FindPic(0,0,240,320,"邮件.bmp","000000",0.9,0,X,Y) //大漠找图
图=dm.FindStr(0,0,2000,2000,"报名","ffffff-000000|ff0000-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(2000)
标签.设置文本("标签0","报名找到找下一个")
如果结束
dm.FindStr(0,0,240,320,"开启","0000ff-000000|ffffff-000000|ff0000-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","十次满退出换号")
跳出
否则   
dm.FindPic(0,0,240,320,"自动.bmp","000000",0.9,0,X,Y) //大漠找图
//dm.FindStr(0,0,240,320,"自动","ffffff-000000|ff0000-000000",1.0,X,Y)
如果(X>0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
辅助.等待(500)
标签.设置文本("标签0","找到自动循环")
标签.设置文本("标签0",转换.整型转字符型(a))
//加一个鼠标移动也可以用大漠的鼠标移动   
//辅助.消息框("没有找到图片")   
辅助.等待(500)
否则
    辅助.等待(500)
标签.设置文本("标签0","没有人啊")
标签.设置文本("标签0",转换.整型转字符型(a))
a=a+1   
如果结束
如果结束
循环结束
标签.设置文本("标签0",转换.整型转字符型(a))
辅助.等待(500)
线程1=线程.开启("退出.测试","")
返回 真
功能结束


功能 逻辑型 线程运行3()
如果(绑定1==1||绑定2==1||绑定3==1)
解绑=dm.UnBindWindow()
如果(解绑==1)
    辅助.消息框("解除绑定成功")
    绑定1=0
    绑定2=0
    绑定2=0
    线程.关闭(线程1)
否则
      辅助.消息框("解除绑定失败")
如果结束
否则
       辅助.消息框("没有绑定窗口")
如果结束
返回 真
功能结束
功能 逻辑型 热键0_热键()
//这里添加你要执行的代码
辅助.等待(300)
字符型 单选框0,单选框1
如果(单选框.获得状态("单选框0"))
    单选框0= "真"
线程1=线程.开启("大漠绑定.线程运行2","")
  
否则
单选框1= "假"
如果(单选框.获得状态("单选框1"))
     单选框1= "真"
线程1=线程.开启("大漠绑定.线程运行1","")
否则
单选框1= "假"
如果(单选框.获得状态("单选框2"))
     单选框1= "真"
线程1=线程.开启("大漠绑定.线程运行4","")
否则
辅助.消息框("请选一个")
单选框1= "假"
如果结束
如果结束
如果结束
返回 真
功能结束
功能 逻辑型 热键1_热键()
    辅助.等待(300)
//这里添加你要执行的代码
编辑框.设置文本("编辑框0","成功")
线程1=线程.开启("退出.测试","")
返回 真
功能结束

功能 逻辑型 热键2_热键()
//这里添加你要执行的代码
辅助.等待(300)
线程3=线程.开启("大漠绑定.线程运行3","")

返回 真
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
线程.关闭(线程1)
线程.关闭(线程2)
辅助.退出()
===========这是第2个空间的==================================================
#import "dm.dmsoft" dm

空间 退出
整型 绑定3,窗口句柄3
功能 逻辑型 测试()
dm.SetPath(辅助.获取资源路径("rc:"))

辅助.等待(500)
dm.SetDict(0,"字库.txt")
整型 hwnd = dm.GetMousePointWindow()
//整型 返回值 = dm.BindWindow(hwnd,"dx","windows2","windows",1)
整型 返回值 = dm.BindWindow(hwnd,"dx2","windows","windows",0)
dm.DownCpu(80)
如果(返回值==1)
标签.设置文本("标签0","绑定成功")
否则
辅助.消息框("绑定失败")
如果结束
辅助.等待(500)

//辅助.等待(300)
//编辑框.设置文本("编辑框0","字库成功")
//辅助.等待(300)
//绑定3=0
//窗口句柄3 = dm.GetMousePointWindow()
//辅助.等待(200)
//dm.SetWindowText(窗口句柄3,"test")
//绑定3 = dm.BindWindow(窗口句柄3,"dx2", "windows", "windows",0)
//辅助.等待(200)
//dm.DownCpu(50)
//辅助.等待(20)
//如果(绑定3==1)
   
  //编辑框.设置文本("编辑框1",转换.整型转字符型(窗口句柄3))
//否则
    //辅助.消息框("第3个窗口绑定失败")
//如果结束
   
整型 图,X,Y,a,b
//找图返回值=dm.FindPic(0,0,2000,2000,"360ie.bmp","000000",0.9,0,X,Y) //大漠找图
a=0
b=10
循环(a<b)
//图=dm.FindPic(0,0,240,320,"邮件.bmp","000000",0.9,0,X,Y) //大漠找图
图=dm.FindStr(0,0,240,320,"返回","ffffff-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","菜单找到找下一个")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0",转换.整型转字符型(a))  
辅助.等待(500)
如果结束
图=dm.FindStr(0,0,240,320,"菜单","ffffff-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","菜单找到找下一个")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0",转换.整型转字符型(a))
//辅助.消息框("没有找到图片")   
辅助.等待(500)
如果结束
//图=dm.FindPic(0,0,240,320,"邮件.bmp","000000",0.9,0,X,Y) //大漠找图
图=dm.FindStr(0,0,240,320,"系统","ffffff-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","系统")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0",转换.整型转字符型(a))
//辅助.消息框("没有找到图片")   
辅助.等待(500)
如果结束
//dm.FindPic(0,0,240,320,"退出.bmp","000000",0.9,0,X,Y)
dm.FindStr(0,0,240,320,"查看","ffffff-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X+20,Y+25)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","退出")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0",转换.整型转字符型(a))
//辅助.消息框("没有找到图片")   
辅助.等待(500)
如果结束
//图=dm.FindPic(0,0,240,320,"登录.bmp","000000",0.9,0,X,Y) //大漠找图
图=dm.FindStr(0,0,240,320,"登录","ffffff-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","登陆游戏")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0",转换.整型转字符型(a))
//辅助.消息框("没有找到图片")   
辅助.等待(500)
如果结束
//图=dm.FindPic(0,0,240,320,"邮件.bmp","000000",0.9,0,X,Y) //大漠找图
dm.FindStr(0,0,70,320,"登录","ffffff-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","登陆")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0",转换.整型转字符型(a))
//辅助.消息框("没有找到图片")   
辅助.等待(2500)
如果结束
//图=dm.FindPic(0,0,240,320,"邮件.bmp","000000",0.9,0,X,Y) //大漠找图
图=dm.FindStr(0,0,2000,2000,"玄天","ffffff-000000|804000-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(1500)
标签.设置文本("标签0","玄天")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0",转换.整型转字符型(a))
//辅助.消息框("没有找到图片")   
辅助.等待(2200)
如果结束
图=dm.FindStr(0,0,240,320,"选择","ffffff-000000|804000-000000",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X+30,Y+100)
dm.LeftDoubleClick()
辅助.等待(700)
dm.KeyDown(39)
标签.设置文本("标签0","选择")
//加一个鼠标移动也可以用大漠的鼠标移动
标签.设置文本("标签0",转换.整型转字符型(a))
//辅助.消息框("没有找到图片")   
辅助.等待(500)
如果结束
图=dm.FindStr(0,0,240,320,"进入游戏","ffffff-000000|3d673d",1.0,X,Y)
如果(X>=0)
//判断是否找到 找图返回值 0(找到) -1(未找到) 具体可查看大漠的帮助文档
dm.MoveTo(X,Y)
dm.LeftClick()
辅助.等待(500)
标签.设置文本("标签0","进入游戏")
//加一个鼠标移动也可以用大漠的鼠标移动  
标签.设置文本("标签0",转换.整型转字符型(a))
辅助.等待(500)
标签.设置文本("标签0","进入游戏")
辅助.等待(500)
跳出
否则   
a=a+1
辅助.等待(500)
标签.设置文本("标签0","为什么不上回去")
标签.设置文本("标签0",转换.整型转字符型(a))
辅助.等待(500)
如果结束
循环结束
返回 真
功能结束
空间结束


这样第一个空间调用第2个空间的时候自动绑定啊
调用第2个空间的时候鼠标指哪他就绑定哪了

zpdk

插花...........................................有人吗?

zpdk

真不活跃啊。。。。。。。。。。。。。。。。。。。

447157533

回复 3楼zpdk的帖子

这么长的代码  大神懒得看啊   vip专区不是有专人回答吗  去那里问撒

zpdk

好的切切。。