自动扔东西脚本

Sub 丢草
    VBS dim yanshi yanshi1 yanshi2
    UserVar yanshi=90
    UserVar yanshi1=200
    UserVar yanshi2=1000
    Rem 丢弃
    Delay yanshi
    VBSCall FindPic(0,0,1024,768,"D:\diuqi.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo (x+4) (y+4)
        Delay yanshi1
        LeftClick 1
        Goto 找草
    EndIf
    Rem 找草
    Delay yanshi
    Delay yanshi2
    VBSCall FindPic(0,0,1024,768,"D:\cao.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo (x+17) (y+12)
        Delay yanshi1
        LeftClick 1
        Goto max
    EndIf
    Rem max
    Delay yanshi
    VBSCall FindPic(0,0,1024,768,"D:\max.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo (x+4) (y+4)
        Delay yanshi1
        LeftClick 1
        Goto ok
    EndIf
    Rem ok
    Delay yanshi
    VBSCall FindPic(0,0,1024,768,"D:\ok.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo (x+4) (y+4)
        Delay yanshi1
        LeftClick 1
        Goto queding
        Rem queding
        Delay yanshi
        VBSCall FindPic(0,0,1024,768,"D:\queding.bmp",0.9,x,y)
        If x>=0 and y>=0
            MoveTo (x+4) (y+4)
            Delay yanshi1
            LeftClick 1
        EndIf
    Return 丢草

图片自己截图吧  D:\queding.bmp  把这个改改就行了

这个只是个框架 我在锡兰丢草用的  改改后随便丢什么都可以~~~~

写的可能不好  希望大家多多指教~~~