- 注释:看雪论坛挂机
- 注释:按下F10启动进程
- 注释:按下Home键安全退出
- 用户定义变量 name = "test" "用户名"
- 用户定义变量 password = "test" "密码"
- 注释:得到WQM进程句柄
- 令 PID = Web.Bind("wqm.exe")
- 注释:打开一个网页地址连接
- 调用 Web.Go("http://bbs.pediy.com/index.php")
- 注释:删除IE临时文件
- 调用 Web.ClearTemp()
- 注释:清除IE历史记录
- 调用 Web.ClearHistory()
- 注释:删除IE的Cookie
- 调用 Web.ClearCookie()
- 注释:向文本框里输入内容
- 调用 Web.HtmlInput(name,"id:navbar_username")
- 注释:向文本框里输入内容
- 调用 Web.HtmlInput(password,"id:navbar_password")
- 注释:点击一个网页元素连接
- 调用 Web.HtmlClick("tag:INPUT&value:登录论坛")
- 注释:打开一个网页地址连接
- 调用 Web.Go("http://bbs.pediy.com/member.php?u=450686")
- 注释:获得一个网页元素信息内容
- 令 Txt = Web.HtmlGet("text","id:last_online")
- 注释:显示WQM提示信息
- 调用 Web.Tips(Txt)
- 注释:精准地计算日期时间差
- 令 sDate = int(Sys.GetDateTime())
- 标记 start
- 延时 60000 毫秒
- 注释:1分钟执行一次按键检测
- 令 key = (键盘)检测上次按键
- 注释:按下Home键安全退出
- 如果 key = 36 则
- 跳转到标记 ending
- 条件结束
- 注释:精准地计算日期时间差
- 令 sTemp = int(Sys.GetDateTime())
- 如果 (sTemp - sDate < 900000) 则
- 跳转到标记 start
- 条件结束
- 注释:删除IE临时文件
- 调用 Web.ClearTemp()
- 注释:刷新当前页面
- 调用 Web.Refresh(1)
- 注释:获得一个网页元素信息内容
- 令 Txt = Web.HtmlGet("text","id:last_online")
- 注释:显示WQM提示信息
- 调用 Web.Tips(Txt)
- 标记 ending
- 注释:关闭当前标签页
- 调用 Web.TabClose()
- 注释:清除IE历史记录
- 调用 Web.ClearHistory()
- 注释:删除IE临时文件
- 调用 Web.ClearTemp()
- 注释:删除IE的Cookie
- 调用 Web.ClearCookie()
- 注释:获得WQM页面句柄
- 令 Hwnd = Web.GetHwnd()
- 注释:完全关闭窗口
- 调用 Window.CloseEx(Hwnd)
- 脚本停止运行