恶搞小游戏源码（键盘按键失效且编辑框1无法粘贴）

熬夜 · 发表于 2018-5-15 13:53:56

易语言简单代码让键盘按键失效按下键盘按键F键U键C键K键无效
编辑框1无法粘贴内容到编辑框里面
编辑框键盘快捷键粘贴和鼠标右键粘贴功能失效

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

wangbowen8800 · 发表于 2018-12-25 19:03:10

66666666666

小飞爱精易 · 发表于 2018-6-6 05:51:34

支持开源~！感谢分享

剑哥 · 发表于 2018-5-23 00:37:32

666666666666

若梦随遇而安 · 发表于 2018-5-21 19:58:23

.版本 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-21 19:30:02

编辑框键盘快捷键粘贴和鼠标右键粘贴功能失效我也学习学习

ffsfdsa · 发表于 2018-5-16 13:08:11

完全没有难度啊

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

方法2: 手写输入法

熬夜 · 发表于 2018-5-15 15:12:37

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

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

kyo9766 · 发表于 2018-5-15 14:52:05

1L 调皮....................

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

		自动登录	找回密码
密码			注册

[易源码分享] 恶搞小游戏源码（键盘按键失效且编辑框1无法粘贴）