E语言怎么把鼠标不动时，鼠标指针自动移动到某个位置。X—Y

加入一个时钟，再新加入一个DLL命令：

.DLL命令 移动鼠标, , "user32", "SetCursorPos"
.参数 x, 整数型
.参数 y, 整数型
再加入代码————————————
.版本 2

.程序集 窗口程序集1
.程序集变量 x, 整数型, , "2"
.程序集变量 y, 整数型, , "2"
.程序集变量 z, 整数型, , "2"

.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 2000 ' 2秒不动就移动
z [1] ＝ 100 ' 鼠标不动时 移动的x位置
z [2] ＝ 100 ' 鼠标不动时 移动的y位置

.子程序 _时钟1_周期事件

x [1] ＝ 取鼠标水平位置 ()
x [2] ＝ 取鼠标垂直位置 ()
.判断开始 (y [1] ＝ 0 且 y [2] ＝ 0)
y [1] ＝ x [1]
y [2] ＝ x [2]
.判断 (y [1] ＝ x [1] 且 y [2] ＝ x [2])
移动鼠标 (z [1], z [2])
.默认
y [1] ＝ x [1]
y [2] ＝ x [2]
.判断结束