//<>--------------------------------------绑定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