If ebsubxy<>"-1|-1"
        Plugin ebsubxy=Bkgnd.FindColor(hwnd,354-main_win_left,118-main_win_top,356-main_win_left,120-main_win_top,"DFE5EE")
        If ebsubxy<>"-1|-1"
            Plugin BGKM5.LClick(hwnd,360-main_win_left,115-main_win_top)
            Plugin BGKM5.LClick(hwnd,360-main_win_left,115-main_win_top)
        Else 
            Goto restarteb
        EndIf 
    Else 
        Goto restarteb
    EndIf 
    Delay maxdly
    //找食物： 梨："63FEFF"
    Plugin ebsubxy=Bkgnd.FindColor(hwnd,456-main_win_left,236-main_win_top,906-main_win_left,506-main_win_top,"63FEFF")
    breadxy=split(ebsubxy,"|",-1,1)
    If ebsubxy<>"-1|-1"
        ebx=breadxy(0)*1
        eby=breadxy(1)*1
        Plugin BGKM5.LClick(hwnd,ebx+23,eby-14)
        //获取弹出窗口页面的句柄，点击确定按钮....
        MoveTo ebx+23,eby-14+67
        //点击确定  LeftClick 1
        //msgbox "吃就点"
    Else 
        TracePrint "没找到食物！"
        eatbread=0
    EndIf 
    Delay maxdly
    Plugin BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
    Plugin BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
    Plugin BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
    Delay mindly
Return 
Sub makeoredustsub
    //过程花费时间：4*maxdly
    makeoredusttimes=makeoredusttimes+1
    TracePrint "磨矿粉： " & makeoredusttimes & " 延时30秒"
    Plugin BGKM5.LClick(hwnd,572-main_win_left,111-main_win_top)
    Plugin BGKM5.LClick(hwnd,572-main_win_left,111-main_win_top)
    //EndIf
    Delay maxdly
    //MoveTo 850 364
    Plugin BGKM5.LClick(hwnd,852-main_win_left,364-main_win_top)
    Plugin BGKM5.LClick(hwnd,852-main_win_left,364-main_win_top)
    Plugin BGKM5.LClick(hwnd,852-main_win_left,364-main_win_top)
    Delay maxdly
    //MoveTo 850 388
    Plugin BGKM5.LClick(hwnd,846-main_win_left,388-main_win_top)
    Plugin BGKM5.LClick(hwnd,846-main_win_left,388-main_win_top)
    Plugin BGKM5.LClick(hwnd,846-main_win_left,388-main_win_top)
    Delay maxdly
    //MoveTo 850 413
    Plugin BGKM5.LClick(hwnd,846-main_win_left,413-main_win_top)
    Plugin BGKM5.LClick(hwnd,846-main_win_left,413-main_win_top)
    Plugin BGKM5.LClick(hwnd,846-main_win_left,413-main_win_top)
    Delay mindly
    //maketimes=maketimes-1
    //EndWhile
    If secondmdust<>1
        //Delay maxdly
        Plugin BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
        Plugin BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
        Plugin BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
    EndIf 
Return 
EndScript 
Sub renewDrgGameInf
    tolsecond=datediff("s",begintime,now)
    sl=tolsecond mod 60
    ml=int(tolsecond/60)
    hl=int(tolsecond/3600)
    dl=int(tolsecond/(3600*24))
    strmsg=""
    howlong=dl & "天" & hl & "时" & ml & "分" & sl & "秒"
    strMsg=strmsg & "怪物类型：" & monst(0) & "[" &  monst(1) & "]" & vbcrlf
    strmsg=strmsg & "刷怪次数：" & tolTimes & vbcrlf
    strmsg=strmsg & "死亡复活：" & dienums & "/" & relive & vbcrlf
    strmsg=strmsg & "经验增长：" & tolExp-dienums*perExp & "%" & vbcrlf
    strmsg=strmsg & "开始时间：" & begintime & vbcrlf
    strmsg=strmsg & "结束时间：" & time & vbcrlf
    strmsg=strmsg & "总计时间：" & howlong & vbcrlf
    strmsg=strmsg & "平均经验：" & int(toltimes*3600/(tolsecond+1))  & "次," & round((tolExp-dienums*perexp)*3600/(tolsecond+1),2)  & "经验/每小时" & vbcrlf
    strmsg=strmsg & "当前延时：" & bldUpTime & vbcrlf
    strmsg=strmsg & "当前级别预计耗时：" & round(100*tolsecond/((tolExp-dienums*perexp)*3600+1),2) & "小时!" & vbcrlf
    VBSBegin 
        ietxt(0).innerText=strmsg
    VBSEnd 
Return 
EndScript 
Sub renewDrgGameInf2
    VBSBegin 
        ietxt(1).innerText=gameinfotext
    VBSEnd 
Return 
EndScript 
Sub getdrgCtlInf
    dim tmpmonst
    VBSBegin 
        with ie.document.all
        tmpmonst=.selectmonst.value