1. 注释：<>--------------------------------------绑定WQM（必须的）
2. 令 PID = Web.Bind("wqm.exe")
3. 注释：<>--------------------------------------打开百度网站
4. 调用 Web.Go("http://www.baidu.com")
5. 注释：<>--------------------------------------获取元素位置
6. 令 XY = Web.HtmlGet("offset","id:su")
7. 注释：下面这句用于分割字符串
8. 令 ZB = InStr(XY,"|")
9. 注释：下面这句将字符串转换成数值
10. 令 X = Clng(Left(XY,ZB - 1))
11. 令 Y = Clng(Right(XY,Len(XY) - ZB))
12. 注释：<>--------------------------------------得到结果
13. 弹出窗口 "“百度一下”左上角坐标位置为：" & X & "," & Y