• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.8
软件大小:62.5M
更新时间:12-18

按键精灵iOS版
立即下载

软件版本:1.7.1
软件大小:29.2M
更新时间:06-22

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[其他] 分享源码!明朝时代刺探任务 [复制链接]

1#
需要在主城启动
将快捷栏打开、把回城符放第一位
如果运行错误、请适当调整延时

  1. UserVar Var1=0 "速度选择"
  2. UserVar Var2=0 "刺探次数"

  3. //获得句柄
  4. hwnd= Plugin.Window.MousePoint()
  5. XY= Plugin.Bkgnd.FindColor(hwnd,0,0,1024,768,"7A7A7A")
  6. aa = split(XY, "|")
  7. x = aa(0)
  8. y = aa(1)
  9. If x =-1 Then
  10. MessageBox "定位起点失败"
  11. Else
  12. cx = x
  13. TracePrint x
  14. cy = y
  15. TracePrint y
  16. End If
  17. Delay 500
  18. //备用
  19. Call Plugin.Bkgnd.MoveTo(Hwnd, 0+cx, 0+cy)
  20. Delay 50
  21. Call Plugin.Bkgnd.LeftClick(Hwnd, 0+cx, 0+cy)

  22. //缩小任务栏
  23. GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 782+cx, 203+cy)
  24. If GetColor = "FFFFFF" Then
  25. Call Plugin.Bkgnd.LeftClick(hwnd, 572 + cx, 553 + cy)
  26. Delay 1000
  27. Call Plugin.Bkgnd.LeftClick(hwnd, 835 + cx, 102 + cy)
  28. Delay Var1
  29. Call Plugin.Bkgnd.LeftClick(hwnd, 874 + cx, 69 + cy)
  30. Else
  31. End If
  32. Call Plugin.Bkgnd.MoveTo(Hwnd, 925+cx,349+cy)
  33. Delay 50
  34. Call Plugin.Bkgnd.LeftClick(Hwnd, 925+cx,349+cy )

  35. Rem q
  36. GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 933+cx,22+cy)
  37. If GetColor = "00FFFF" Then
  38. Call Plugin.Bkgnd.MoveTo(Hwnd, 925+cx,349+cy)
  39. Delay 50
  40. Call Plugin.Bkgnd.LeftClick(Hwnd, 925+cx,349+cy )
  41. Else
  42. Delay 2500
  43. Goto q
  44. End If
  45. For Var2
  46. Delay Var1
  47. Call Plugin.Bkgnd.MoveTo(Hwnd, 362+cx, 270+cy)
  48. Delay 50
  49. Call Plugin.Bkgnd.LeftClick(Hwnd, 362+cx, 270+cy)
  50. Delay Var1
  51. Call Plugin.Bkgnd.MoveTo(Hwnd, 535+cx, 252+cy)
  52. Delay 50
  53. Call Plugin.Bkgnd.LeftClick(Hwnd, 535 + cx, 252 + cy)
  54. Delay Var1
  55. Call Plugin.Bkgnd.MoveTo(Hwnd, 525+cx, 212+cy)
  56. Delay 50
  57. Call Plugin.Bkgnd.LeftClick(Hwnd, 525 + cx, 212 + cy)
  58. Delay Var1
  59. Call Plugin.Bkgnd.MoveTo(Hwnd, 387+cx, 461+cy)
  60. Delay 50
  61. Call Plugin.Bkgnd.LeftClick(Hwnd, 387 + cx, 461 + cy)
  62. Delay Var1
  63. Call Plugin.Bkgnd.MoveTo(Hwnd, 573+cx, 553+cy)
  64. Delay 50
  65. Call Plugin.Bkgnd.LeftClick(Hwnd, 573 + cx, 553 + cy)
  66. Delay Var1
  67. Call Plugin.Bkgnd.MoveTo(Hwnd, 613+cx, 153+cy)
  68. Delay 50
  69. Call Plugin.Bkgnd.LeftClick(Hwnd, 613 + cx, 153 + cy)
  70. Delay Var1
  71. Rem w
  72. GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 377+cx,223+cy)
  73. If GetColor = "BADEF2" Then
  74. Delay 500
  75. Call Plugin.Bkgnd.MoveTo(Hwnd, 360+cx, 273+cy)
  76. Delay 50
  77. Call Plugin.Bkgnd.LeftClick(Hwnd, 360 + cx, 273 + cy)
  78. Else
  79. Delay 10000
  80. Goto w
  81. End If
  82. Delay Var1
  83. Call Plugin.Bkgnd.MoveTo(Hwnd, 529+cx, 253+cy)
  84. Delay 50
  85. Call Plugin.Bkgnd.LeftClick(Hwnd, 529 + cx, 253 + cy)
  86. Delay Var1
  87. Call Plugin.Bkgnd.MoveTo(Hwnd, 521+cx, 339+cy)
  88. Delay 50
  89. Call Plugin.Bkgnd.LeftClick(Hwnd, 521 + cx, 339 + cy)
  90. Delay Var1
  91. Call Plugin.Bkgnd.MoveTo(Hwnd, 486+cx, 340+cy)
  92. Delay 50
  93. Call Plugin.Bkgnd.LeftClick(Hwnd, 486 + cx, 340 + cy)
  94. Delay Var1
  95. Call Plugin.Bkgnd.MoveTo(Hwnd, 617+cx, 365+cy)
  96. Delay 50
  97. Call Plugin.Bkgnd.LeftClick(Hwnd, 617 + cx, 365 + cy)
  98. Delay Var1
  99. Call Plugin.Bkgnd.MoveTo(Hwnd, 336+cx, 502+cy)
  100. Delay 50
  101. Call Plugin.Bkgnd.LeftClick(Hwnd, 336 + cx, 502 + cy)
  102. Delay Var1
  103. Call Plugin.Bkgnd.MoveTo(Hwnd, 929+cx,347+cy)
  104. Delay 50
  105. Call Plugin.Bkgnd.LeftClick(Hwnd, 929+cx,347+cy )
  106. Rem e
  107. GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 934+cx,22+cy)
  108. If GetColor = "00FFFF" Then
  109. For 2
  110. Call Plugin.Bkgnd.MoveTo(Hwnd, 936+ cx,349+cy)
  111. Delay 500
  112. Call Plugin.Bkgnd.LeftClick(Hwnd, 936 + cx, 349 + cy)
  113. Next
  114. Else
  115. Delay 2500
  116. Goto e
  117. End If
  118. Delay Var1
  119. Call Plugin.Bkgnd.MoveTo(Hwnd, 352+cx,274+cy)
  120. Delay 50
  121. Call Plugin.Bkgnd.LeftClick(Hwnd,352+cx,274+cy)
  122. Delay Var1
  123. Call Plugin.Bkgnd.MoveTo(Hwnd, 532+cx,252+cy)
  124. Delay 50
  125. Call Plugin.Bkgnd.LeftClick(Hwnd, 532+cx,252+cy)
  126. Delay Var1
  127. Call Plugin.Bkgnd.MoveTo(Hwnd, 529+cx,338+cy)
  128. Delay 50
  129. Call Plugin.Bkgnd.LeftClick(Hwnd,529+cx,338+cy)
  130. Delay Var1
  131. Call Plugin.Bkgnd.MoveTo(Hwnd, 619+cx,367+cy)
  132. Delay 50
  133. Call Plugin.Bkgnd.LeftClick(Hwnd,619+cx,367+cy)
  134. Delay Var1
  135. Call Plugin.Bkgnd.MoveTo(Hwnd, 595+cx,306+cy)
  136. Delay 50
  137. Call Plugin.Bkgnd.LeftClick(Hwnd,595+cx,306+cy)
  138. Next
复制代码

当年那在论坛实践幼稚真理的女孩、已逐渐蜕变
发新话题 回复该主题