//看雪论坛挂机 //按下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