TC官方合作论坛

标题: 微速答题代码(中文滴) [打印本页]
作者: 35112401    时间: 2012-8-23 23:05
标题: 微速答题代码(中文滴)
自己弄了几天才弄明白滴,分享下...让大家少纠结下.


  1. #import "dm.dmsoft" dm
  2. #import "MicroSu.Reply" ms




  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错误")

  59. 如果结束
  60. 如果(答案=="-8")
  61. 辅助.消息框("答题超时")

  63. 如果结束
  64. 如果(答案=="-9")
  65. 辅助.消息框("无法确认答案")

  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")

  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    时间: 2012-8-23 23:48
支持一下

不过可以把那么多的如果语句换成选择
效率上会有差别,因为你这样写,每个如果都会判断一遍.
作者: jrflsh    时间: 2012-8-24 00:47
很不错，帮你顶一下
作者: kevinqq    时间: 2012-8-24 16:16
不错支持下
作者: 105735417    时间: 2012-8-26 18:49
弱弱的问一句这个是干嘛用的
作者: 35112401    时间: 2012-8-27 13:46
游戏内防外挂答题时 远程人工自动答题用的
作者: slz336    时间: 2014-8-26 11:47
顶起来支持免费



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1