|
发表于 2020-11-27 23:45:58
|
显示全部楼层
#import "dm.dmsoft" dm
空间 大漠测试
//定义默认空间
功能 逻辑型 开始_点击()
//这里添加你要执行的代码
dm.SetPath(辅助.获取资源路径("rc:"))
整型 时尚=dm.SetDict(0,"dm_soft.txt")
整型 是否成功
重复(10)
//整型 句柄=窗口.找到窗口("║网通║百战百胜AB组统战(.稳定开放)║")
是否成功=dm.BindWindow(267974,"gdi","windows3","windows",0)
//必须用这种模式才能绑定成功
//整型 输入句柄=dm.BindWindow(句柄,"gdi","windows3","windows",0)
整型 是否
整型 X
整型 Y
字符型 字符串
//返回的是数组
整型 元宝
整型 X3
整型 Y3
整型 空
整型 X2
整型 Y2
整型 回城检测=dm.KeyPress(97)
help.sleep(1000)
如果(回城检测>0)
整型 X1
整型 Y1
整型 找回城石=dm.FindPic(0,0,2000,2000,"回城石.bmp","000000",0.9,0,X1,Y1)
字符型 找回石成功=转换.整型转字符型(找回城石)
如果(找回城石<0)
dm.MoveTo(767,566)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(407,124)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(356,370)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(328,347)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(613,13)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
如果结束
如果结束
dm.MoveTo(85,350)
help.sleep(500)
dm.RightClick()
help.sleep(500)
dm.MoveTo(85,350)
help.sleep(500)
dm.RightClick()
help.sleep(500)
整型 过验证码
整型 a=10
循环(a>0)
dm.MoveTo(247,359)
help.sleep(1000)
dm.LeftClick()
help.sleep(1000)
字符串=dm.Ocr(0,0,2000,2000,"ff0000-000000",1.0)
help.sleep(1000)
是否=dm.FindStr(0,0,2000,2000,"5","ff0000-000000",1.0,X,Y)
help.sleep(500)
如果(X<0)
dm.MoveTo(184,155)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.SendString(2099546,字符串)
help.sleep(500)
dm.MoveTo(425,350)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(75,90)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
跳出
如果结束
循环结束
dm.KeyPress(120)
整型 自动随机
整型 b=1000
循环(b>0)
dm.KeyPress(98)
help.sleep(30000)
b=b-1
空=dm.FindPic(0,0,2000,2000,"空.bmp","000000",0.9,0,X2,Y2)
元宝=dm.FindPic(0,0,2000,2000,"元宝.bmp","000000",0.9,0,X3,Y3)
如果(元宝>-1)
help.sleep(500)
dm.MoveTo(X3,Y3)
dm.LeftClick()
help.sleep(1000)
dm.MoveTo(720,300)
help.sleep(1000)
dm.LeftClick()
help.sleep(500)
如果结束
如果(空<0)
dm.KeyPress(120)
help.sleep(500)
dm.KeyPress(97)
help.sleep(500)
跳出
如果结束
循环结束
dm.MoveTo(233,17)
help.sleep(1000)
dm.RightClick()
help.sleep(500)
dm.MoveTo(233,17)
help.sleep(1000)
dm.RightClick()
help.sleep(500)
dm.MoveTo(233,17)
help.sleep(1000)
dm.RightClick()
help.sleep(1000)
整型 c=10
循环(c>0)
dm.MoveTo(535,39)
help.sleep(1000)
dm.LeftClick()
help.sleep(1000)
字符串=dm.Ocr(0,0,2000,2000,"ff0000-000000",1.0)
help.sleep(1000)
是否=dm.FindStr(0,0,2000,2000,"5","ff0000-000000",1.0,X,Y)
help.sleep(500)
如果(X<0)
dm.MoveTo(211,155)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.SendString(2099546,字符串)
help.sleep(500)
dm.MoveTo(422,350)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(76,140)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
跳出
如果结束
循环结束
dm.UnBindWindow()
重复结束
返回 真
//函数返回语句
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
辅助.退出()
返回 真
//函数返回语句
功能结束
空间结束
//空间结束语句#import "dm.dmsoft" dm
空间 大漠测试
//定义默认空间
功能 逻辑型 开始_点击()
//这里添加你要执行的代码
dm.SetPath(辅助.获取资源路径("rc:"))
整型 时尚=dm.SetDict(0,"dm_soft.txt")
整型 是否成功
重复(10)
//整型 句柄=窗口.找到窗口("║网通║百战百胜AB组统战(.稳定开放)║")
是否成功=dm.BindWindow(267974,"gdi","windows3","windows",0)
//必须用这种模式才能绑定成功
//整型 输入句柄=dm.BindWindow(句柄,"gdi","windows3","windows",0)
整型 是否
整型 X
整型 Y
字符型 字符串
//返回的是数组
整型 元宝
整型 X3
整型 Y3
整型 空
整型 X2
整型 Y2
整型 回城检测=dm.KeyPress(97)
help.sleep(1000)
如果(回城检测>0)
整型 X1
整型 Y1
整型 找回城石=dm.FindPic(0,0,2000,2000,"回城石.bmp","000000",0.9,0,X1,Y1)
字符型 找回石成功=转换.整型转字符型(找回城石)
如果(找回城石<0)
dm.MoveTo(767,566)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(407,124)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(356,370)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(328,347)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(613,13)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
如果结束
如果结束
dm.MoveTo(85,350)
help.sleep(500)
dm.RightClick()
help.sleep(500)
dm.MoveTo(85,350)
help.sleep(500)
dm.RightClick()
help.sleep(500)
整型 过验证码
整型 a=10
循环(a>0)
dm.MoveTo(247,359)
help.sleep(1000)
dm.LeftClick()
help.sleep(1000)
字符串=dm.Ocr(0,0,2000,2000,"ff0000-000000",1.0)
help.sleep(1000)
是否=dm.FindStr(0,0,2000,2000,"5","ff0000-000000",1.0,X,Y)
help.sleep(500)
如果(X<0)
dm.MoveTo(184,155)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.SendString(2099546,字符串)
help.sleep(500)
dm.MoveTo(425,350)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(75,90)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
跳出
如果结束
循环结束
dm.KeyPress(120)
整型 自动随机
整型 b=1000
循环(b>0)
dm.KeyPress(98)
help.sleep(30000)
b=b-1
空=dm.FindPic(0,0,2000,2000,"空.bmp","000000",0.9,0,X2,Y2)
元宝=dm.FindPic(0,0,2000,2000,"元宝.bmp","000000",0.9,0,X3,Y3)
如果(元宝>-1)
help.sleep(500)
dm.MoveTo(X3,Y3)
dm.LeftClick()
help.sleep(1000)
dm.MoveTo(720,300)
help.sleep(1000)
dm.LeftClick()
help.sleep(500)
如果结束
如果(空<0)
dm.KeyPress(120)
help.sleep(500)
dm.KeyPress(97)
help.sleep(500)
跳出
如果结束
循环结束
dm.MoveTo(233,17)
help.sleep(1000)
dm.RightClick()
help.sleep(500)
dm.MoveTo(233,17)
help.sleep(1000)
dm.RightClick()
help.sleep(500)
dm.MoveTo(233,17)
help.sleep(1000)
dm.RightClick()
help.sleep(1000)
整型 c=10
循环(c>0)
dm.MoveTo(535,39)
help.sleep(1000)
dm.LeftClick()
help.sleep(1000)
字符串=dm.Ocr(0,0,2000,2000,"ff0000-000000",1.0)
help.sleep(1000)
是否=dm.FindStr(0,0,2000,2000,"5","ff0000-000000",1.0,X,Y)
help.sleep(500)
如果(X<0)
dm.MoveTo(211,155)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.SendString(2099546,字符串)
help.sleep(500)
dm.MoveTo(422,350)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(76,140)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
跳出
如果结束
循环结束
dm.UnBindWindow()
重复结束
返回 真
//函数返回语句
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
辅助.退出()
返回 真
//函数返回语句
功能结束
空间结束
//空间结束语句#import "dm.dmsoft" dm
空间 大漠测试
//定义默认空间
功能 逻辑型 开始_点击()
//这里添加你要执行的代码
dm.SetPath(辅助.获取资源路径("rc:"))
整型 时尚=dm.SetDict(0,"dm_soft.txt")
整型 是否成功
重复(10)
//整型 句柄=窗口.找到窗口("║网通║百战百胜AB组统战(.稳定开放)║")
是否成功=dm.BindWindow(267974,"gdi","windows3","windows",0)
//必须用这种模式才能绑定成功
//整型 输入句柄=dm.BindWindow(句柄,"gdi","windows3","windows",0)
整型 是否
整型 X
整型 Y
字符型 字符串
//返回的是数组
整型 元宝
整型 X3
整型 Y3
整型 空
整型 X2
整型 Y2
整型 回城检测=dm.KeyPress(97)
help.sleep(1000)
如果(回城检测>0)
整型 X1
整型 Y1
整型 找回城石=dm.FindPic(0,0,2000,2000,"回城石.bmp","000000",0.9,0,X1,Y1)
字符型 找回石成功=转换.整型转字符型(找回城石)
如果(找回城石<0)
dm.MoveTo(767,566)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(407,124)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(356,370)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(328,347)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(613,13)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
如果结束
如果结束
dm.MoveTo(85,350)
help.sleep(500)
dm.RightClick()
help.sleep(500)
dm.MoveTo(85,350)
help.sleep(500)
dm.RightClick()
help.sleep(500)
整型 过验证码
整型 a=10
循环(a>0)
dm.MoveTo(247,359)
help.sleep(1000)
dm.LeftClick()
help.sleep(1000)
字符串=dm.Ocr(0,0,2000,2000,"ff0000-000000",1.0)
help.sleep(1000)
是否=dm.FindStr(0,0,2000,2000,"5","ff0000-000000",1.0,X,Y)
help.sleep(500)
如果(X<0)
dm.MoveTo(184,155)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.SendString(2099546,字符串)
help.sleep(500)
dm.MoveTo(425,350)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(75,90)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
跳出
如果结束
循环结束
dm.KeyPress(120)
整型 自动随机
整型 b=1000
循环(b>0)
dm.KeyPress(98)
help.sleep(30000)
b=b-1
空=dm.FindPic(0,0,2000,2000,"空.bmp","000000",0.9,0,X2,Y2)
元宝=dm.FindPic(0,0,2000,2000,"元宝.bmp","000000",0.9,0,X3,Y3)
如果(元宝>-1)
help.sleep(500)
dm.MoveTo(X3,Y3)
dm.LeftClick()
help.sleep(1000)
dm.MoveTo(720,300)
help.sleep(1000)
dm.LeftClick()
help.sleep(500)
如果结束
如果(空<0)
dm.KeyPress(120)
help.sleep(500)
dm.KeyPress(97)
help.sleep(500)
跳出
如果结束
循环结束
dm.MoveTo(233,17)
help.sleep(1000)
dm.RightClick()
help.sleep(500)
dm.MoveTo(233,17)
help.sleep(1000)
dm.RightClick()
help.sleep(500)
dm.MoveTo(233,17)
help.sleep(1000)
dm.RightClick()
help.sleep(1000)
整型 c=10
循环(c>0)
dm.MoveTo(535,39)
help.sleep(1000)
dm.LeftClick()
help.sleep(1000)
字符串=dm.Ocr(0,0,2000,2000,"ff0000-000000",1.0)
help.sleep(1000)
是否=dm.FindStr(0,0,2000,2000,"5","ff0000-000000",1.0,X,Y)
help.sleep(500)
如果(X<0)
dm.MoveTo(211,155)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.SendString(2099546,字符串)
help.sleep(500)
dm.MoveTo(422,350)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
dm.MoveTo(76,140)
help.sleep(500)
dm.LeftClick()
help.sleep(500)
跳出
如果结束
循环结束
dm.UnBindWindow()
重复结束
返回 真
//函数返回语句
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
辅助.退出()
返回 真
//函数返回语句
功能结束
空间结束
//空间结束语句 |
|