End If
s1=InStr(ZJ10,",")
If s1>0 Then
  MF(10,1)=int(Mid(ZJ10,1,s1-1)):MF(10,2)=int(Mid(ZJ10,s1+1))
Else
  MF(10,1)=0:MF(10,2)=0
End If
s1=InStr(NT1,",")
If s1>0 Then
  NT(1,1)=int(Mid(NT1,1,s1-1)):NT(1,2)=int(Mid(NT1,s1+1))
Else
  NT(1,1)=0:NT(1,2)=0
End If
s1=InStr(NT2,",")
If s1>0 Then
  NT(2,1)=int(Mid(NT2,1,s1-1)):NT(2,2)=int(Mid(NT2,s1+1))
Else
  NT(2,1)=0:NT(2,2)=0
End If
s1=InStr(NT3,",")
If s1>0 Then
  NT(3,1)=int(Mid(NT3,1,s1-1)):NT(3,2)=int(Mid(NT3,s1+1))
Else
  NT(3,1)=0:NT(3,2)=0
End If
s1=InStr(NT4,",")
If s1>0 Then
  NT(4,1)=int(Mid(NT4,1,s1-1)):NT(4,2)=int(Mid(NT4,s1+1))
Else
  NT(4,1)=0:NT(4,2)=0
End If
s1=InStr(NT5,",")
If s1>0 Then
  NT(5,1)=int(Mid(NT5,1,s1-1)):NT(5,2)=int(Mid(NT5,s1+1))
Else
  NT(5,1)=0:NT(5,2)=0
End If

Dim DQCK,cki //记录当前窗口句柄，当前需要激活的窗口序号
DQCK=""
if CK1=1 and CKJB1<>"" then
  cki=1 
ElseIf CK2=1 and CKJB2<>"" then
  cki=2
ElseIf CK3=1 and CKJB3<>"" then
  cki=3
Else
  cki=0
End If
If cki=0 then
  
  //MessageBox("未指定窗口句柄，默认只对当前窗口进行挂机操作")
  //Call Plugin.Window.Max(Hwnd)
Else
  
End If
MessageBox("【作者】幻狼——10区——弑军团——坏开 欢迎加入本军团")
MFi=1 //当前需要升级的建筑
While true //让下面的脚本一直执行，直到终止按钮被按
  if DateDiff("s",t1,now)>=1800 then
      KeyPress 116,1   //设置成1个小时刷新一次，避免卡住的现象
      t1=now
  End If
  If cki=1 then
     Call Plugin.Window.Max(CKJB1)
     Call Plugin.Window.Active(CKJB1)      
     if CK2=1 and CKJB2<>"" Then    //查找下一个应该激活的窗口
       cki=2
     ElseIf CK3=1 and CKJB3<>"" then
       cki=3
     Else
       cki=1
     End If
  ElseIf cki=2 then
     Call Plugin.Window.Max(CKJB2)
     Call Plugin.Window.Active(CKJB2)      
     if CK3=1 and CKJB3<>"" Then    //查找下一个应该激活的窗口
       cki=3
     ElseIf CK1=1 and CKJB1<>"" then
       cki=1
     Else
       cki=2
     End If
  ElseIf cki=3 then
     Call Plugin.Window.Max(CKJB3)
     Call Plugin.Window.Active(CKJB3) 
     if CK1=1 and CKJB1<>"" Then    //查找下一个应该激活的窗口
       cki=1
     ElseIf CK3=2 and CKJB2<>"" then
       cki=2
     Else
       cki=3
     End If
  end if


If MinFang=1 Then  //升级建筑
    Delay 500
    //循环里设置延时  防止系统内存占用太高
    //VBSCall FindCenterColor(0,0,1024,768,Cor(s),x,y)