TC官方合作论坛
标题:
求教。
[打印本页]
作者:
zpdk
时间:
2012-11-15 14:19
标题:
求教。
#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
时间:
2012-11-15 14:21
插花...........................................有人吗?
作者:
zpdk
时间:
2012-11-15 14:29
真不活跃啊。。。。。。。。。。。。。。。。。。。
作者:
447157533
时间:
2012-11-15 15:08
回复
3楼
zpdk
的帖子
这么长的代码 大神懒得看啊 vip专区不是有专人回答吗 去那里问撒
作者:
zpdk
时间:
2012-11-15 15:09
好的切切。。
欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)
Powered by Discuz! X3.1