|
|
发表于 2013-11-26 14:38:46
|
显示全部楼层
字符型 指向延时,标题,X,Y
整型 asd,窗口,句柄方式,图像模式,鼠标模式,键盘模式,mode,按键码
功能 逻辑型 初始化()
下拉框.设置选项("下拉框0",0)
下拉框.设置选项("下拉框1",0)
下拉框.设置选项("下拉框2",0)
下拉框.设置选项("下拉框3",0)
下拉框.设置选项("下拉框4",0)
下拉框.设置选项("下拉框5",0)
返回 真
功能结束
功能 整型 大漠后台选择测试()
整型 m1,x1,y1
字符型 t,s,j,m
逻辑型 是否成功
dm.SetPath("d:\\")
辅助.注册插件("rc:dm.dll",true)
指向延时=编辑框.获得文本("编辑框0")
标题=编辑框.获得文本("编辑框1")
X=编辑框.获得文本("编辑框2")
Y=编辑框.获得文本("编辑框3")
句柄方式=下拉框.得到选项("下拉框0")
图像模式=下拉框.得到选项("下拉框1")
鼠标模式=下拉框.得到选项("下拉框2")
键盘模式=下拉框.得到选项("下拉框3")
mode=下拉框.得到选项("下拉框4")
按键码=下拉框.得到选项("下拉框5")
t=下拉框.获得内容("下拉框1",图像模式)
s=下拉框.获得内容("下拉框2",鼠标模式)
j=下拉框.获得内容("下拉框3",键盘模式)
m=下拉框.获得内容("下拉框4",mode)
如果(句柄方式<0)
辅助.消息框("请选择抓取方式")
线程.关闭(asd)
否则
如果(句柄方式==0)
辅助.等待(转换.字符型转整型(指向延时))
窗口=窗口.鼠标所在窗口句柄()
如果(字符串.长度(指向延时)==0)
辅助.消息框("请填写鼠标延时")
线程.关闭(asd)
如果结束
否则
如果(句柄方式==1)
窗口=窗口.找到窗口(标题)
如果(字符串.长度(标题)==0)
辅助.消息框("请填写标题")
线程.关闭(asd)
如果结束
如果结束
如果结束
如果结束
如果(图像模式<0||鼠标模式<0||键盘模式<0||mode<0)
辅助.消息框("请选择模式")
线程.关闭(asd)
如果结束
m1=转换.字符型转整型(m)
int 是否成功1=dm.BindWindow(窗口,t,s,j,m1)
如果(是否成功1==0)
辅助.消息框("窗口绑定失败")
线程.关闭(asd)
如果结束
如果(复选框.获得状态("复选框2"))
dm.Capture(0,0,2000,2000,"d:\\screen.bmp")
辅助.等待(1500)
如果结束
如果(复选框.获得状态("复选框0"))
如果(字符串.长度(X)==0||字符串.长度(Y)==0)
辅助.消息框("坐标不能为空")
线程.关闭(asd)
否则
x1=转换.字符型转整型(X)
y1=转换.字符型转整型(Y)
辅助.等待(200)
如果结束
如果(0<x1&&x1<750&&0<y1&&y1<550)
dm.MoveR(x1,y1)
辅助.等待(500)
dm.LeftClick()
辅助.等待(500)
dm.UnBindWindow()
辅助.等待(500)
否则
辅助.消息框("输入的值符合0<x1<750和0<y1<550")
dm.RightClick()
线程.关闭(asd)
如果结束
如果结束
如果(复选框.获得状态("复选框1"))
如果(按键码<0)
辅助.消息框("请选择按键")
线程.关闭(asd)
如果结束
如果(按键码==0)
dm.KeyPress(77)
辅助.等待(500)
否则
如果(按键码==1)
dm.KeyPress(9)
辅助.等待(500)
如果结束
如果结束
如果结束
返回 0
功能结束
功能 逻辑型 开始_点击()
asd=线程.开启("我的程序.大漠后台选择测试","")
返回 真
功能结束
功能 逻辑型 退出_点击()
dm.RightClick()
线程.关闭(asd)
辅助.退出()
返回 真
功能结束 |
|
[复制链接]
/2 
