UserVar HWz=0 "主窗体"
UserVar HWnum=0 "次窗体个数"
UserVar this=1 "电脑定义"
UserVar keynum=0 "开始交易量"
UserVar HW1 "窗体1"
UserVar HW2 "窗体2"
UserVar HW3 "窗体3"
UserVar HW4 "窗体4"
UserVar HW5 "窗体5"
UserVar HW6 "窗体6"
UserVar HW7 "窗体6"
UserVar HW8 "窗体6"
Dim hwarr(8)
hwarr(0) = HW1
hwarr(1) = HW2
hwarr(2) = HW3
hwarr(3) = HW4
hwarr(4) = HW5
hwarr(5) = HW6
hwarr(6) = HW7
hwarr(7) = HW8
Plugin.SimPlugOCR.SetDict("E:\工具\按键精灵8\plugin\传奇国度数字.txt")
Plugin.SimPlugOCR.SetFontColor("E9E4C5")
Plugin.SimPlugOCR.SetBGColor("1B1613")

//
Rem kaishi

Call Plugin.Window.Hide(HWz)
Plugin.Window.Hide (hwarr(0))
Plugin.Window.Hide (hwarr(1))
Plugin.Window.Hide (hwarr(2))
Plugin.Window.Hide (hwarr(3))
Plugin.Window.Hide (hwarr(4))
Plugin.Window.Hide (hwarr(5))
Plugin.Window.Hide (hwarr(6))
Plugin.Window.Hide (hwarr(7))


//Call Plugin.Window.Show(HWz)
//Plugin.Window.Show (hwarr(0))
//Plugin.Window.Show (hwarr(1))
//Plugin.Window.Show (hwarr(2))
//Plugin.Window.Show (hwarr(3))
//Plugin.Window.Show (hwarr(4))
//Plugin.Window.Show (hwarr(5))
//Plugin.Window.Show (hwarr(6))
//Plugin.Window.Show (hwarr(7))
//
Call bianli()

Call Plugin.Window.Hide(HWz)
Plugin.Window.Hide (hwarr(0))
Plugin.Window.Hide (hwarr(1))
Plugin.Window.Hide (hwarr(2))
Plugin.Window.Hide (hwarr(3))
Plugin.Window.Hide (hwarr(4))
Plugin.Window.Hide (hwarr(5))
Plugin.Window.Hide (hwarr(6))
Plugin.Window.Hide (hwarr(7))
 ti=5
For 5
    Call Plugin.Msg.Tips(ti)
    Delay 60000
    ti=ti-1
Next
Goto kaishi


//获得信息
//Call read()
//
//
//If status = 0 Then 
//	//空闲，进行检查
//	//检查，如果是本电脑
//	If computer = this Then 
//		//遍历窗体
//		
//	End If
//	
//End If
//
//
//If status = 1 Then 
//	//进行交易
//	
//End If



//////////////************大方法*********

//遍历
Sub bianli()
    i=0
    For HWnum
        hw=hwarr(i)
        Call Plugin.Window.Show(hw)