1. 用户定义变量 zbname="值班员" "人名"
  2. 注释:昨天起始位置:0-不,1-7,2-9,3-11,4-13,5-15,6-17,7-19,8-21,9-23
  3. 用户定义变量 Yesterdaycs="0" "昨天起始位置:0-不,1-7,2-9,3-11,4-13,5-15,6-17,7-19,8-21,9-23"
  4. 注释:今天结束位置:0-不,1-7,2-9,3-11,4-13,5-15,6-17,7-19,8-21,9-23
  5. 用户定义变量 todaycs="0" "今天结束位置:0-不,9-7,8-9,7-11,6-13,5-15,4-17,3-19,2-21,1-23"
  6. 用户定义变量 ysed="2011年10月10日" "昨天时间"
  7. 用户定义变量 tod="2011年10月11日" "今天时间"
  8. 令 nowd = "2011年10月11日"
  9. 注释:0-不,1为昨天,2为今天 自动修改,无需操作
  10. 令 cscs = "0"
  11. 令 ProcessID = Web.Bind("wqm.exe")
  12. 延时 2000 毫秒
  13. 如果 ProcessID = 0 则
  14.     弹出窗口 "网页按键精灵没有运行"
  15.     脚本停止运行
  16. 条件结束
  17. 调用 Web.Tips("脚本开始运行")
  18. 调用 Web.Go("http://220.189.211.69:85/DWIndexPage.aspx")
  19. 延时 5000 毫秒
  20. 标记 start
  21. 注释:昨天起始
  22. 令 cscs = 1
  23. 如果 Yesterdaycs = 1 则
  24.     令 nowd = ysed & "07时30分"
  25.     令 zbname = "王国友"
  26.     跳转到标记 tb
  27.     延时 5000 毫秒
  28. 否则如果 Yesterdaycs = 2 则
  29.     令 nowd = ysed & "09时30分"
  30.     令 zbname = "王国友"
  31.     跳转到标记 tb
  32.     延时 5000 毫秒
  33. 否则如果 Yesterdaycs = 3 则
  34.     令 nowd = ysed & "11时30分"
  35.     令 zbname = "王国友"
  36.     跳转到标记 tb
  37.     延时 5000 毫秒
  38. 否则如果 Yesterdaycs = 4 则
  39.     令 nowd = ysed & "13时30分"
  40.     令 zbname = "王国友"
  41.     跳转到标记 tb
  42.     延时 5000 毫秒
  43. 否则如果 Yesterdaycs = 5 则
  44.     令 nowd = ysed & "15时30分"
  45.     令 zbname = "李涛"
  46.     跳转到标记 tb
  47.     延时 5000 毫秒
  48. 否则如果 Yesterdaycs = 6 则
  49.     令 nowd = ysed & "17时30分"
  50.     令 zbname = "李涛"
  51.     跳转到标记 tb
  52.     延时 5000 毫秒
  53. 否则如果 Yesterdaycs = 7 则
  54.     令 nowd = ysed & "19时30分"
  55.     令 zbname = "李涛"
  56.     跳转到标记 tb
  57.     延时 5000 毫秒
  58. 否则如果 Yesterdaycs = 8 则
  59.     令 nowd = ysed & "21时30分"
  60.     令 zbname = "李涛"
  61.     跳转到标记 tb
  62.     延时 5000 毫秒
  63. 否则如果 Yesterdaycs = 9 则
  64.     令 nowd = ysed & "23时50分"
  65.     令 zbname = "李涛"
  66.     跳转到标记 tb
  67.     延时 5000 毫秒
  68. 条件结束
  69. 注释:今天起始
  70. 令 cscs = 2
  71. 如果 todaycs = 9 则
  72.     令 nowd = tod & "07时30分"
  73.     令 zbname = "王国友"
  74.     跳转到标记 tb
  75.     延时 5000 毫秒
  76. 否则如果 todaycs = 8 则
  77.     令 nowd = tod & "09时30分"
  78.     令 zbname = "王国友"
  79.     跳转到标记 tb
  80.     延时 5000 毫秒
  81. 否则如果 todaycs = 7 则
  82.     令 nowd = tod & "11时30分"
  83.     令 zbname = "王国友"
  84.     跳转到标记 tb
  85.     延时 5000 毫秒
  86. 否则如果 todaycs = 6 则
  87.     令 nowd = tod & "13时30分"
  88.     令 zbname = "王国友"
  89.     跳转到标记 tb
  90.     延时 5000 毫秒
  91. 否则如果 todaycs = 5 则
  92.     令 nowd = tod & "15时30分"
  93.     令 zbname = "李涛"
  94.     跳转到标记 tb
  95.     延时 5000 毫秒
  96. 否则如果 todaycs = 4 则
  97.     令 nowd = tod & "17时30分"
  98.     令 zbname = "李涛"
  99.     跳转到标记 tb
  100.     延时 5000 毫秒