网页插件.png

Bind 绑定WQM进程:启动网页按键精灵

Call Plugin.Web.Bind("WQM.exe")


SetSize 设置WQM窗口大小

Call Plugin.Web.SetSize(1000,600)


Tips 显示提示信

//在系统托盘区显示一个气泡提示信息;可用来在脚本执行过程中的提示

Call Plugin.Web.Tips("脚本开始运行")


Save 保存网页或图片

// 将百度的Logo保存到C:\a.gif

//参数1:字符串型,需要保存的目标Url

//参数2:字符串型,本地文件名

Call Plugin.Web.Save("http://www.baidu.com/img/baidu_logo.gif","C:\a.gif")


Go 浏览网页

Call Plugin.Web.Bind("WQM.exe")

Call Plugin.Web.Go("www.ajjl.cn")


Back 网页后退 / Forward 当前网页前进一步

Call Plugin.Web.Bind("wQM.exe")

Call Plugin.Web.Go("www.ajjl.cn")

Call Plugin.Web.Go("www.baidu.com")

Call Plugin.Web.Back()

Call Plugin.Web.Forward()


Refresh 刷新当前标签网页

//参数1:整数型,指定是否强制刷新当前标签页;0表示正常刷新,1表示强制刷新

Call Plugin.Web.Bind("WQM.exe")

Call Plugin.Web.Go("www.ajjl.cn")

Call Plugin.Web.Refresh(0)


Refresh 刷新当前标签网页

//在WQM浏览器中新建一个标签页,并跳转到该标签页

Call Plugin.Web.Bind("WQM.exe")

Call Plugin.Web.Go("www.baidu.com")

Call Plugin.Web.TabNew()

Call Plugin.Web.Go("www.google.cn")


TabNew 新建一个标签页


TabGoto 跳转到指定标签页


TabClose 关闭当前标签页


ScrollTo 当前网页滚动到指定位置

//参数1:整数型,水平滚条位置,像素为单位

//参数2:整数型,垂直滚条位置,像素为单位

Call Plugin.Web.Bind("WQM.exe")

Call Plugin.Web.Go("www.ajjl.cn")

Call Plugin.Web.ScrollTo(0,100)

Call Plugin.Web.TabGoto(1)

Call Plugin.Web.TabClose()


ClearHistory 清除历史记录

//下面这句是清除IE历史记录  

Call Plugin.Web.ClearHistory()  


ClearTemp 删除临时文件

//下面这句是删除IE临时文件

Call Plugin.Web.ClearTemp()


ClearCookie 删除Cookie

//下面这句是删除IE的Cookie

Call Plugin.Web.ClearCookie()


GetUrl 得到当前网页的网址

Call Plugin.Web.Bind("WQM.exe")

Call Plugin.Web.Go("www.ajjl.cn")

url=Plugin.Web.GetUrl()

MessageBox url


GetTitle 获取当前标签页的标题

//获取当前标签页的标题

Txt=Plugin.Web.GetTitle()

Msgbox Txt


HtmlClick 点击网页元素


HtmlInput 往文本框中输入文字

Call Plugin.Web.Bind("WQM.exe")

Call Plugin.Web.Go("www.baidu.com")

Call Plugin.Web.HtmlInput("按键精灵","id:kw")

Call Plugin.Web.HtmlClick("id:su")

//详细的网页元素特征字符串组合方式:http://zy.anjian.com/index.php?action-viewnews-itemid-175


HtmlCheck 选择/清除网页中的单选框或复选框


HtmlSelect 选择网页中的下拉框

Call Plugin.Web.Bind("WQM.exe")

Call Plugin.Web.Go("http://www.vrbrothers.com/cn/wqm/demo/pages/Demo-ComplexForm.aspx")

//Delay 3000

Call Plugin.Web.HtmlInput("按键精灵","id:ctl00_mainContent_tbUsername")

Call Plugin.Web.HtmlInput("password","id:ctl00_mainContent_tbPassword")

Call Plugin.Web.HtmlInput("hi@vrbrothers.com","id:ctl00_mainContent_tbEMail")

Call Plugin.Web.HtmlCheck(true,"id:ctl00_mainContent_rblGender_0")

Call Plugin.Web.HtmlSelect("湖北","id:ctl00_mainContent_ddlProvince")

//Delay 500

Call Plugin.Web.HtmlSelect("宜昌","id:ctl00_mainContent_ddlCity")

//Delay 500

Call Plugin.Web.HtmlSelect("4010200%4083000","id:ctl00_mainContent_lbObjectives")

Call Plugin.Web.HtmlCheck(true, "id:ctl00_mainContent_cblHobies_0")

Call Plugin.Web.HtmlCheck(true, "id:ctl00_mainContent_cblHobies_1")

