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

软件版本: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. sd=1000 //按照网速与配置调整
  2. Hwnd = Plugin.Window.MousePoint()
  3. XY= Plugin.Bkgnd.FindColor(hwnd,0,0,1024,768,"7A7A7A")
  4. aa = split(XY, "|")
  5. x = aa(0)
  6. y = aa(1)
  7. If x =-1 Then
  8. MessageBox "定位起点失败"
  9. Else
  10. cx = x
  11. TracePrint x
  12. cy = y
  13. TracePrint y
  14. End If
  15. Call 任务栏判断
  16. Call 模式判断
  17. Do //跑向NPC人物
  18. Delay 500
  19. 起始地图判断1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 275+cx,283+cy)
  20. 起始地图判断2 = Plugin.Bkgnd.GetPixelColor(Hwnd, 269+cx,416+cy)
  21. TracePrint 起始地图判断1
  22. TracePrint 起始地图判断2
  23. If 起始地图判断1 = "526055" or 起始地图判断2 = "213A57" Then
  24. Call 后台坐标(914,349)
  25. Exit Do
  26. Else
  27. Delay 500
  28. Call 后台坐标(337, 505)
  29. Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
  30. End If
  31. Loop
  32. Do //接取刺探任务
  33. NPC位置判断1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 882+cx,358+cy)
  34. NPC位置判断2 = Plugin.Bkgnd.GetPixelColor(Hwnd, 892+cx,358+cy)
  35. If NPC位置判断1 = "29748B" or NPC位置判断2 = "2D809A" Then
  36. Delay 500
  37. Call 后台坐标(910,351)
  38. Delay 500
  39. Call 后台坐标(910,351)
  40. Call 领取任务
  41. Exit Do
  42. End If
  43. Delay 500
  44. Loop
  45. Do //完成任务
  46. Delay 10000*2
  47. 乞丐位置判断1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 350+cx,312+cy)
  48. 乞丐位置判断2 = Plugin.Bkgnd.GetPixelColor(Hwnd, 367+cx,322+cy)
  49. If 乞丐位置判断1 = "07DD07" or 乞丐位置判断2 = "07DD07" Then
  50. Call 完成任务()
  51. Exit Do
  52. End If
  53. Loop
  54. Function 后台坐标(x, y)
  55. Call Plugin.Bkgnd.MoveTo(Hwnd, x+cx, y+cy)
  56. Delay 50
  57. Call Plugin.Bkgnd.LeftClick(Hwnd, x+cx, y+cy)
  58. Delay sd
  59. End Function
  60. Sub 任务栏判断
  61. //判断任务栏是否存在
  62. Color1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 911+cx, 202+cy)
  63. If Color1 = "0000FF" Then
  64. Color2 = Plugin.Bkgnd.GetPixelColor(Hwnd, 956+cx,207+cy)
  65. If Color2 = "FFFFFF" Then
  66. Delay 200
  67. Call 后台坐标(958,203)
  68. End If
  69. Else
  70. Delay 200
  71. Call 后台坐标(576,552)
  72. Call 后台坐标(829,100)
  73. Call 后台坐标(875,70)
  74. Call 后台坐标(958,203)
  75. End If
  76. End Sub
  77. Sub 领取任务
  78. Call 后台坐标(361,273)
  79. Call 后台坐标(535,254)
  80. Call 后台坐标(553,212)
  81. Call 后台坐标(389,461)
  82. Call 后台坐标(888,241)
  83. End Sub
  84. Sub 模式判断
  85. 模式判断1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 815+cx,39+cy)
  86. 模式判断2 = Plugin.Bkgnd.GetPixelColor(Hwnd, 850+cx,38+cy)
  87. If 模式判断1 = "526055" or 模式判断2 = "213A57" Then
  88. Call 后台坐标(829,40)
  89. End If
  90. End Sub
  91. Sub 完成任务
  92. Delay 500
  93. Call 后台坐标(359,280)
  94. Call 后台坐标(538,252)
  95. Call 后台坐标(520,340)
  96. Call 后台坐标(484,339)
  97. Call 后台坐标(620,365)
  98. Call 后台坐标(341,501)
  99. Do
  100. 起始地图判断1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 275+cx,283+cy)
  101. 起始地图判断2 = Plugin.Bkgnd.GetPixelColor(Hwnd, 269+cx,416+cy)
  102. If 起始地图判断1 = "526055" or 起始地图判断2 = "213A57" Then
  103. Call 后台坐标(899,241)
  104. Delay 500
  105. Exit Do
  106. End If
  107. Loop
  108. Do
  109. 指挥使NPC判断 = Plugin.Bkgnd.GetPixelColor(Hwnd, 355+cx,273+cy)
  110. If 指挥使NPC判断 = "8CABD0" Then
  111. Call 后台坐标(352,274)
  112. Call 后台坐标(537,254)
  113. Call 后台坐标(556,337)
  114. Call 后台坐标(617,365)
  115. Call 后台坐标(592,312)
  116. Exit Do
  117. End If
  118. Delay 500
  119. Loop
  120. End Sub
复制代码

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