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