新手E语言记事本源码

新手E语言记事本源码 .版本 2 .支持库 iext .支持库 eAPI .支持库 shell .支持库 sock .支持库 internet .程序集 窗口程序集1 .子程序 _关闭_被单击 .如果真 (询问保存文档 () , 假) 销毁 () .如果真结束 .子程序 _最小化_被单击 _启动窗口.位置 , 2 .子程序 _时钟1_周期事件 .局部变量 星期, 整数型 时钟1.时钟周期 , 1000 星期 , 取星期几 (取现行时间 ()) .判断开始 (星期 , 1) 透明标签1.标题 , “现在时间是:” ， 到文本 (取年份 (取现行时间 ())) ， “年” ， 到文本 (取月份 (取现行时间 ())) ， “月” ， 到文本 (取日 (取现行时间 ())) ， “日” ， “星期” ， “日” ， 到文本 (取小时 (取现行时间 ())) ， “:” ， 到文本 (取分钟 (取现行时间 ())) .默认 透明标签1.标题 , “现在时间是:” ， 到文本 (取年份 (取现行时间 ())) ， “年” ， 到文本 (取月份 (取现行时间 ())) ， “月” ， 到文本 (取日 (取现行时间 ())) ， “日” ， “星期” ， 数值到大写 (星期 , 1, 真) ， 到文本 (取小时 (取现行时间 ())) ， “:” ， 到文本 (取分钟 (取现行时间 ())) .判断结束 .子程序 _编辑框1_内容被改变 .局部变量 字, 整数型 字 , 取文本长度 (编辑框1.内容) .如果 (字 ? 2156) 编辑框1.滚动条 , 2 .否则 编辑框1.滚动条 , 0 .如果结束 .子程序 _图形按钮5_被单击 _启动窗口.高度 , 485 图形按钮4.可视 , 真 图形按钮5.可视 , 假 .子程序 _图形按钮4_被单击 _启动窗口.高度 , 25 图形按钮4.可视 , 假 图形按钮5.可视 , 真 .子程序 _超级按钮1_被单击 弹出菜单 (文件, 取鼠标水平位置 () , 35, 取鼠标垂直位置 () ， 10) .子程序 _超级按钮2_被单击 弹出菜单 (编辑, 取鼠标水平位置 () , 30, 取鼠标垂直位置 () ， 10) .子程序 _超级按钮4_被单击 弹出菜单 (功能, 取鼠标水平位置 () , 45, 取鼠标垂直位置 () ， 10) .子程序 _编辑框1_鼠标右键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (编辑, 取鼠标水平位置 (), 取鼠标垂直位置 ()) .子程序 _打开网址_被选择 .如果真 (编辑框1.被选择字符数 , 0) 打开指定网址 (到文本 (编辑框1.被选择文本)) 编辑框1.获取焦点 () .如果真结束 .子程序 _全选_被选择 编辑框1.被选择字符数 , -1 编辑框1.获取焦点 () .子程序 _剪切_被选择 编辑框1.发送信息 (769, 0, 0) 模拟按键 (#Del键, , ) .子程序 _粘贴_被选择 编辑框1.发送信息 (770, 0, 0) .子程序 _查找_被选择 .局部变量 被查找文本, 文本型, 静态 .局部变量 找到位置, 整数型 .如果真 (输入框 (“请输入欲查找的文本”, “查找文本”, 被查找文本, 被查找文本, #输 入文本) , 真) 找到位置 , 寻找文本 (编辑框1.内容, 被查找文本, , 假) .如果 (找到位置 ? -1) 编辑框1.获取焦点 () 编辑框1.起始选择位置 , 找到位置 , 1 编辑框1.被选择字符数 , 取文本长度 (被查找文本) .否则 信息框 (“没有找到指定文件”, 0, ) .如果结束 .如果真结束 .子程序 _聊QQ_被选择 打开指定网址 (“tencent://message/?uin=” ， 编辑框1.内容) .子程序 _打开浏览器_被选择 运行 (“C:\Program Files\Internet Explorer\iexplore.exe”, 假, ) .子程序 _关机_被选择 .如果 (信息框 (“你正在编辑内容，真的要关机吗,”, #询问图标 ， #是否钮, “提示”) , #是钮) 关闭系统 (#关机, 真) .否则 返回 () .如果结束 .子程序 _重启_被选择 .如果 (信息框 (“你正在编辑内容，真的要重启吗,”, #询问图标 ， #是否钮, “提示”) , #是钮) 关闭系统 (#重启, 真) .否则 返回 () .如果结束 .子程序 _字体_被选择 .局部变量 字, 字体 通用对话框1.类型 , 2 通用对话框1.打开 () 字.加粗 , 通用对话框1.加粗 字.倾斜 , 通用对话框1.倾斜 字.删除线 , 通用对话框1.删除线 字.下划线 , 通用对话框1.下划线 字.字体名称 , 通用对话框1.字体名称 字.字体大小 , 通用对话框1.字体大小 编辑框1.字体 , 字 编辑框1.文本颜色 , 通用对话框1.字体颜色 .子程序 _颜色_被选择 _字体_被选择 () .子程序 _大写转小写_被选择 编辑框1.被选择文本 , 到小写 (编辑框1.被选择文本) 编辑框1.获取焦点 () .子程序 _小写转大写_被选择 编辑框1.被选择文本 , 到大写 (编辑框1.被选择文本) 编辑框1.获取焦点 () .子程序 _另存为_被选择 通用对话框1.类型 , 1 .如果真 (通用对话框1.打开 () , 真) 写到文件 (通用对话框1.文件名, 到字节集 (编辑框1.内容)) .如果真结束 .子程序 询问保存文档, 逻辑型, , 返回真表示用户选择了中止 .局部变量 询问返回, 整数型 .如果真 (是否已被修改 () , 真) 询问返回 , 信息框 (“文件已经被修改，是否保存,”, #取消是否钮 ， #询问图标, “询问”) .如果真 (询问返回 , #取消钮) 返回 (真) .如果真结束 .如果真 (询问返回 , #是钮) 通用对话框1.标题 , “保存” 通用对话框1.类型 , 1 通用对话框1.打开 () 写到文件 (通用对话框1.文件名, 到字节集 (编辑框1.内容)) .如果真结束 .如果真结束 返回 (假) .子程序 是否已被修改, 逻辑型 返回 (编辑框1.发送信息 (184, 0, 0) ? 0) .子程序 _打印_被选择 打印机1.开始打印 (真, 真, 0, 0, , ) .子程序 _新建_被选择 .如果真 (询问保存文档 () , 假) 编辑框1.内容 , “” .如果真结束 .子程序 _打开_被选择 .如果真 (询问保存文档 () , 假) 通用对话框1.过滤器 , “文本文件(*.txt)|*.txt” 通用对话框1.标题 , “打开” 通用对话框1.打开 () 编辑框1.内容 , 到文本 (读入文件 (通用对话框1.文件名)) 编辑框2.内容 , 通用对话框1.文件名 .如果真结束 .子程序 _保存_被选择 .如果真 (编辑框2.内容 , “” 且 是否已被修改 () , 真) 通用对话框1.标题 , “保存” 通用对话框1.类型 , 1 通用对话框1.打开 () 写到文件 (通用对话框1.文件名, 到字节集 (编辑框1.内容)) .如果真结束 .如果真 (编辑框2.内容 ? “” 且 是否已被修改 () , 真) 通用对话框1.类型 , 1 通用对话框1.标题 , “保存” 写到文件 (编辑框2.内容, 到字节集 (编辑框1.内容)) 编辑框1.内容 , 到文本 (读入文件 (编辑框2.内容)) 编辑框1.起始选择位置 , -1 编辑框1.获取焦点 () .如果真结束 .子程序 _打开注册表_被选择 运行 (“regedit”, 假, ) .子程序 _打开组策略_被选择 执行 (#打开文件, “gpedit.msc”, “gpedit.msc”, ) .子程序 _打开CMD_被选择 运行 (“cmd”, 假, ) .子程序 _运行_被选择 运行 (编辑框1.内容, 假, ) .子程序 _清空_被选择 .如果真 (询问保存文档 () , 假) 编辑框1.内容 , “” .如果真结束 .子程序 _复制_被选择 编辑框1.发送信息 (769, 0, 0) .子程序 _退出_被选择 .如果真 (询问保存文档 () , 假) 销毁 () .如果真结束 .子程序 _打开任务管理器_被选择 运行 (“taskmgr”, 假, ) .子程序 __启动窗口_创建完毕 .局部变量 本机IP, 文本型, , "2" _启动窗口.位置 , 2 _启动窗口.位置 , 0 本机IP , 取本机IP () .如果 (是否已在线 () , 真) 透明标签2.标题 , “ ” ， “本机外网IP是:” ， 本机IP [2] ， “ ” ， “本机内网IP是:” ， 本机IP [1] .否则 透明标签2.标题 , “本机外网IP为空，原因是:你未连接上网。” ， “本机内网 IP是:” ， 本机IP [1] .如果结束 ?小顾技术?