UserVar zbname="值班员" "人名"
//昨天起始位置:0-不,1-7,2-9,3-11,4-13,5-15,6-17,7-19,8-21,9-23
UserVar Yesterdaycs="0" "昨天起始位置:0-不,1-7,2-9,3-11,4-13,5-15,6-17,7-19,8-21,9-23"
//今天结束位置:0-不,1-7,2-9,3-11,4-13,5-15,6-17,7-19,8-21,9-23
UserVar todaycs="0"     "今天结束位置:0-不,9-7,8-9,7-11,6-13,5-15,4-17,3-19,2-21,1-23"
UserVar ysed="2011年10月10日" "昨天时间"
UserVar tod="2011年10月11日" "今天时间"
 nowd="2011年10月11日"
//0-不,1为昨天,2为今天 自动修改,无需操作
 cscs="0" 



ProcessID=Plugin.Web.Bind("wqm.exe")
Delay 2000
If ProcessID=0 then
  MessageBox "网页按键精灵没有运行"
  EndScript
End If
Call Plugin.Web.Tips("脚本开始运行")
Call Plugin.Web.Go("http://220.189.211.69:85/DWIndexPage.aspx")
Delay 5000

Rem start

//昨天起始

cscs=1

If Yesterdaycs =1 Then
  		nowd = ysed &"07时30分"
    	zbname="王国友"
		Goto tb
		Delay 5000
		
ElseIf Yesterdaycs = 2 Then
  		nowd =ysed &"09时30分"
  		zbname = "王国友"
		Goto tb
		Delay 5000
		
elseIf Yesterdaycs =3 Then
  		nowd = ysed &"11时30分"
  		zbname="王国友"
		Goto tb
		Delay 5000

ElseIf Yesterdaycs = 4 Then
  		nowd =ysed &"13时30分"
  		zbname="王国友"
		Goto tb
		Delay 5000

ElseIf Yesterdaycs =5 Then
  		nowd = ysed &"15时30分"
  		zbname="李涛"
		Goto tb
		Delay 5000
 	
ElseIf Yesterdaycs =6 Then
  		nowd = ysed &"17时30分"
  		zbname="李涛"
		Goto tb
		Delay 5000
 	
ElseIf Yesterdaycs =7 Then
  		nowd =ysed &"19时30分"
  		zbname="李涛"
		Goto tb
		Delay 5000
 	
ElseIf Yesterdaycs =8 Then
  		nowd =ysed &"21时30分"
  		zbname="李涛"
		Goto tb
		Delay 5000
 	
ElseIf Yesterdaycs =9 Then
  		nowd = ysed &"23时50分"
  		zbname="李涛"
		Goto tb
		Delay 5000
End If


//今天起始
cscs=2


If todaycs =9 Then
  		nowd = tod &"07时30分"
    	zbname="王国友"
		Goto tb
		Delay 5000

ElseIf todaycs =8 Then
  		nowd = tod &"09时30分"
  		zbname = "王国友"
		Goto tb
		Delay 5000