有没有给个,易语言的,游戏喊话和模拟按键的代码?

有没有给个,易语言的,游戏喊话和模拟按键的代码?

可以导入文本内容的喊话源码
↓

.版本 2
.支持库 iext2
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 行号, 整数型

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

置随机数种子 () ' 这里的意思是先设置随据数种子 这里的程序说明要用到 还有后面的 随机选择骂人要用到
时钟1.时钟周期 ＝ 400 ' 先设置下时钟1的时钟周期

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

标签1.文本颜色 ＝ 取颜色值 (取随机数 (0, 225), 取随机数 (0, 225), 取随机数 (0, 225)) ' 这里是颜色的变化对了 我们测试一下 再闪了

.子程序 _按钮1_被单击

.判断开始 (组合框1.内容 ＝ “高等,我骂死他”)
时钟2.时钟周期 ＝ 800
时钟3.时钟周期 ＝ 800
按钮1.可视 ＝ 假
按钮2.可视 ＝ 真
.判断 (组合框1.内容 ＝ “中等,不骂太狠”)
时钟2.时钟周期 ＝ 1500
时钟3.时钟周期 ＝ 1500
按钮1.可视 ＝ 假
按钮2.可视 ＝ 真

.判断 (组合框1.内容 ＝ “一般,随便骂骂”)
时钟3.时钟周期 ＝ 2000
时钟2.时钟周期 ＝ 800
按钮1.可视 ＝ 假
按钮2.可视 ＝ 真

.默认
信息框 (“请选择骂人强度”, #信息图标, “小星提示您：”)
.判断结束

.子程序 _按钮2_被单击

时钟2.时钟周期 ＝ 0
时钟3.时钟周期 ＝ 0
按钮2.可视 ＝ 假
按钮1.可视 ＝ 真

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

.判断开始 (单选框1.选中 ＝ 真)
行号 ＝ 行号 ＋ 1
.如果真 (行号 ＞ 超级编辑框1.取行数 ())
行号 ＝ 0
.如果真结束

.判断 (单选框2.选中 ＝ 真)
行号 ＝ 取随机数 (0, 225)
.默认

.判断结束

编辑框1.内容 ＝ 超级编辑框1.取行文本 (行号)

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

置剪辑板文本 (编辑框1.内容)
.判断开始 (组合框2.内容 ＝ “Ctrl + Enter”) ' 继续判断
模拟按键 (#Ctrl键, #V键, )
模拟按键 (#Ctrl键, #回车键, )
.判断 (组合框2.内容 ＝ “Enter”)
模拟按键 (#Ctrl键, #V键, )
模拟按键 (#回车键, , ) ' 这里的代码都差不多 我就直接复制 来测试一下
.默认

.判断结束

.子程序 _按钮3_被单击
.局部变量 文本, 整数型

.如果真 (通用对话框1.打开 ()) ' 新建一个变量，整数型的
文本 ＝ 打开文件 (通用对话框1.文件名, , )
.如果真结束
超级编辑框1.内容 ＝ 读入文本 (文本, )

投递文本 模拟按键 或者找下发消息的call

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息