易语言好玩的源码

3. 求一段易语言个人记事本的源码

.版本 2
.程序集 启动窗口程序集.程序集变量 现行文件名, 文本型.程序集变量 当前被搜寻文本, 文本型.程序集变量 是否区分大小写, 逻辑型.程序集变量 常用文件名, 文本型, , "3".程序集变量 常用文件菜单项, 菜单, , "3", 成员数目必须与“常用文件名”相等
.子程序 __启动窗口_尺寸被改变
编辑框.移动 (5, 5, 取用户区宽度 () － 10, 取用户区高度 () － 10)
.子程序 _新建_被选择
.如果真 (询问保存文档 () ＝ 假) 编辑框.内容 ＝ “” 标题 ＝ “E 语言记事本” 设置修改状态 (假) 现行文件名 ＝ “”.如果真结束

.子程序 _打开_被选择.局部变量 文件号, 整数型
.如果真 (询问保存文档 () ＝ 假) 通用对话框1.标题 ＝ “请输入欲打开的文本文件名：” 通用对话框1.类型 ＝ 0 .如果真 (通用对话框1.打开 () ＝ 真) .如果真 (打开并读入文件 (通用对话框1.文件名)) 加入常用文件名 (通用对话框1.文件名) .如果真结束
.如果真结束
.如果真结束

.子程序 _常用文件1_被选择.局部变量 变量1, 整数型.局部变量 当前菜单项, 菜单
.如果真 (询问保存文档 () ＝ 真) 返回 ().如果真结束当前菜单项 ＝ 取事件组件 ().计次循环首 (取数组成员数 (常用文件菜单项), 变量1) .如果真 (常用文件菜单项 [变量1] ＝ 当前菜单项 且 常用文件名 [变量1] ≠ “”) 打开并读入文件 (常用文件名 [变量1]) .如果真结束
.计次循环尾 ()

