让论坛链接里面的一个列子 能正常运行

sphinxes

https://bbs.125.la/thread-14648940-1-1.html
让这个列子能正常运行 谢谢

  

子程序名	返回值类型	公开	备 注
激活文件元素标签

变量名	类 型	静态	数组	备 注
浏览器	水星浏览器
dom	水星网页文档对象
元素	水星网页文档元素
元素边界	整数型		0
DEVICE_SCALE_FACTOR	双精度小数型
dpi	整数型
x	整数型
y	整数型
hDesktop	整数型
hDC	整数型

浏览器 ＝ 水星铬浏览框1.取浏览器 (hwnd)
' 为保持输入兼容性, 输入坐标应当适应屏幕缩放比例。
hDesktop ＝ GetDesktopWindow ()
hDC ＝ GetDC (hDesktop)
dpi ＝ GetDeviceCaps (hDC, #LOGPIXELSY )
' 当前屏幕缩放比例因子
DEVICE_SCALE_FACTOR ＝ 到数值 (dpi) ÷ 100
' 获取DOM结构
dom ＝ 浏览器.取主框架 ().取文档对象 ()
' 找到 file 元素标签并获取边界信息
元素 ＝ dom.cha询元素 (“#avatar”)
元素边界 ＝ 元素.取包围框 ()
' 向 file 元素标签发送鼠标事件以激活其显示功能。
x ＝ 到整数 ( (元素边界 [1] ＋ 元素边界 [3] ÷ 2) ÷ DEVICE_SCALE_FACTOR)
y ＝ 到整数 ( (元素边界 [2] ＋ 元素边界 [4] ÷ 2) ÷ DEVICE_SCALE_FACTOR)
浏览器.鼠标移动 (x, y, 假, #事件标志 .NONE)
浏览器.鼠标点击 (x, y, #点击事件 .鼠标左键, 假, 1, #事件标志 .LEFT_MOUSE_BUTTON)
浏览器.鼠标点击 (x, y, #点击事件 .鼠标左键, 真, 1, #事件标志 .LEFT_MOUSE_BUTTON)

i支持库列表	支持库注释
ecef	水星浏览器支持库

.版本 2<br /> .支持库 ecef<br /> <br /> .子程序 激活文件元素标签<br /> .局部变量 浏览器, 水星浏览器<br /> .局部变量 dom, 水星网页文档对象<br /> .局部变量 元素, 水星网页文档元素<br /> .局部变量 元素边界, 整数型, , "0"<br /> .局部变量 DEVICE_SCALE_FACTOR, 双精度小数型<br /> .局部变量 dpi, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 hDesktop, 整数型<br /> .局部变量 hDC, 整数型<br /> <br /> <br /> 浏览器 ＝ 水星铬浏览框1.取浏览器 (hwnd)<br /> <br /> ' 为保持输入兼容性, 输入坐标应当适应屏幕缩放比例。<br /> hDesktop ＝ GetDesktopWindow ()<br /> hDC ＝ GetDC (hDesktop)<br /> dpi ＝ GetDeviceCaps (hDC, #LOGPIXELSY)<br /> <br /> ' 当前屏幕缩放比例因子<br /> DEVICE_SCALE_FACTOR ＝ 到数值 (dpi) ÷ 100<br /> <br /> ' 获取DOM结构<br /> dom ＝ 浏览器.取主框架 ().取文档对象 ()<br /> <br /> ' 找到 file 元素标签并获取边界信息<br /> 元素 ＝ dom.cha询元素 (“#avatar”)<br /> <br /> 元素边界 ＝ 元素.取包围框 ()<br /> <br /> ' 向 file 元素标签发送鼠标事件以激活其显示功能。<br /> <br /> x ＝ 到整数 ((元素边界 [1] ＋ 元素边界 [3] ÷ 2) ÷ DEVICE_SCALE_FACTOR)<br /> y ＝ 到整数 ((元素边界 [2] ＋ 元素边界 [4] ÷ 2) ÷ DEVICE_SCALE_FACTOR)<br /> <br /> 浏览器.鼠标移动 (x, y, 假, #事件标志.NONE)<br /> 浏览器.鼠标点击 (x, y, #点击事件.鼠标左键, 假, 1, #事件标志.LEFT_MOUSE_BUTTON)<br /> 浏览器.鼠标点击 (x, y, #点击事件.鼠标左键, 真, 1, #事件标志.LEFT_MOUSE_BUTTON)