1. 注释:看雪论坛挂机
  2. 注释:按下F10启动进程
  3. 注释:按下Home键安全退出
  4. 用户定义变量 name = "test" "用户名"
  5. 用户定义变量 password = "test" "密码"
  6. 注释:得到WQM进程句柄
  7. 令 PID = Web.Bind("wqm.exe")
  8. 注释:打开一个网页地址连接
  9. 调用 Web.Go("http://bbs.pediy.com/index.php")
  10. 注释:删除IE临时文件
  11. 调用 Web.ClearTemp()
  12. 注释:清除IE历史记录
  13. 调用 Web.ClearHistory()
  14. 注释:删除IE的Cookie
  15. 调用 Web.ClearCookie()
  16. 注释:向文本框里输入内容
  17. 调用 Web.HtmlInput(name,"id:navbar_username")
  18. 注释:向文本框里输入内容
  19. 调用 Web.HtmlInput(password,"id:navbar_password")
  20. 注释:点击一个网页元素连接
  21. 调用 Web.HtmlClick("tag:INPUT&value:登录论坛")
  22. 注释:打开一个网页地址连接
  23. 调用 Web.Go("http://bbs.pediy.com/member.php?u=450686")
  24. 注释:获得一个网页元素信息内容
  25. 令 Txt = Web.HtmlGet("text","id:last_online")
  26. 注释:显示WQM提示信息
  27. 调用 Web.Tips(Txt)
  28. 注释:精准地计算日期时间差
  29. 令 sDate = int(Sys.GetDateTime())
  30. 标记 start
  31. 延时 60000 毫秒
  32. 注释:1分钟执行一次按键检测
  33. 令 key = (键盘)检测上次按键
  34. 注释:按下Home键安全退出
  35. 如果 key = 36 则
  36.     跳转到标记 ending
  37. 条件结束
  38. 注释:精准地计算日期时间差
  39. 令 sTemp = int(Sys.GetDateTime())
  40. 如果 (sTemp - sDate < 900000) 则
  41.     跳转到标记 start
  42. 条件结束
  43. 注释:删除IE临时文件
  44. 调用 Web.ClearTemp()
  45. 注释:刷新当前页面
  46. 调用 Web.Refresh(1)
  47. 注释:获得一个网页元素信息内容
  48. 令 Txt = Web.HtmlGet("text","id:last_online")
  49. 注释:显示WQM提示信息
  50. 调用 Web.Tips(Txt)
  51. 标记 ending
  52. 注释:关闭当前标签页
  53. 调用 Web.TabClose()
  54. 注释:清除IE历史记录
  55. 调用 Web.ClearHistory()
  56. 注释:删除IE临时文件
  57. 调用 Web.ClearTemp()
  58. 注释:删除IE的Cookie
  59. 调用 Web.ClearCookie()
  60. 注释:获得WQM页面句柄
  61. 令 Hwnd = Web.GetHwnd()
  62. 注释:完全关闭窗口
  63. 调用 Window.CloseEx(Hwnd)
  64. 脚本停止运行