- 用户定义变量 zbname="值班员" "人名"
- 注释:昨天起始位置:0-不,1-7,2-9,3-11,4-13,5-15,6-17,7-19,8-21,9-23
- 用户定义变量 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
- 用户定义变量 todaycs="0" "今天结束位置:0-不,9-7,8-9,7-11,6-13,5-15,4-17,3-19,2-21,1-23"
- 用户定义变量 ysed="2011年10月10日" "昨天时间"
- 用户定义变量 tod="2011年10月11日" "今天时间"
- 令 nowd = "2011年10月11日"
- 注释:0-不,1为昨天,2为今天 自动修改,无需操作
- 令 cscs = "0"
- 令 ProcessID = Web.Bind("wqm.exe")
- 延时 2000 毫秒
- 如果 ProcessID = 0 则
- 弹出窗口 "网页按键精灵没有运行"
- 脚本停止运行
- 条件结束
- 调用 Web.Tips("脚本开始运行")
- 调用 Web.Go("http://220.189.211.69:85/DWIndexPage.aspx")
- 延时 5000 毫秒
- 标记 start
- 注释:昨天起始
- 令 cscs = 1
- 如果 Yesterdaycs = 1 则
- 令 nowd = ysed & "07时30分"
- 令 zbname = "王国友"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 Yesterdaycs = 2 则
- 令 nowd = ysed & "09时30分"
- 令 zbname = "王国友"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 Yesterdaycs = 3 则
- 令 nowd = ysed & "11时30分"
- 令 zbname = "王国友"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 Yesterdaycs = 4 则
- 令 nowd = ysed & "13时30分"
- 令 zbname = "王国友"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 Yesterdaycs = 5 则
- 令 nowd = ysed & "15时30分"
- 令 zbname = "李涛"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 Yesterdaycs = 6 则
- 令 nowd = ysed & "17时30分"
- 令 zbname = "李涛"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 Yesterdaycs = 7 则
- 令 nowd = ysed & "19时30分"
- 令 zbname = "李涛"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 Yesterdaycs = 8 则
- 令 nowd = ysed & "21时30分"
- 令 zbname = "李涛"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 Yesterdaycs = 9 则
- 令 nowd = ysed & "23时50分"
- 令 zbname = "李涛"
- 跳转到标记 tb
- 延时 5000 毫秒
- 条件结束
- 注释:今天起始
- 令 cscs = 2
- 如果 todaycs = 9 则
- 令 nowd = tod & "07时30分"
- 令 zbname = "王国友"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 todaycs = 8 则
- 令 nowd = tod & "09时30分"
- 令 zbname = "王国友"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 todaycs = 7 则
- 令 nowd = tod & "11时30分"
- 令 zbname = "王国友"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 todaycs = 6 则
- 令 nowd = tod & "13时30分"
- 令 zbname = "王国友"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 todaycs = 5 则
- 令 nowd = tod & "15时30分"
- 令 zbname = "李涛"
- 跳转到标记 tb
- 延时 5000 毫秒
- 否则如果 todaycs = 4 则
- 令 nowd = tod & "17时30分"
- 令 zbname = "李涛"
- 跳转到标记 tb
- 延时 5000 毫秒