//Delay 2000

Call Plugin.Web.HtmlCheck(true, "id:ctl00_mainContent_cblHobies_2")

Call Plugin.Web.HtmlInput("Test!","id:ctl00_mainContent_tbSelfAssement")

Call Plugin.Web.HtmlCheck(true,"id:ctl00_mainContent_cbAcceptTerms")

Delay 1000

Call Plugin.Web.HtmlClick("tag:input&value:提交")

Sub OnScriptExit()

Call Plugin.Web.Tips("脚本运行完毕")

End Sub


HtmlGet 获取网页元素的信息

参数1:字符串型,网页元素属性类型:

  text,网页元素的内部文本

  html,网页元素的内部HTML

  outerHtml,网页元素的外部HTML

  value,表单元素的value值

  src,图片元素的图片地址

  href,链接元素的链接地址

  class,网页元素的CSS类名称

  offset,网页元素的左上角位置

参数2:字符串型,网页元素特征字符串

例子1:

// 获取淘宝页面上的货物价格

price=Plugin.Web.HtmlGet("text","id:id_Price")

Call Plugin.Web.Tips(price)

例子2:

//<>--------------------------------------绑定WQM(必须的)

PID=Plugin.Web.Bind("wqm.exe")

//<>--------------------------------------打开百度网站

Call Plugin.Web.Go("http://www.baidu.com")

//<>--------------------------------------获取元素位置

XY=Plugin.Web.HtmlGet("offset","id:su")

//下面这句用于分割字符串

ZB = InStr(XY, "|")

//下面这句将字符串转换成数值

X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))

//<>--------------------------------------得到结果  

MessageBox "“百度一下”左上角坐标位置为:" & X&","&Y  


HtmlExists 判断网页元素是否存在

Call Plugin.Web.Bind("WQM.exe")

Call Plugin.Web.Go("www.baidu.com")

linkNum=Plugin.Web.HtmlExists("tag:a")

Call Plugin.Web.Tips("百度首页共有" & linkNum & "个链接")


RunJS 在当前网页中执行一段JS脚本

Call Plugin.Web.RunJS(0,"alert('hello!');")

title=Plugin.Web.RunJS(1,"var t=document.title;return t;")

MessageBox title


MoveTo 鼠标移动

//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个鼠标移动到客户区域(坐标:10, 10)处

Call Plugin.Web.MoveTo(10, 10)


LeftDown 左键按下

//下面这句用于向后台窗口句柄(变量:Hwnd)的客户区域(坐标:10, 10)处发送一个鼠标左键按下

Call Plugin.Web.LeftDown(10, 10)


LeftUp 左键弹起

//下面这句用于向后台窗口句柄(变量:Hwnd)的客户区域(坐标:10, 10)处发送一个鼠标左键弹起

Call Plugin.Web.LeftUp(10, 10)


LeftClick 左键单击

//下面这句用于向后台窗口句柄(变量:Hwnd)的客户区域(坐标:5, 5)处发送一个鼠标左键单击

Call Plugin.Web.LeftClick(5, 5)


LeftDoubleClick 左键双击

//下面这句用于向后台窗口句柄(变量:Hwnd)的客户区域(坐标:10, 10)处发送一个鼠标左键双击

Call Plugin.Web.LeftDoubleClick(10, 10)


KeyDown 键盘按下

// 在网页中按下B键

Call Plugin.Web.KeyDown(66)


KeyUp 键盘弹起

//下面这句用于向WQM当前网页中发送一个键盘(扫描码:65)弹起

Call Plugin.Web.KeyUp(Hwnd, 65)


KeyPress 键盘点击

//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:65)按键A

Call Plugin.Web.KeyPress(65)


GetHwnd 获得当前网页句柄

iehwnd=Plugin.Web.GetHwnd()

// 该句柄可以支持后台找色


SendString 发送文本消息

PID=Plugin.Web.Bind("wqm.exe")

Call Plugin.Web.Go("www.baidu.com")

//模拟鼠标移动

Call Plugin.Web.MoveTo(380,185)

//模拟鼠标左键单击

Call Plugin.Web.LeftClick(380,185)

Call Plugin.Web.SendString("测试一下看看行不行")


GetDialogContent 获取对话框静态文本

//注意:首先选择WQM【浏览器-》模式设置-》运行模式】才可以使用如下脚本

//得到WQM进程句柄

PID=Plugin.Web.Bind("wqm.exe")

//打开一个网页地址连接

Call Plugin.Web.Go("网页链接")

//点击一个网页元素连接

Call Plugin.Web.HtmlClick("id:imgBtn_log")

txt=Plugin.Web.GetDialogContent()

//出现提示,验证码错误!

msgbox txt