UserVar hysl=1 你有多少好友
UserVar ydck=DropList{是:1|否:0}=0 启动后是否将窗口移出桌面
UserVar dlzt=DropList{网页记录了登陆状态:0|需要登陆用户:1}=0 登陆状态
UserVar zh=********* 帐号
UserVar mm=******* 密码
Plugin Web.Bind("wqm.exe")
If dlzt=1
    Plugin Web.Tips("打开校内网登陆界面")
    Plugin Web.Go("http://reg.xiaonei.com/xn6206.do?ss=10112&rt=26")
    Plugin Web.HtmlInput(zh,"id:email")
    Plugin Web.HtmlInput(mm,"id:password")
    Plugin Web.HtmlClick("id:login")
EndIf 
Plugin Web.Tips("等待10秒进入游戏界面")
Plugin Web.Go("http://apps.xiaonei.com/happyfarm?origin=103")
Delay 10000
dwx=-1
While dwx=-1
    //设置网页大小
    Plugin Web.Tips("设置调整WQM界面大小")
    Plugin Web.SetSize(1156,838)
    Plugin Web.ScrollTo(0,70)
    Delay 2000
    Plugin Web.Tips("鼠标拖动定位1查找")
    VBSCall FindPic(0,0,1024,768,"Attachment:\定位1.bmp",0.7,dwx,dwy)
    If dwx>0 and dwy>0
        MoveTo dwx-75,dwy+389
        LeftDown 1
        Delay 500
        MoveTo dwx-75-43,dwy+389-138
        LeftUp 1
        Delay 500
    Else 
        Plugin Web.Tips("鼠标拖动定位2查找")
        VBSCall FindPic(0,0,1024,768,"Attachment:\定位2.bmp",0.7,dwx,dwy)
        If dwx>0 and dwy>0
            MoveTo dwx-116,dwy+364
            LeftDown 1
            Delay 500
            MoveTo dwx-116-43,dwy+364-138
            LeftUp 1
            Delay 500
        EndIf 
    EndIf 
EndWhile 
If ydck=1
    //下面这句是得到当前最前面的窗口句柄
    Plugin Hwnd = Window.Foreground()
    Plugin Web.Tips("WQM窗体被移动到屏幕外面")
    //下面这句是移动窗口到(5000,5000)位置
    Plugin Window.Move(Hwnd, 5000, 5000)
EndIf 
//设置好友菜单变量
While true
    j=int(hysl / 10)+1
    l=hysl mod 10
    i=10:k=0
    For j
        n=0
        For i
            If k=j and i>l
                Goto [结束]
            EndIf 
            //跳过自己
            If k=0 and n=0
            Else 
                djwzx=798:djwzy=316+n*32:cs=1
                Gosub [打开好友菜单]
                Gosub [采集]
            EndIf 
            n=n+1
        EndFor 
        djwzx=824:djwzy=619:cs=1
        Gosub [打开好友菜单]
        k=k+1
    EndFor 
    //测试句。需要去掉
    //测试句。需要去掉
    Rem [结束]
    djwzx=824:djwzy=619:cs=j
    Gosub [打开好友菜单]
EndWhile 
EndScript 
Sub [采集]
    Plugin Web.Tips("开始偷好友的果实")
    Plugin Web.LeftClick(552,622)
    Delay 1000
    //设置环境
    cdx=345:cdy=245
    hcz=190/2:scz=90/2:ydcs=6:wbl=0:nbl=0
    //进行收割农作物
    For 3
        For ydcs
            Plugin Web.LeftClick(cdx+hcz*(nbl-wbl),cdy+scz*(nbl+wbl))
            nbl=nbl+1
            Delay 1000
        EndFor 
        nbl=0
        wbl=wbl+1
    EndFor