1. 用户定义变量 gongdaxunhuan=0 "攻打循环次数(比全托循环少一次)"
  2. 用户定义变量 quntuoxunhuan=0 "全托循环次数"
  3. 用户定义变量 gongxunhuan=0 "共循环次数"
  4. 用户定义变量 gongdazuobiaoX=324 "攻打坐标X"
  5. 用户定义变量 gongdazuobiaoY=287 "攻打坐标Y"
  6. 用户定义变量 chubing=1700 "出兵数目"
  7. 用户定义变量 gongdashijian=98000 "攻打时间(毫秒)需要个人计算"
  8. 用户定义变量 quantuoshijian=70000 "全托时间(毫秒)需要个人计算"
  9. PID=Plugin.Web.Bind("wqm.exe")
  10. Call Plugin.Web.SetSize(1360,900)
  11. Call Plugin.Web.Go("http://s46.917st.com/stwarweb/STWar/Main.aspx")
  12. 标记 登录
  13. 延时500毫秒
  14. 延时500毫秒
  15. FindPic 0,0,1360,900,"Attachment:\登录.bmp",0.9,intX,intY
  16. 如果表达式 (intX > 0 And intY > 0 Then) 为真,则
  17.     鼠标移到 intX , intY
  18.     左键单击
  19.     左键单击
  20. 否则
  21.     跳转到标记 登录
  22.     跳转到标记 登录
  23.     End If
  24.     标记 世界
  25.     延时500毫秒
  26.     延时500毫秒
  27.     FindPic 0,0,1360,900,"Attachment:\世界.bmp",0.9,intX,intY
  28.     如果表达式 (intX > 0 And intY > 0 Then) 为真,则
  29.         鼠标移到 intX , intY
  30.         左键单击
  31.         左键单击
  32.     否则
  33.         跳转到标记 世界
  34.         跳转到标记 世界
  35.         End If
  36.         End If
  37.         延时3000毫秒
  38.         延时3000毫秒
  39.         延时3000毫秒
  40.         延时3000毫秒
  41.         Call Plugin.Web.LeftClick(1033, 536)
  42.         Call Plugin.Web.KeyPress(8)
  43.         Call Plugin.Web.KeyPress(8)
  44.         Call Plugin.Web.KeyPress(8)
  45.         Call Plugin.Web.SendString("gongdazuobiaoX")
  46.         Call Plugin.Web.LeftClick(1083,534)
  47.         Call Plugin.Web.KeyPress(8)
  48.         Call Plugin.Web.KeyPress(8)
  49.         Call Plugin.Web.KeyPress(8)
  50.         Call Plugin.Web.SendString("gongdazuobiaoY")
  51.         Call Plugin.Web.LeftClick(1105,537)
  52.         Call Plugin.Web.LeftClick(1105,537)
  53.         延时500毫秒
  54.         延时500毫秒
  55.         Call Plugin.Web.LeftClick(1105, 537)
  56.         延时500毫秒
  57.         Call Plugin.Web.LeftClick(790, 257)
  58.         延时3000毫秒
  59.         Call Plugin.Web.LeftClick(641, 304)
  60.         延时9000毫秒
  61.         Call Plugin.Web.LeftClick(843, 321)
  62.         延时500毫秒
  63.         Call Plugin.Web.SendString("chubing")
  64.         延时500毫秒
  65.         Call Plugin.Web.LeftClick(753, 530)
  66.         循环 gongxunhuan 遍
  67.             循环 gongdaxunhuan 遍
  68.                 Call Plugin.Web.LeftClick(1105, 537)
  69.                 延时500毫秒
  70.                 Call Plugin.Web.LeftClick(790, 257)
  71.                 延时2200毫秒
  72.                 Call Plugin.Web.LeftClick(641, 304)
  73.                 延时2000毫秒
  74.                 Call Plugin.Web.LeftClick(843, 321)
  75.                 延时800毫秒
  76.                 Call Plugin.Web.SendString("1650")
  77.                 延时100毫秒
  78.                 Call Plugin.Web.LeftClick(753, 530)
  79.                 Next
  80.                 延时gongdashijian毫秒
  81.                 循环 quntuoxunhuan 遍
  82.                     Call Plugin.Web.LeftClick(363, 171)
  83.                     延时1000毫秒
  84.                     Call Plugin.Web.LeftClick(593, 334)
  85.                     延时2200毫秒
  86.                     Next
  87.                     延时quantuoshijian毫秒
  88.                     Next