精易论坛

标题: 恶搞小游戏源码（键盘按键失效且编辑框1无法粘贴） [打印本页]

作者: 熬夜 时间: 2018-5-15 13:53
标题: 恶搞小游戏源码（键盘按键失效且编辑框1无法粘贴）
易语言简单代码让键盘按键失效按下键盘按键F键U键C键K键无效
编辑框1无法粘贴内容到编辑框里面
编辑框键盘快捷键粘贴和鼠标右键粘贴功能失效

小白路过，修改的别人的源码

易语言指定按键失灵恶搞.e

5.21 KB, 下载次数: 61, 下载积分: 精币 -2 枚

不要钱的

作者: 这就是用户名 时间: 2018-5-15 14:17

作者: kyo9766 时间: 2018-5-15 14:52
1L 调皮....................

作者: 熬夜 时间: 2018-5-15 15:12

这就是用户名发表于 2018-5-15 14:17

老哥精易助手可以做到的，还能解禁所有不是吗？

作者: ffsfdsa 时间: 2018-5-16 13:08
完全没有难度啊

方法1: 纯手工Ait加小键盘
Ait 加102 Ait 加1117 Ait 加99 Ait 加107

方法2: 手写输入法

作者: 梦带我去旅行 时间: 2018-5-21 19:30
编辑框键盘快捷键粘贴和鼠标右键粘贴功能失效我也学习学习

作者: 若梦随遇而安 时间: 2018-5-21 19:58
.版本 2

.子程序 _编辑框1_内容被改变
.局部变量 key, 文本型
.局部变量 BlackList, 文本型, , "0"

key ＝删全部空 (到小写 (编辑框1.内容))
BlackList ＝ { “f”, “u”, “c”, “k”, “fuck” }
.如果真 (key ≠ “” 且 IsExis (key, BlackList))
编辑框1.内容＝ ReplaceText (key, BlackList)
.如果真结束

.子程序 ReplaceText, 文本型
.参数 str, 文本型
.参数 keyArr, 文本型, 数组
.局部变量 i, 整数型
.局部变量 nStr, 文本型
.局部变量 IsWork, 逻辑型

nStr ＝ str
.计次循环首 (取数组成员数 (keyArr), i)
nStr ＝子文本替换 (nStr, keyArr [i], , , , 真)
.计次循环尾 ()
返回 (nStr)

.子程序 IsExis, 逻辑型
.参数 str, 文本型
.参数 keyArr, 文本型, 数组
.局部变量 IsWork, 逻辑型
.局部变量 i, 整数型

IsWork ＝假
.计次循环首 (取数组成员数 (keyArr), i)
.如果真 (寻找文本 (str, keyArr [i], , 假) ≠ -1)
IsWork ＝真
跳出循环 ()
.如果真结束

.计次循环尾 ()
返回 (IsWork)
这样不就解决了？

作者: 剑哥 时间: 2018-5-23 00:37
666666666666

作者: 小飞爱精易 时间: 2018-6-6 05:51

支持开源~！感谢分享

作者: wangbowen8800 时间: 2018-12-25 19:03
66666666666

欢迎光临精易论坛 (https://125.confly.eu.org/)