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

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

按键精灵安卓版
立即下载

软件版本:3.6.5
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

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

快捷导航

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

发新话题 回复该主题

出一个魔兽钓鱼自己研究的,可以挂机,不支持后台 [复制链接]

1#
我是一个初学者小菜,然后奉献一下我的之前做的魔兽钓鱼代码,亲测,很快宗师,不会被判作弊。

有什么疑问可以提出来,我这里都是用的很简单的方法。谢谢大家
  1. Dim MySec1,MySec2
  2. MySec1 = Second(Now) 'MySec 包含代表当前秒的数字。
  3. KeyPress ".", 1
  4. Delay 4000
  5. s = GetPixelColor(23,927)'这里是调用出音量管理器,然后钓到鱼会有声音,进度条会升降,颜色不一样,一般没声音是灰色,有声音会有绿色
  6. While True
  7.     Rem sss
  8.     MySec2 = Second(Now)
  9.     If MySec2 - MySec1 > 19 Then '超过19秒,钓鱼时间快完了,设置.为钓鱼快捷键,重新开始
  10.         MySec1= Second(Now)
  11.         KeyPress ".", 1
  12.         Goto sss
  13.     End If
  14.     w = GetPixelColor(23,927) '重新获取同一个点进度条,颜色不一样说明有东西进勾了
  15.     If s <> w Then '最好用第一人称视角,然后其他UI也屏蔽
  16.         FindColorEx 517,288,1458,688, "9E9EB4", 1, 0.8, x, y '获取某个区域鱼漂颜色点,9E9EB4是自己抓取到的鱼漂颜色,红色水就抓蓝色鱼漂
  17.         If x > 0 and y > 0 Then '都大于0说明在屏幕内,鼠标移上去点击收
  18.             MoveTo x, y
  19.             LeftClick 1
  20.         End If
  21.         Delay 1000
  22.         MoveTo 163,943 //等待时候,鼠标放在一个角落位置,不会影响采集区域颜色
  23.         Delay 500
  24.         w = s '重新读音量条
  25.         Delay 500
  26.         KeyPress "S", 1 //轻轻走动一下,防止被判挂机
  27.         Delay 500
  28.         KeyPress "W", 1 //轻轻走动一下,防止被判挂机
  29.         Delay 500
  30.         KeyPress ".", 1 '重新钓鱼
  31.         MySec1= Second(Now)
  32.     End If
  33. Wend
复制代码

2#

为啥我直接复制你的代码 但是我不能 正常钓鱼 主要问题出在鱼上钩了不能收杆 而且有的时候会出现不断抛竿的情况

3#

方便的话 加下我的 QQ 谢谢 就是我的 ID

4#

你好,能给个联系方式吗?我扣扣36698061

5#

楼主在么?这个怎么适配自己的电脑,原理是有点知道了,但是不会操作

6#

33966550 请教问题 加下 谢谢

7#

感谢楼主分享

8#

有没有1.12私服用的

9#

有没有1.12私服用的

发新话题 回复该主题