极语言7-8 键鼠精源码

整数 箭头,手形,按下,键值,屏幕,颜色,选窗,行号,行数,配置,登陆,分区,线表,角色;
坐标类 位置;文本 缓冲[32],键字[8]="按键"
小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)为 窗口关闭{停止(0)}
为 单击左键 {左键点击(参数)}
为 键盘松开{获取键值(参数)}
为 鼠标移动{如果(按下)抓取窗口}
为 按下左键{更换游标(手形)捕获鼠标(窗口)按下=真}
为 释放左键{设置焦点(窗口)更换游标(箭头)释放鼠标;按下=假}
否则{处理窗口(窗口,消息,参数,数据)}
结束;
小程序 窗体启动
箭头=载入光标(0,32512)
手形=载入光标(0,32649)
配置=申请内存(2560)
登陆=?+120
分区=?+640
线表=?+640
角色=?+640
模块名称(0,配置,120)
配置(文字长度(配置)-3)&=$696E69
发送消息(脚本,组合文件,0,"*.中")
添加项("登陆",登陆,选服,0)
添加项("分区",分区,选区,0)
添加项("线路",线表,选线,0)
添加项("角色",角色,选人,0)
屏幕=取设备(0)
读取消息
结束

小程序 读设置(整数 段名,整数 键名,整数 内容)

读取文字(段名,键名,空,内容,640, 配置)

结束

