|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
自己弄了几天才弄明白滴,分享下...让大家少纠结下.
- #import "dm.dmsoft" dm
- #import "MicroSu.Reply" ms
- 功能 逻辑型 微速答题()
- 整型 X,Y
- 整型 找到
- 字符型 答案,题目
- 字符型 卡号=编辑框.获得文本("编辑框0")
- 循环(真)
- 辅助.等待(100)
- 找到=dm.FindPic(506,214,901,613,"检测.bmp","202020",0.9,0,X,Y)
- 辅助.等待(100)
- 如果(找到==0)
- dm.Capture(X-69,Y+26,X+162,Y+230,"c:\\screenP.bmp")
- 辅助.等待(1000)
- 否则
- 跳出
- 如果结束
- 题目="-1"
- 循环(字符串.长度(题目)==2)
- 辅助.等待(10)
- 题目=ms.SendFile(卡号,1032,"C:\\screenP.bmp",19)
- 循环结束
- 辅助.等待(100)
- 如果(题目== "-2")
- 辅助.消息框("上传密码串格式错误")
- 如果结束
- 如果(题目== "-3")
- 辅助.消息框("找不到您填的上传密码串")
- 如果结束
- 如果(题目== "-4")
- 辅助.消息框("你的题分不足!")
- 如果结束
- 如果(题目== "-5")
- 辅助.消息框("找不到游戏")
- 如果结束
- 如果(题目== "-6")
- 辅助.消息框("连接网络失败")
- 如果结束
- 如果(题目== "-7")
- 辅助.消息框("创建Xml对象失败")
- 如果结束
- 如果(题目== "-8")
- 辅助.消息框("文件不存在")
- 如果结束
- 如果(题目== "-9")
- 辅助.消息框("压缩图片失败")
- 如果结束
- 答案 = "-1"
- 循环(答案=="-1")
- 辅助.等待(200)
- 答案 = ms.GetAnswer(题目)
- 如果(答案=="-7")
- 辅助.消息框("题目ID错误")
- 如果结束
- 如果(答案=="-8")
- 辅助.消息框("答题超时")
- 如果结束
- 如果(答案=="-9")
- 辅助.消息框("无法确认答案")
- 如果结束
- 如果(答案=="1")
- dm.MoveTo(X-60,Y+109)
- 辅助.等待(100)
- dm.LeftClick()
- 辅助.等待(100)
- dm.MoveTo(X-60,Y+235)
- 辅助.等待(100)
- dm.LeftClick()
- 辅助.等待(1000)
- 跳出
- 如果结束
- 如果(答案=="2")
- dm.MoveTo(X-60,Y+139)
- 辅助.等待(100)
- dm.LeftClick()
- 辅助.等待(100)
- dm.MoveTo(X-60,Y+235)
- 辅助.等待(100)
- dm.LeftClick()
- 辅助.等待(1000)
- 跳出
- 如果结束
- 如果(答案=="3")
- dm.MoveTo(X-60,Y+169)
- 辅助.等待(100)
- dm.LeftClick()
- 辅助.等待(100)
- dm.MoveTo(X-60,Y+235)
- 辅助.等待(100)
- dm.LeftClick()
- 辅助.等待(1000)
- 跳出
- 如果结束
- 如果(答案=="4")
- dm.MoveTo(X-60,Y+199)
- 辅助.等待(100)
- dm.LeftClick()
- 辅助.等待(100)
- dm.MoveTo(X-60,Y+235)
- 辅助.等待(100)
- dm.LeftClick()
- 辅助.等待(1000)
- 跳出
- 如果结束
- 循环结束
- 循环结束
- 返回 真
- 功能结束
复制代码
|
|