1. 否则如果 todaycs = 3 则
  2.     令 nowd = tod & "19时30分"
  3.     令 zbname = "李涛"
  4.     跳转到标记 tb
  5.     延时 5000 毫秒
  6. 否则如果 todaycs = 2 则
  7.     令 nowd = tod & "21时30分"
  8.     令 zbname = "李涛"
  9.     跳转到标记 tb
  10.     延时 5000 毫秒
  11. 否则如果 todaycs = 1 则
  12.     令 nowd = tod & "23时50分"
  13.     令 zbname = "李涛"
  14.     跳转到标记 tb
  15.     延时 5000 毫秒
  16. 条件结束
  17. 子程序 OnScriptExit()
  18.     调用 Web.Tips("脚本停止运行")
  19. 子程序结束
  20. 脚本停止运行
  21. 标记 tb
  22. Web.TabNew()
  23. 调用 Web.SetSize(1440,876)
  24. 调用 Web.Go("http://220.189.211.69:85/DWXXPage/DWJLPage/FHXCJLAddPage.aspx")
  25. 调用 Web.ScrollTo(0,0)
  26. 延时 5000 毫秒
  27. 调用 Web.HtmlSelect("0","id:ctl00_MainContent_dropXCQK")
  28. 延时 1000 毫秒
  29. 调用 Web.HtmlSelect("0","id:ctl00_MainContent_dropXCQK")
  30. 延时 1000 毫秒
  31. 调用 Web.HtmlSelect("3","id:ctl00_MainContent_dropZGQK")
  32. 延时 1000 毫秒
  33. 调用 Web.HtmlSelect("3","id:ctl00_MainContent_dropZGQK")
  34. 延时 1000 毫秒
  35. 调用 Web.HtmlInput("潘永森","id:ctl00_MainContent_txtZRR")
  36. 延时 1000 毫秒
  37. 调用 Web.HtmlInput(nowd,"id:ctl00_MainContent_txtXCSJ")
  38. 延时 1000 毫秒
  39. 调用 Web.HtmlInput(zbname,"id:ctl00_MainContent_txtXCR")
  40. 延时 1000 毫秒
  41. 调用 Web.HtmlInput("卖场所有区域","id:ctl00_MainContent_txtXCBW")
  42. 延时 5000 毫秒
  43. 调用 Web.HtmlClick("id:ctl00_MainContent_btnAdd")
  44. 延时 5000 毫秒
  45. 注释：KeyPress "Enter", 1
  46. 注释：获取前台窗口的句柄
  47. 注释：Hwnd1 = Plugin.Window.Foreground()
  48. 注释：Delay 2000
  49. 注释：KeyPress "Enter", 1
  50. 注释：Delay 1000
  51. 注释：Call Plugin.Window.SendKeyPress(Hwnd, "Enter")
  52. (语句无法识别，可能有错误): BeginThread 检测网页弹窗()
  53. 延时 5000 毫秒
  54. 如果 cscs = 1 则
  55.     令 Yesterdaycs = Yesterdaycs + 1
  56.     令 cscs = 0
  57. 否则如果 cscs = 2 则
  58.     令 todaycs = todaycs - 1
  59.     令 cscs = 0
  60. 否则
  61.     令 cscs = 0
  62. 条件结束
  63. 跳转到标记 start
  64. 子程序 检测网页弹窗()
  65.     标记 循环(子程序 检测网页弹窗)
  66.     定义变量 MsgHwnd
  67.     循环当 MsgHwnd = 0 时
  68.         令 MsgHwnd = Window.Find("#32770","来自网页的消息")
  69.         延时 100 毫秒
  70.         向调试窗口输出："查找弹出窗口句柄" & MsgHwnd
  71.     循环结束
  72.     延时 100 毫秒
  73.     定义变量 KeyHwnd
  74.     注释：Do While KeyHwnd = 0
  75.     令 KeyHwnd = Window.FindEx(MsgHwnd,0,"Button","确定")
  76.     延时 100 毫秒
  77.     向调试窗口输出："查找弹出窗口子窗口确定按钮句柄" & KeyHwnd
  78.     注释：Loop
  79.     延时 100 毫秒
  80.     调用 Window.SendKeyPress(KeyHwnd,13)
  81.     延时 100 毫秒
  82.     跳转到标记 循环(子程序 检测网页弹窗)
  83. 子程序结束
  84. (语句无法识别，可能有错误): BeginThread 检测网页弹窗()