.子程序 打开并读入文件, 逻辑型, , 成功返回真，失败返回假.参数 文件名, 文本型.局部变量 窗口标题, 文本型.局部变量 文件号, 整数型.局部变量 是否读入成功, 逻辑型
编辑框.内容 ＝ “”设置修改状态 (假)窗口标题 ＝ “E 语言记事本”现行文件名 ＝ “”
文件号 ＝ 打开文件 (文件名, #读入, ).如果 (文件号 ≠ 0) 编辑框.内容 ＝ 读入文本 (文件号, ) 关闭文件 (文件号) 现行文件名 ＝ 文件名 窗口标题 ＝ 窗口标题 ＋ “ - ” ＋ 现行文件名 是否读入成功 ＝ 真.否则 信息框 (“打开文件失败！”, #错误图标, “错误”).如果结束标题 ＝ 窗口标题返回 (是否读入成功)
.子程序 _保存_被选择
保存文档 ()
.子程序 _另存为_被选择
通用对话框1.标题 ＝ “请输入欲另存到的文本文件名：”通用对话框1.类型 ＝ 1.如果真 (通用对话框1.打开 () ＝ 真) 保存文档 (通用对话框1.文件名).如果真结束

.子程序 _打印_被选择
.如果真 (打印机1.开始打印 (, ) ＝ 真) 打印机1.写文本行 (编辑框.内容) ' “写文本行”命令会自动换行及换页 打印机1.结束打印 ().如果真结束

.子程序 _退出_被选择
.如果真 (询问保存文档 () ＝ 假) 销毁 () ' 通过销毁主窗口退出程序.如果真结束

.子程序 _撤消_被选择
编辑框.发送信息 (199, 0, 0)
.子程序 _剪切_被选择
编辑框.发送信息 (768, 0, 0)
.子程序 _复制_被选择
编辑框.发送信息 (769, 0, 0)
.子程序 _粘贴_被选择
编辑框.发送信息 (770, 0, 0)
.子程序 _全选_被选择
编辑框.发送信息 (177, 0, -1)
.子程序 _日期_被选择
编辑框.被选择文本 ＝ 时间到文本 (取现行时间 (), #日期部分)
.子程序 _时间_被选择
编辑框.被选择文本 ＝ 时间到文本 (取现行时间 (), #时间部分)
.子程序 _设置字体_被选择.局部变量 新字体, 字体
通用对话框1.类型 ＝ 2.如果真 (通用对话框1.打开 () ＝ 假) 返回 ().如果真结束新字体.加粗 ＝ 通用对话框1.加粗新字体.倾斜 ＝ 通用对话框1.倾斜新字体.删除线 ＝ 通用对话框1.删除线新字体.下划线 ＝ 通用对话框1.下划线新字体.字体名称 ＝ 通用对话框1.字体名称新字体.字体大小 ＝ 通用对话框1.字体大小编辑框.字体 ＝ 新字体编辑框.文本颜色 ＝ 通用对话框1.字体颜色
.子程序 _查找_被选择
载入 (搜寻窗口, _启动窗口, 假)
.子程序 _关于_被选择
载入 (关于窗口, , 真)
.子程序 是否已被修改, 逻辑型
返回 (编辑框.发送信息 (184, 0, 0) ≠ 0)
.子程序 设置修改状态.参数 是否已被修改, 逻辑型, 可空, 默认为设置成被修改
编辑框.发送信息 (185, 选择 (是否为空 (是否已被修改) ＝ 真 或 是否已被修改 ＝ 真, 1, 0), 0)
.子程序 __启动窗口_可否被关闭, 逻辑型
返回 (取反 (询问保存文档 ()))
.子程序 询问保存文档, 逻辑型, , 返回真表示用户选择了中止.局部变量 询问返回, 整数型
.如果真 (是否已被修改 () ＝ 真) 询问返回 ＝ 信息框 (“文件已经被修改，是否保存？”, #取消是否钮 ＋ #询问图标, “询问”) .如果真 (询问返回 ＝ #取消钮) 返回 (真) .如果真结束 .如果真 (询问返回 ＝ #是钮) .如果真 (保存文档 () ＝ 真) 返回 (真) .如果真结束
.如果真结束
.如果真结束返回 (假)
.子程序 保存文档, 逻辑型, , 返回真表示用户选择了中止.参数 文件名, 文本型, 可空.局部变量 保存文件名, 文本型.局部变量 文件号, 整数型
保存文件名 ＝ 选择 (是否为空 (文件名), 现行文件名, 文件名).如果真 (保存文件名 ＝ “”) 通用对话框1.标题 ＝ “请输入欲保存到的文本文件名：” 通用对话框1.类型 ＝ 1 .如果真 (通用对话框1.打开 () ＝ 假) 返回 (真) .如果真结束 保存文件名 ＝ 通用对话框1.文件名.如果真结束设置修改状态 (假)文件号 ＝ 打开文件 (保存文件名, #重写, ).如果真 (文件号 ≠ 0) .如果 (写出文本 (文件号, 编辑框.内容) ＝ 真) 关闭文件 (文件号) 现行文件名 ＝ 保存文件名 标题 ＝ “E 语言记事本 - ” ＋ 现行文件名 加入常用文件名 (保存文件名) 返回 (假) .否则 关闭文件 (文件号) .如果结束
.如果真结束信息框 (“保存文件失败！”, #错误图标, “错误”)返回 (假)
.子程序 _查找上一个_被选择
搜寻 (假)
.子程序 _查找下一个_被选择
搜寻 (真)
.子程序 搜寻.参数 是否为搜寻下一个, 逻辑型.局部变量 搜寻位置, 整数型
.如果真 (当前被搜寻文本 ＝ “”) 返回 ().如果真结束搜寻位置 ＝ 编辑框.起始选择位置 ＋ 1 ' 搜寻位置应该从 1 开始，而编辑框的“起始选择位置”属性值是从 0 开始。.如果真 (是否为搜寻下一个) 搜寻位置 ＝ 搜寻位置 ＋ 编辑框.被选择字符数.如果真结束.如果 (是否为搜寻下一个) 搜寻位置 ＝ 寻找文本 (编辑框.内容, 当前被搜寻文本, 搜寻位置, 是否区分大小写).否则 搜寻位置 ＝ 倒找文本 (编辑框.内容, 当前被搜寻文本, 搜寻位置, 是否区分大小写).如果结束.如果 (搜寻位置 ＝ -1) 信息框 (“未找到指定文本” ＋ #左引号 ＋ 当前被搜寻文本 ＋ #右引号, #错误图标, “错误”).否则 编辑框.起始选择位置 ＝ 搜寻位置 － 1 ' 转换回编辑框的“起始选择位置”属性值。 编辑框.被选择字符数 ＝ 取文本长度 (当前被搜寻文本).如果结束

.子程序 __启动窗口_创建完毕.局部变量 变量1, 整数型
载入常用文件 ()常用文件菜单项 [1] ＝ 常用文件1常用文件菜单项 [2] ＝ 常用文件2常用文件菜单项 [3] ＝ 常用文件3.计次循环首 (取数组成员数 (常用文件菜单项), 变量1) 常用文件菜单项 [变量1].标题 ＝ “&” ＋ 到文本 (变量1) ＋ “. ” ＋ 常用文件名 [变量1].计次循环尾 ().计次循环首 (取数组成员数 (常用文件菜单项) － 1, 变量1) 事件转移 (常用文件菜单项 [变量1 ＋ 1], 常用文件1).计次循环尾 ()显示常用菜单项 ()
.子程序 显示常用菜单项.局部变量 变量1, 整数型
.如果真 (常用文件名 [1] ＝ “”) 返回 ().如果真结束连续赋值 (真, 常用文件分隔条.可视, 常用文件菜单项 [1].可视).计次循环首 (取数组成员数 (常用文件菜单项) － 1, 变量1) .如果真 (常用文件名 [变量1 ＋ 1] ≠ “”) 常用文件菜单项 [变量1 ＋ 1].可视 ＝ 真 .如果真结束
.计次循环尾 ()
.子程序 加入常用文件名.参数 欲加入文件名, 文本型.局部变量 变量1, 整数型.局部变量 数组成员数目, 整数型
检查 (欲加入文件名 ≠ “”)数组成员数目 ＝ 取数组成员数 (常用文件菜单项).计次循环首 (数组成员数目, 变量1) .如果真 (常用文件名 [变量1] ＝ “”) 跳出循环 () ' 找到一个空白菜单项 .如果真结束 .如果真 (文本比较 (常用文件名 [变量1], 欲加入文件名, 假) ＝ 0) 返回 () ' 该常用文件菜单项已经存在 .如果真结束
.计次循环尾 ().如果真 (变量1 ＞ 数组成员数目) ' 如果已经没有了空白菜单项位置，则将第一个菜单项推出 .计次循环首 (数组成员数目 － 1, 变量1) 常用文件名 [变量1] ＝ 常用文件名 [变量1 ＋ 1] 常用文件菜单项 [变量1].标题 ＝ “&” ＋ 到文本 (变量1) ＋ “. ” ＋ 常用文件名 [变量1] .计次循环尾 () 变量1 ＝ 数组成员数目 ' 置为指向最后一个菜单项的位置.如果真结束常用文件名 [变量1] ＝ 欲加入文件名常用文件菜单项 [变量1].标题 ＝ “&” ＋ 到文本 (变量1) ＋ “. ” ＋ 欲加入文件名显示常用菜单项 ()
.子程序 读入常用文件列表, 文本型.参数 读入序号, 整数型
检查 (读入序号 ≥ 1 且 读入序号 ≤ 取数组成员数 (常用文件菜单项))返回 (取文本注册表项 (“E 记事本”, “常用文件”, 到文本 (读入序号), ))
.子程序 写出常用文件.参数 写出序号, 整数型
检查 (写出序号 ≥ 1 且 写出序号 ≤ 取数组成员数 (常用文件菜单项))写注册表项 (“E 记事本”, “常用文件”, 到文本 (写出序号), 常用文件名 [写出序号])
.子程序 载入常用文件.局部变量 变量1, 整数型
.计次循环首 (取数组成员数 (常用文件菜单项), 变量1) 常用文件名 [变量1] ＝ 读入常用文件列表 (变量1).计次循环尾 ()
.子程序 保存常用文件列表.局部变量 变量1, 整数型
.计次循环首 (取数组成员数 (常用文件名), 变量1) 写出常用文件 (变量1).计次循环尾 ()
.子程序 __启动窗口_将被销毁
保存常用文件列表 ()

4. 易语言做键盘记录器的源码

易语言做键盘记录器的源码如下：

程序集
窗口程序集1

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

SkinH_Attach
()

编辑框1禁止
＝
真

停止按钮禁止
＝
真

信息框
(“欢迎使用小天键盘记录系统，在关闭此记录系统后，会自动保存记录的内容到运行目录！”,
#信息图标,
“欢迎使用！”)

子程序
_停止按钮_被单击

开始按钮禁止
＝
假

编辑框1禁止
＝
真

时钟1时钟周期
＝
0

停止按钮禁止
＝
真

子程序
_开始按钮_被单击

开始按钮禁止
＝
真

编辑框1禁止
＝
假

时钟1时钟周期
＝
50

停止按钮禁止
＝
假

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

编辑框1加入文本
(看看按键
())

子程序
_按钮1_被单击

编辑框1内容
＝
“
”

子程序
__启动窗口_可否被关闭,
逻辑型

写到文件
(取运行目录
()
＋
“\记录内容txt”,
到字节集
(编辑框1内容))

销毁
()

子程序
_按钮2_被单击

删除文件
(取运行目录
()
＋
“\记录内容txt”)