网站首页 > 易语言相关 > 易语言例程 正文
Windows消息模拟器源码
@泪闯天涯
.版本 2 .程序集 窗口程序集1 .程序集变量 捕获鼠标, 逻辑型 .子程序 __启动窗口_创建完毕 .局部变量 分行数组, 文本型, , "0" .局部变量 分列数组, 文本型, , "0" .局部变量 i, 整数型 图片框1.鼠标指针 = #光标_手型 连续赋值 (#光标_箭头, _启动窗口.鼠标指针, 标签1.鼠标指针, 消息_编辑框1.鼠标指针, 消息_编辑框2.鼠标指针, 消息_组合框1.鼠标指针, 消息_组合框2.鼠标指针, 消息_组合框3.鼠标指针, 按钮1.鼠标指针, 按钮2.鼠标指针) 连续赋值 (#光标_手型, 图片框2.鼠标指针, 超级链接框1.鼠标指针) 分行数组 = 分割文本 (#消息常量, #换行符, ) .计次循环首 (取数组成员数 (分行数组), i) 分列数组 = 分割文本 (分行数组 [i], “=”, ) 消息_组合框1.加入项目 (分列数组 [1] + “(” + 分列数组 [2] + “)”, 到数值 (分列数组 [2])) .计次循环尾 () .子程序 __启动窗口_尺寸被改变 宽度 = 宽度 - 取用户区宽度 () + 按钮2.左边 + 按钮2.宽度 + 8 高度 = 高度 - 取用户区高度 () + 按钮2.顶边 + 按钮2.高度 + 8 .子程序 _图片框1_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .如果真 (捕获鼠标 = 假) 图片框1.鼠标指针 = #光标_圆型 图片框1.图片 = #图片2 捕获鼠标 = 真 处理事件 () SetCapture (图片框1.取窗口句柄 ()) .如果真结束 .子程序 _图片框1_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .如果真 (捕获鼠标) 图片框1.鼠标指针 = #光标_手型 图片框1.图片 = #图片1 捕获鼠标 = 假 ReleaseCapture () .如果真结束 .子程序 _图片框1_鼠标位置被移动, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .局部变量 pt, POINTAPI .局部变量 hwnd, 整数型 .如果真 (捕获鼠标) GetCursorPos (pt) hwnd = WindowFromPoint (pt.x, pt.y) 消息_编辑框1.内容 = 到文本 (hwnd) .如果真结束 .子程序 _按钮1_被单击 .局部变量 hwnd, 整数型, , , 要接收消息的那个窗口的句柄 .局部变量 wMsg, 整数型, , , 消息的标识符 .局部变量 wParam, 整数型, , , 具体取决于消息 .局部变量 lParam, 整数型, , , 具体取决于消息; .局部变量 Ret, 整数型 .局部变量 Str, 文本型 hwnd = 到数值 (消息_编辑框1.内容) .如果真 (hwnd ≠ 0) Ret = 寻找文本 (消息_组合框1.内容, “(”, , 假) .如果 (Ret ≠ -1) Str = 删首尾空 (取文本右边 (消息_组合框1.内容, 取文本长度 (消息_组合框1.内容) - Ret)) Str = 取文本左边 (Str, 取文本长度 (Str) - 1) wMsg = 到数值 (Str) .否则 wMsg = 到数值 (消息_组合框1.内容) .如果结束 wParam = 到数值 (消息_组合框2.内容) lParam = 到数值 (消息_组合框3.内容) .判断开始 (单选框1.选中) 消息_编辑框2.内容 = “SendMessage....” 处理事件 () Ret = SendMessage (hwnd, wMsg, wParam, lParam) .判断 (单选框2.选中) 消息_编辑框2.内容 = “PostMessage....” 处理事件 () Ret = PostMessage (hwnd, wMsg, wParam, lParam) .默认 .判断结束 消息_编辑框2.内容 = “返回值 ” + 到文本 (Ret) .如果真结束 .子程序 _选择框1_被单击 总在最前 = 选择框1.选中 .子程序 _图片框2_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 超级链接框1.跳转 ()
- 上一篇: 易语言超级列表框设置背景+背景透明源码
- 下一篇: WORD文件加图片易语言源码
猜你喜欢
- 2024-03-16 2024无模块静默取已登录QQ
- 2024-03-16 批量转换PPT为PDF源码
- 2024-03-15 串口相关, 虚拟串口,枚举串口,PCOMM使用
- 2024-03-14 易语言取Unix时间戳源码
- 2024-03-13 易语言源码 安卓 ADB调试桥 真机调试
- 2024-03-11 易语言控件自动缩放源码
- 2024-03-11 文本批量关键词替换源码
- 2024-03-10 Chrome浏览器操作开源,填表?自动化操作?任你发挥
- 2024-03-10 SVG转PNG dll(带易语言调用例程)
- 2024-03-09 雷电枚举进程ID对应模拟器源码
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有2位网友发表了看法:
易语言源码站 评论于 [2019-08-05 11:59:44] 回复
图片框1.图片++.版本+2++.如果真+(捕获鼠标)
yiyuyan 评论于 [2021-05-22 18:47:28] 回复
易语言windows消息例程