gongdaxunhuan=0 "攻打循环次数（比全托循环少一次）"
UserVar quntuoxunhuan=0 "全托循环次数"
UserVar gongxunhuan=0 "共循环次数"
UserVar gongdazuobiaoX=324 "攻打坐标X"
UserVar gongdazuobiaoY=287 "攻打坐标Y"
UserVar chubing=1700 "出兵数目"
UserVar gongdashijian=98000 "攻打时间（毫秒）需要个人计算"
UserVar quantuoshijian=70000 "全托时间（毫秒）需要个人计算"
PID=Plugin.Web.Bind("wqm.exe")
Call Plugin.Web.SetSize(1360,900)
Call Plugin.Web.Go("http://s46.917st.com/stwarweb/STWar/Main.aspx")
Rem 登录
Delay 500

FindPic 0,0,1360,900,"Attachment:\登录.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
	LeftClick 1

Else 
Goto 登录

End If
Rem 世界
Delay 500

FindPic 0,0,1360,900,"Attachment:\世界.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
	LeftClick 1

Else 
Goto 世界

End If

Delay 3000



Call Plugin.Web.LeftClick(1033, 536)
Call Plugin.Web.KeyPress(8)
Call Plugin.Web.KeyPress(8)
Call Plugin.Web.KeyPress(8)
Call Plugin.Web.SendString("gongdazuobiaoX")
Call Plugin.Web.LeftClick(1083,534)
Call Plugin.Web.KeyPress(8)
Call Plugin.Web.KeyPress(8)
Call Plugin.Web.KeyPress(8)
Call Plugin.Web.SendString("gongdazuobiaoY")
Call Plugin.Web.LeftClick(1105,537)

Delay 500

Call Plugin.Web.LeftClick(1105, 537)
Delay 500
Call Plugin.Web.LeftClick(790, 257)
Delay 3000
Call Plugin.Web.LeftClick(641, 304)
Delay 9000
Call Plugin.Web.LeftClick(843, 321)
Delay 500
Call Plugin.Web.SendString("chubing")
Delay 500
Call Plugin.Web.LeftClick(753, 530)
For gongxunhuan
For gongdaxunhuan
Call Plugin.Web.LeftClick(1105, 537)
Delay 500
Call Plugin.Web.LeftClick(790, 257)
Delay 2200
Call Plugin.Web.LeftClick(641, 304)
Delay 2000
Call Plugin.Web.LeftClick(843, 321)
Delay 800
Call Plugin.Web.SendString("1650")
Delay 100
Call Plugin.Web.LeftClick(753, 530)
        Next
    Delay gongdashijian
    For quntuoxunhuan
Call Plugin.Web.LeftClick(363, 171)
Delay 1000
Call Plugin.Web.LeftClick(593, 334)
Delay 2200
Next
Delay quantuoshijian
Next