66666666666

支持开源~！感谢分享

666666666666

.版本 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)
这样不就解决了？

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

完全没有难度啊

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

方法2: 手写输入法

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

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

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