小程序 添加项(整数 段名,整数 内容,整数 控件,整数 编号)
读设置(段名,空,内容)
循环在(内容(0)){
读设置(段名,内容,缓冲);
发送消息(控件, 组合添加, 0,缓冲)
发送消息(控件, 组合附加, 编号,内容)
编号++;内容+文字长度(内容)+1}
如果(编号)发送消息(控件, 选组合项, 0, 0)
结束;
小程序 获取键值(整数 参数)
整数 内容=键字+4键值=参数
判断(参数)
为 33 ~ 90参数>内容
为 96 ~ 106格式化(内容,"小%d",参数-96)
为 112 ~ 123格式化(内容,"F%d",参数-111)
否则{格式化(内容,"%d",参数)}
改窗口字(按键,键字)
结束;
小程序 抓取窗口
整数 窗口;文本 内容[16]读取光标(位置)
组合式(内容,"坐标%d:%d",位置.左,位置.顶)
颜色=获取颜色(屏幕,位置.左,位置.顶)
改窗口字(信息,内容)改控件数(窗体,24,颜色,1)
窗口=定位窗口(位置.左,位置.顶)
如果(窗口=选窗)返回;选窗=窗口
取窗口字(窗口,缓冲,32)
改窗口字(窗体,缓冲)
结束;
小程序 左键点击(整数 参数);
判断(参数)为 3开关脚本;为 4保存脚本
为 5选择坐标(选服)为 6添加数值("重复",0)
为 7添加输入("输入")为 8添加输入("延时")
为 11添加数值("鼠标",6)
为 12添加数值("鼠标",24)
为 13添加数值("鼠标",$60)
为 14添加数值("按键",键值)
为 15选择坐标(选区)为 16选择坐标(选线)
为 20选择坐标(选人)为 21添加数值("掉线",0)
为 22添加双值("移动",位置.左,位置.顶)
为 23{添加双值("取色",位置.左,位置.顶)添加双值("颜色",颜色,1)}
为 $10002读取脚本
结束;
小程序 开关脚本
如果(行数=0){
改窗口字(运行,"停止")
显隐窗口(窗体,最小切换)
开启线程(@运行脚本,0,0)}
否则{行数=0
改窗口字(运行,"运行")}
结束;
小程序 运行脚本(整数 长度)
行数=发送消息(文档,编辑行数,0,0)
行号=0循环(行号<行数 而且 按键开关(122)=0){缓冲=32
长度=发送消息(文档,编辑取行,行号,缓冲)
缓冲(长度)=0如果(长度)解释脚本
行号++}显隐窗口(窗体,恢复原来)
如果(行数)开关脚本
结束;
小程序 解释脚本
整数 参数=分割文字(缓冲),数值=转整数(参数)
判断(~缓冲)
为 0#延时 延时(数值)
为 0#按键 键盘(数值)
为 0#键入 键入(数值)
为 0#发声 嘀(数值,500)
为 0#重复 行号=数值
为 0#输入 发送内容(参数)
为 0#移动 动作(参数,数值,0)
为 0#取色 动作(参数,数值,1)
为 0#颜色 动作(参数,数值,2)
为 0#鼠标 模拟鼠标(数值,0, 0,1,0)
结束
小程序 键盘(整数 参数)
模拟按键(参数,0,0,0)延时(50)
模拟按键(参数,0,2,0)
结束
小程序 动作(整数 参数,整数 数值,整数 方式)
整数 数据=分割文字(参数)
如果(数据)数据=转整数(数据)
判断(方式)
为 0光标位置(数值,数据)
为 1颜色=获取颜色(屏幕,数值,数据)
为 2{如果(颜色=数值)行号+数据}
结束
小程序 分割文字(整数 内容)
内容=查字符(内容,32)
如果(内容){内容(0)=0内容++}
返回(内容)结束
小程序 添加双值(整数 名称,整数 参数,整数 数值)
组合式(缓冲,"%s %d %d\r\n",名称,参数,数值)
发送消息(文档,编辑替换,0,缓冲)
结束
小程序 添加数值(整数 名称,整数 数值)
组合式(缓冲,"%s %d\r\n",名称,数值)
发送消息(文档,编辑替换,0,缓冲)
结束
小程序 选择坐标(整数 控件)
整数 选项=发送消息(控件, 取组合项,0,0)
整数 内容=发送消息(控件, 组合数据,选项,0)
添加内容("移动",内容)添加数值("鼠标",6)
结束
小程序 添加内容(整数 名称,整数 内容)
组合式(缓冲,"%s %s\r\n",名称,内容)
发送消息(文档,编辑替换,0,缓冲)
结束
小程序 添加输入(整数 名称)
文本 内容[16]取窗口字(编辑,内容,16)
添加内容(名称,内容)
结束
小程序 读取脚本
整数 文件,内容,长度;
长度=发送消息(脚本,取组合项,0,0)
发送消息(脚本,组合读取,长度,缓冲)
文件=开文件(缓冲,0);
长度=文件大小(文件,0)
内容=申请内存(长度+1)
读文件(文件,内容,长度)
内容(长度)=0
改窗口字(文档,内容)
释放内存(内容)
关文件(文件)
结束
小程序 保存脚本
整数 文件,内容,长度;
取窗口字(脚本,缓冲,32)
文件=建文件(缓冲,0)
长度=窗口字长(文档)+1
内容=申请内存(长度)
长度=取窗口字(文档,内容,长度)
写文件(文件,内容,长度)
关文件(文件)结束
小程序 键入(整数 值)
发送消息(选窗, 键盘按下, 值, 0)
发送消息(选窗, 键盘松开, 值, 0)
结束
小程序 发送内容(整数 内容)
整数 值=0
循环数组(值<内容)
发送消息(选窗, 键入字符, 值, 0)
结束;

//键鼠精.ini
[登陆]
320 120=电信一区
640 480=开始游戏
[分区]
320 120=长空
640 480=赤峰
[线路]
320 120=一线
640 480=二线
140 780=选择
[角色]
120 120=一号人物
240 480=二号人物
320 120=三号人物
480 480=四号人物
640 640=进入游戏

//说明
在窗体空处拖曳鼠标可获取坐标位置和颜色值
焦点在窗体控件上时,点击窗体空处,再按键盘就可以显示键值了
重复 0是返回到第0行重新执行,可根据需要返回到第几行
颜色 值 1是颜色相同时跳过几行,若颜色改变则按顺序执行
跳过和循环已具备编程的基本逻辑,只是还没有变量运算的语法
西瓜视频教程:https://www.ixigua.com/i7166632839838958132/
B站视频教程:https://www.bilibili.com/video/BV168411j7Cr/

//自动登陆.中
延时 1000
输入 klwz
延时 100
按键 9
输入 123456
延时 100
按键 13
延时 2000
移动 165 200
鼠标 6
延时 6000
移动 512 400
鼠标 6
延时 100
鼠标 6