模拟鼠标-初级程序-极语言教程

//窗体代码:

整数 窗体,开关,滑块,标签,编辑,开机,空格,方向,数字,双键;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-417)>>1,上=(桌面.高-321)>>1;
窗体=创建窗口($100,程序.名称,"键盘控制鼠标",$10C80000,左,上,417,321,0,0,0,0);
开关=创建窗口($0,"Button","启动",$50000001,170,60,60,30,窗体,1,3,0);
滑块=创建窗口($0,"msctls_trackbar32","",$50010000,100,10,290,30,窗体,2,22,0);
标签=创建窗口($0,"Static","速度:",$50000000,10,20,50,20,窗体,3,2,0);
编辑=创建窗口($200,"Edit","5",$50010000,60,20,30,20,窗体,4,4,0);
开机=创建窗口($0,"Button","开机启动",$50012003,20,60,80,20,窗体,5,6,0);
空格=创建窗口($0,"Button","空格按左键",$50012003,290,60,100,20,窗体,6,6,0);
方向=创建窗口($0,"Button","方向键",$50016009,20,140,80,20,窗体,7,7,0);
数字=创建窗口($0,"Button","数字方向键",$50016009,160,140,100,20,窗体,8,7,0);
双键=创建窗口($0,"Button","WASD键",$50016009,300,140,80,20,窗体,9,7,0);
窗体启动;读取消息
结束

 

//程序代码:

托盘类 托盘(长度=488,标识=7,回调=$3FF,信息图标=4,提示="键盘模拟鼠标",标题="提示",信息="鼠标右键托盘图标可以隐藏！");
整数 速度,方式,自动,空按,键盘;坐标类 位置;

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
    判断(消息)为 窗口关闭{停止(0)}
    为 单击左键{左键点击(参数)}为 $3FF 托盘点击(数据)
    为 水平滚动{如果(参数 & 255=5)改控件数(窗口,4,参数 >>16,0)}
    否则{处理窗口(窗口,消息,参数,数据)}
结束

小程序 窗体启动
    托盘.窗口= 窗体
    托盘.图标= 程序.图标
    托盘图标(0, 托盘)
    托盘.标识= $17
    按钮复选(窗体,7,真)
    桌面.左=窗体
    读取消息
结束

小程序 左键点击(整数 参数)
    判断(参数)
    为 1 启动控制
    为 5 自动=发送消息(开机,获取选择,0,0)
    为 6 空按=发送消息(空格,获取选择,0,0)
    为 7~9 方式=参数-7
结束

小程序 托盘点击(整数 动作)
    判断(动作)
    为 释放左键{显隐窗口(窗体, 窗口显示)}
    为 释放右键{显隐窗口(窗体, 窗口隐藏)}
结束

小程序 启动控制
    如果(速度){速度=0
    窗口脱钩(键盘)
    改窗口字(开关,"启动")}
    否则{改窗口字(开关,"停止")
    显隐窗口(窗体, 窗口隐藏)
    速度=取控件数(窗体,4,0,0)
    托盘图标(1, 托盘)读取光标(位置)
    光标位置(位置.左,位置.顶)
    键盘=窗口挂钩(13,@挂钩,$400000,0)}
结束

小程序 挂钩(整数 档位,整数 消息,整数 数据)
    如果(档位=0 而且 消息=$100){
    判断(~数据)
    为 32{如果(空按)模拟鼠标(6,0,0,0,0)}
    为 37{如果(方式=0)位置.左-速度}
    为 38{如果(方式=0)位置.顶-速度}
    为 39{如果(方式=0)位置.左+速度}
    为 40{如果(方式=0)位置.顶+速度}
    为 100{如果(方式=1)位置.左-速度}
    为 104{如果(方式=1)位置.顶-速度}
    为 102{如果(方式=1)位置.左+速度}
    为 98{如果(方式=1)位置.顶+速度}
    为 65{如果(方式=2)位置.左-速度}
    为 87{如果(方式=2)位置.顶-速度}
    为 68{如果(方式=2)位置.左+速度}
    为 83{如果(方式=2)位置.顶+速度}
    为 113 启动服务
    为 114 显隐窗口(窗体, 窗口显示)
    为 115{显隐窗口(窗体, 窗口隐藏)}
    光标位置(位置.左,位置.顶)}
    继续挂钩(13,档位,消息,数据)
结束