微速答题代码(中文滴)

35112401

自己弄了几天才弄明白滴,分享下...让大家少纠结下.

1. #import "dm.dmsoft" dm
   
2. #import "MicroSu.Reply" ms
   
3. 
   
4. 
   
5. 
   
6. 
   
7. 功能 逻辑型 微速答题()
   
8. 整型 X,Y
   
9. 整型 找到
   
10. 字符型 答案,题目
    
11. 字符型 卡号=编辑框.获得文本("编辑框0")
    
12. 循环(真)
    
13. 辅助.等待(100)
    
14. 找到=dm.FindPic(506,214,901,613,"检测.bmp","202020",0.9,0,X,Y)
    
15. 辅助.等待(100)
    
16. 如果(找到==0)
    
17. dm.Capture(X-69,Y+26,X+162,Y+230,"c:\\screenP.bmp")
    
18. 辅助.等待(1000)
    
19. 否则
    
20. 跳出
    
21. 如果结束
    
22. 题目="-1"
    
23. 循环(字符串.长度(题目)==2)
    
24. 辅助.等待(10)
    
25. 题目=ms.SendFile(卡号,1032,"C:\\screenP.bmp",19)
    
26. 循环结束
    
27. 辅助.等待(100)
    
28. 如果(题目== "-2")
    
29. 辅助.消息框("上传密码串格式错误")
    
30. 如果结束
    
31. 如果(题目== "-3")
    
32. 辅助.消息框("找不到您填的上传密码串")
    
33. 如果结束
    
34. 如果(题目== "-4")
    
35. 辅助.消息框("你的题分不足！")
    
36. 如果结束
    
37. 如果(题目== "-5")
    
38. 辅助.消息框("找不到游戏")
    
39. 如果结束
    
40. 如果(题目== "-6")
    
41. 辅助.消息框("连接网络失败")
    
42. 如果结束
    
43. 如果(题目== "-7")
    
44. 辅助.消息框("创建Xml对象失败")
    
45. 如果结束
    
46. 如果(题目== "-8")
    
47. 辅助.消息框("文件不存在")
    
48. 如果结束
    
49. 如果(题目== "-9")
    
50. 辅助.消息框("压缩图片失败")
    
51. 如果结束
    
52. 答案 = "-1"
    
53. 循环(答案=="-1")
    
54. 辅助.等待(200)
    
55. 答案 = ms.GetAnswer(题目)
    
56. 如果(答案=="-7")
    
57. 辅助.消息框("题目ID错误")
    
58. 
    
59. 如果结束
    
60. 如果(答案=="-8")
    
61. 辅助.消息框("答题超时")
    
62. 
    
63. 如果结束
    
64. 如果(答案=="-9")
    
65. 辅助.消息框("无法确认答案")
    
66. 
    
67. 如果结束
    
68. 如果(答案=="1")
    
69. dm.MoveTo(X-60,Y+109)
    
70. 辅助.等待(100)
    
71. dm.LeftClick()
    
72. 辅助.等待(100)
    
73. dm.MoveTo(X-60,Y+235)
    
74. 辅助.等待(100)
    
75. dm.LeftClick()
    
76. 辅助.等待(1000)
    
77. 跳出
    
78. 如果结束
    
79. 如果(答案=="2")
    
80. dm.MoveTo(X-60,Y+139)
    
81. 辅助.等待(100)
    
82. dm.LeftClick()
    
83. 辅助.等待(100)
    
84. dm.MoveTo(X-60,Y+235)
    
85. 辅助.等待(100)
    
86. dm.LeftClick()
    
87. 辅助.等待(1000)
    
88. 跳出
    
89. 如果结束
    
90. 如果(答案=="3")
    
91. dm.MoveTo(X-60,Y+169)
    
92. 辅助.等待(100)
    
93. dm.LeftClick()
    
94. 辅助.等待(100)
    
95. dm.MoveTo(X-60,Y+235)
    
96. 辅助.等待(100)
    
97. dm.LeftClick()
    
98. 辅助.等待(1000)
    
99. 跳出
    
100. 如果结束
     
101. 如果(答案=="4")
     
102. 
     
103. dm.MoveTo(X-60,Y+199)
     
104. 辅助.等待(100)
     
105. dm.LeftClick()
     
106. 辅助.等待(100)
     
107. dm.MoveTo(X-60,Y+235)
     
108. 辅助.等待(100)
     
109. dm.LeftClick()
     
110. 辅助.等待(1000)
     
111. 跳出
     
112. 如果结束
     
113. 循环结束
     
114. 循环结束
     
115. 返回 真
     
116. 功能结束
     

复制代码

cylhb

支持一下

不过可以把那么多的如果语句换成选择
效率上会有差别,因为你这样写,每个如果都会判断一遍.

jrflsh

很不错，帮你顶一下

kevinqq

不错支持下

105735417

弱弱的问一句这个是干嘛用的

35112401

游戏内防外挂答题时 远程人工自动答题用的

slz336

顶起来支持免费