看了zjkl19大神发的自动挖矿帖子，下载下来结果没法用，就自己做了个，感觉还行，分享下···
下载地址：
http://www.uudisc.com/user/zhq07300629/file/3899089

果断顶

我用着效果相当不错，用2.0版挖的那效果，爽····
就不知道各位用着感觉如何··

回复：4楼
不错！不错！效果非常好，解决了全屏的问题。
PS:能不能把源代码共享一下，看看是怎么实现的。

回复：5楼
a = array("849ABD","6B79E7")
While true
     i=0
     For 2
call FindCenterColor(0,0,800,500,a(i),x,y)
   If x>0 and y>0 Then
             MoveTo x,y
         LeftClick 1
         End if
i=i+1
         Next
       endwhile


回复：6楼
看看这样兼容性会不会更好一点？防止有的电脑屏幕分辨率过大导致兼容性问题。
Dim allx,ally
allx=Plugin.Sys.GetScRX()    
ally=Plugin.Sys.GetScRY()
a = array("849ABD","6B79E7")
While true
      i=0
      For 2
        call FindCenterColor(0,0,allx*0.8,ally*0.8,a(i),x,y)
        If x>0 and y>0 Then
              MoveTo x,y
             LeftClick 1
         End if
         i=i+1
       Next
endwhile


回复：7楼
个人觉的没有必要···不过加上应该能起到一定的作用··

回复：8楼
总的来说是不错，收藏了。

找了好久的脚本啊，非常感谢！

回复：11楼
自动打猎做出来了··可惜有个问题··就是猎不到熊···
正在想办法···

回复：12楼
打熊建议用找图命令findpic，找那个黄色的圈，如图所示，找到就打（我就是那样子实现的）。

缺点就是每台电脑如果全屏的话这个圈都不一样大，只好窗口化。

哦对了..我用D3D窗口化后或者兼容模式中的640*480都可以完美运行此脚本,分辨率不是问题滴

怎么打不开啊