1.             如果表达式 (ebsubxy<>"-1|-1") 为真,则
  2.                 调用插件命令 ebsubxy=Bkgnd.FindColor(hwnd,354-main_win_left,118-main_win_top,356-main_win_left,120-main_win_top,"DFE5EE")
  3.                 如果表达式 (ebsubxy<>"-1|-1") 为真,则
  4.                     调用插件命令 BGKM5.LClick(hwnd,360-main_win_left,115-main_win_top)
  5.                     调用插件命令 BGKM5.LClick(hwnd,360-main_win_left,115-main_win_top)
  6.                 否则
  7.                     跳转到标记 restarteb
  8.                 条件结束
  9.             否则
  10.                 跳转到标记 restarteb
  11.             条件结束
  12.             延时maxdly毫秒
  13.             //找食物： 梨："63FEFF"
  14.             调用插件命令 ebsubxy=Bkgnd.FindColor(hwnd,456-main_win_left,236-main_win_top,906-main_win_left,506-main_win_top,"63FEFF")
  15.             breadxy=split(ebsubxy,"|",-1,1)
  16.             如果表达式 (ebsubxy<>"-1|-1") 为真,则
  17.                 ebx=breadxy(0)*1
  18.                 eby=breadxy(1)*1
  19.                 调用插件命令 BGKM5.LClick(hwnd,ebx+23,eby-14)
  20.                 //获取弹出窗口页面的句柄，点击确定按钮....
  21.                 鼠标移到 ebx+23 , eby-14+67
  22.                 //点击确定 LeftClick 1
  23.                 //msgbox "吃就点"
  24.             否则
  25.                 在调试状态下向调试窗口输出 "没找到食物！"
  26.                 eatbread=0
  27.             条件结束
  28.             延时maxdly毫秒
  29.             调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  30.             调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  31.             调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  32.             延时mindly毫秒
  33.         子程序结束,回到调用处
  34.         子程序 makeoredustsub
  35.             //过程花费时间：4*maxdly
  36.             makeoredusttimes=makeoredusttimes+1
  37.             在调试状态下向调试窗口输出 "磨矿粉： " & makeoredusttimes & " 延时30秒"
  38.             调用插件命令 BGKM5.LClick(hwnd,572-main_win_left,111-main_win_top)
  39.             调用插件命令 BGKM5.LClick(hwnd,572-main_win_left,111-main_win_top)
  40.             //EndIf
  41.             延时maxdly毫秒
  42.             //MoveTo 850 364
  43.             调用插件命令 BGKM5.LClick(hwnd,852-main_win_left,364-main_win_top)
  44.             调用插件命令 BGKM5.LClick(hwnd,852-main_win_left,364-main_win_top)
  45.             调用插件命令 BGKM5.LClick(hwnd,852-main_win_left,364-main_win_top)
  46.             延时maxdly毫秒
  47.             //MoveTo 850 388
  48.             调用插件命令 BGKM5.LClick(hwnd,846-main_win_left,388-main_win_top)
  49.             调用插件命令 BGKM5.LClick(hwnd,846-main_win_left,388-main_win_top)
  50.             调用插件命令 BGKM5.LClick(hwnd,846-main_win_left,388-main_win_top)
  51.             延时maxdly毫秒
  52.             //MoveTo 850 413
  53.             调用插件命令 BGKM5.LClick(hwnd,846-main_win_left,413-main_win_top)
  54.             调用插件命令 BGKM5.LClick(hwnd,846-main_win_left,413-main_win_top)
  55.             调用插件命令 BGKM5.LClick(hwnd,846-main_win_left,413-main_win_top)
  56.             延时mindly毫秒
  57.             //maketimes=maketimes-1
  58.             //EndWhile
  59.             如果表达式 (secondmdust<>1) 为真,则
  60.                 //Delay maxdly
  61.                 调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  62.                 调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  63.                 调用插件命令 BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
  64.             条件结束
  65.         子程序结束,回到调用处
  66.     脚本停止运行
  67.     子程序 renewDrgGameInf
  68.         tolsecond=datediff("s",begintime,now)
  69.         sl=tolsecond mod 60
  70.         ml=int(tolsecond/60)
  71.         hl=int(tolsecond/3600)
  72.         dl=int(tolsecond/(3600*24))
  73.         strmsg=""
  74.         howlong=dl & "天" & hl & "时" & ml & "分" & sl & "秒"
  75.         strMsg=strmsg & "怪物类型：" & monst(0) & "[" & monst(1) & "]" & vbcrlf
  76.         strmsg=strmsg & "刷怪次数：" & tolTimes & vbcrlf
  77.         strmsg=strmsg & "死亡复活：" & dienums & "/" & relive & vbcrlf
  78.         strmsg=strmsg & "经验增长：" & tolExp-dienums*perExp & "%" & vbcrlf
  79.         strmsg=strmsg & "开始时间：" & begintime & vbcrlf
  80.         strmsg=strmsg & "结束时间：" & time & vbcrlf
  81.         strmsg=strmsg & "总计时间：" & howlong & vbcrlf
  82.         strmsg=strmsg & "平均经验：" & int(toltimes*3600/(tolsecond+1)) & "次," & round((tolExp-dienums*perexp)*3600/(tolsecond+1),2) & "经验/每小时" & vbcrlf
  83.         strmsg=strmsg & "当前延时：" & bldUpTime & vbcrlf
  84.         strmsg=strmsg & "当前级别预计耗时：" & round(100*tolsecond/((tolExp-dienums*perexp)*3600+1),2) & "小时!" & vbcrlf
  85.         开始VBScript块
  86.             ietxt(0).innerText=strmsg
  87.         结束VBScript块
  88.     子程序结束,回到调用处
  89. 脚本停止运行
  90. 子程序 renewDrgGameInf2
  91.     开始VBScript块
  92.         ietxt(1).innerText=gameinfotext
  93.     结束VBScript块
  94. 子程序结束,回到调用处
  95. 脚本停止运行
  96. 子程序 getdrgCtlInf
  97.     dim tmpmonst
  98.     开始VBScript块
  99.         with ie.document.all
  100.         tmpmonst=.selectmonst.value