易语言如何限制鼠标在窗口内移动？

这个我最擅长了！
——————————————这个是最简单的没有任何模块的——————————————
.版本 2
.支持库 eAPI

.程序集 窗口程序集1

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

时钟1.时钟周期 ＝ 10

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

.判断开始 (取鼠标水平位置 () ＞ _启动窗口.左边 ＋ _启动窗口.宽度) ' 超出 _启动窗口右边
模拟鼠标点击 (_启动窗口.左边 ＋ 40, _启动窗口.顶边 ＋ 40, 0) ' 鼠标回来
.默认

.判断结束

.判断开始 (取鼠标水平位置 () ＜ _启动窗口.左边) ' 超出 _启动窗口左边边
模拟鼠标点击 (_启动窗口.左边 ＋ 40, _启动窗口.顶边 ＋ 40, 0) ' 鼠标回来
.默认

.判断结束

.判断开始 (取鼠标垂直位置 () ＞ _启动窗口.顶边 ＋ _启动窗口.高度) ' 超出 _启动窗口下边
模拟鼠标点击 (_启动窗口.左边 ＋ 40, _启动窗口.顶边 ＋ 40, 0) ' 鼠标回来
.默认

.判断结束

.判断开始 (取鼠标垂直位置 () ＜ _启动窗口.顶边) ' 超出 _启动窗口上边
模拟鼠标点击 (_启动窗口.左边 ＋ 40, _启动窗口.顶边 ＋ 40, 0) ' 鼠标回来
.默认

.判断结束
——————————————加了个“鼠标移动（，，）”————————————
.版本 2

.程序集 窗口程序集1

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

时钟1.时钟周期 ＝ 10

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

.判断开始 (取鼠标水平位置 () ＞ _启动窗口.左边 ＋ _启动窗口.宽度) ' 超出 _启动窗口右边
鼠标移动 (, _启动窗口.左边 ＋ 40, _启动窗口.顶边 ＋ 40) ' 鼠标回来
.默认

.判断结束

.判断开始 (取鼠标水平位置 () ＜ _启动窗口.左边) ' 超出 _启动窗口左边边
鼠标移动 (, _启动窗口.左边 ＋ 40, _启动窗口.顶边 ＋ 40) ' 鼠标回来
.默认

.判断结束

.判断开始 (取鼠标垂直位置 () ＞ _启动窗口.顶边 ＋ _启动窗口.高度) ' 超出 _启动窗口下边
鼠标移动 (, _启动窗口.左边 ＋ 40, _启动窗口.顶边 ＋ 40) ' 鼠标回来
.默认

.判断结束

.判断开始 (取鼠标垂直位置 () ＜ _启动窗口.顶边) ' 超出 _启动窗口上边
鼠标移动 (, _启动窗口.左边 ＋ 40, _启动窗口.顶边 ＋ 40) ' 鼠标回来
.默认

.判断结束
——————————————————————————————————————————
鼠标移动的优点，就是不点击窗口。
———————————直接用“鼠标限制（，，，）”————————————————
.版本 2

.程序集 窗口程序集1

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

时钟1.时钟周期 ＝ 10

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

鼠标限制 (_启动窗口.左边, _启动窗口.顶边, _启动窗口.左边 ＋ _启动窗口.宽度, _启动窗口.顶边 ＋ _启动窗口.高度)
———————我刚刚测试的时候。关闭程序后，鼠标限制还在。不推荐——————————