注册表设置鼠标

想学坏的小孩

.版本 2

.程序集 窗口程序集1
.程序集变量 屏幕宽度, 整数型
.程序集变量 屏幕高度, 整数型

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

初始子程序 ()
屏幕宽度 ＝ 取屏幕宽度 ()
屏幕高度 ＝ 取屏幕高度 ()

.子程序 _时钟1_周期事件
.局部变量 水平位置, 整数型, 静态
.局部变量 垂直位置, 整数型, 静态

.如果真 (水平位置 ≠ 取鼠标水平位置 () 或 垂直位置 ≠ 取鼠标垂直位置 ())
    水平位置 ＝ 取鼠标水平位置 ()
    垂直位置 ＝ 取鼠标垂直位置 ()
    编辑框1.内容 ＝ 到文本 (水平位置)
    编辑框2.内容 ＝ 到文本 (垂直位置)
.如果真结束

.如果真 (选择框1.选中 ≠ 真)
    返回 ()
.如果真结束

.如果真 (水平位置 ＝ 0)
    设置鼠标 (屏幕宽度 － 2, 垂直位置)
.如果真结束
.如果真 (水平位置 ＝ 屏幕宽度 － 1)
    设置鼠标 (1, 垂直位置)
.如果真结束
.如果真 (垂直位置 ＝ 0)
    设置鼠标 (水平位置, 屏幕高度 － 2)
.如果真结束
.如果真 (垂直位置 ＝ 屏幕高度 － 1)
    设置鼠标 (水平位置, 1)
.如果真结束


.子程序 初始子程序

.如果 (取文本注册项 (3, “设置鼠标\选择框选中”, ) ＝ “1”)
    选择框1.选中 ＝ 真
.否则
    选择框1.选中 ＝ 假
.如果结束

_启动窗口.移动 (取数值注册项 (3, “设置鼠标\窗口左边”, ), 取数值注册项 (3, “设置鼠标\窗口顶边”, ), , )

.子程序 __启动窗口_将被销毁

.如果 (选择框1.选中 ＝ 真)
    写注册项 (3, “设置鼠标\选择框选中”, “1”)
.否则
    写注册项 (3, “设置鼠标\选择框选中”, “0”)
.如果结束
写注册项 (3, “设置鼠标\窗口左边”, _启动窗口.左边)
写注册项 (3, “设置鼠标\窗口顶边”, _启动窗口.顶边)

风蚀

这个行不？？