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


ElseIf todaycs =6 Then
  		nowd =tod &"13时30分"
  		zbname="王国友"
		Goto tb
		Delay 5000
		
ElseIf todaycs =5 Then
  	
  		nowd =tod &"15时30分"
  		zbname="李涛"
		Goto tb
		Delay 5000
		
ElseIf todaycs =4 Then
	  	
  		nowd =tod &"17时30分"
  		zbname="李涛"
		Goto tb
		Delay 5000
 	
ElseIf todaycs =3 Then
  	
  		nowd =tod &"19时30分"
  		zbname="李涛"
		Goto tb
		Delay 5000
 	
ElseIf todaycs =2 Then
	  	
  		nowd =tod &"21时30分"
  		zbname="李涛"
		Goto tb
		Delay 5000
 	
ElseIf todaycs =1 Then
  		nowd = tod &"23时50分"
  		zbname="李涛"
		Goto tb
		Delay 5000
End If
	


Sub OnScriptExit()
  Call Plugin.Web.Tips("脚本停止运行")
End Sub



EndScript 


Rem tb
Plugin.Web.TabNew 
Call Plugin.Web.SetSize(1440,876)
Call Plugin.Web.Go("http://220.189.211.69:85/DWXXPage/DWJLPage/FHXCJLAddPage.aspx")
Call Plugin.Web.ScrollTo(0,0)
Delay 5000
Call Plugin.Web.HtmlSelect("0","id:ctl00_MainContent_dropXCQK")
Delay 1000
Call Plugin.Web.HtmlSelect("0","id:ctl00_MainContent_dropXCQK")
Delay 1000
Call Plugin.Web.HtmlSelect("3","id:ctl00_MainContent_dropZGQK")
Delay 1000
Call Plugin.Web.HtmlSelect("3","id:ctl00_MainContent_dropZGQK")
Delay 1000
Call Plugin.Web.HtmlInput("潘永森","id:ctl00_MainContent_txtZRR")
Delay 1000
Call Plugin.Web.HtmlInput(nowd,"id:ctl00_MainContent_txtXCSJ")
Delay 1000
Call Plugin.Web.HtmlInput(zbname,"id:ctl00_MainContent_txtXCR")
Delay 1000
Call Plugin.Web.HtmlInput("卖场所有区域", "id:ctl00_MainContent_txtXCBW")
Delay 5000
Call Plugin.Web.HtmlClick("id:ctl00_MainContent_btnAdd")
Delay 5000
//KeyPress "Enter", 1

//获取前台窗口的句柄

//Hwnd1 = Plugin.Window.Foreground()
//Delay 2000
//KeyPress "Enter", 1
//Delay 1000
//Call Plugin.Window.SendKeyPress(Hwnd, "Enter")
BeginThread 检测网页弹窗()
Delay 5000
If cscs = 1 Then 
	Yesterdaycs=Yesterdaycs+1
	cscs=0
	ElseIf cscs = 2 Then
	todaycs = todaycs - 1