当前位置:首页 » 操作系统 » 易语言贴吧源码

易语言贴吧源码

发布时间: 2022-05-31 22:17:59

⑴ 谁能提供点基础的易语言程序源码

如果安装的是完整版的易语言,会有很多小例程的。在新建程序的时候,对话框左侧的列表中可以找到。这些例程多是针对单一的控件或者实现某一功能的。

⑵ 易语言源码

哦 哦 ,那我给你个记事本的源码吧 如下
.版本 2
.支持库 iext2
.支持库 iext
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 文件路径, 文本型
.程序集变量 当前是否正在打字, 逻辑型

.子程序 _超级编辑框1_内容被改变, , , 更改超级编辑框的颜色
.局部变量 颜色, 字符格式

颜色.文本颜色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
超级编辑框1.置选择区字符格式 (颜色)
状态条1.置文本 (0, “行 ” + 到文本 (超级编辑框1.取行数 ()) + “ 文本长度 ” + 到文本 (超级编辑框1.取文本长度 ()))

.子程序 __启动窗口_创建完毕, , , 设置通用对话框

通用对话框1.过滤器 = “txt|*.txt”
通用对话框1.默认文件后缀 = “txt”
通用对话框1.标题 = “传说记事本保存对话框...”
_时间日期_被选择 ()
_炫银皮肤_被选择 ()
备忘录提醒 ()

.子程序 __启动窗口_位置被改变, , , 位置被改变后超级编辑框也跟着改变(按钮1也跟着改变)

.如果真 (_启动窗口.位置 = 3)
超级编辑框1.宽度 = 取屏幕宽度 () - 3
超级编辑框1.高度 = 取屏幕高度 () - 80 - 按钮1.高度 - 10
按钮1.顶边 = 取屏幕高度 () - 状态条1.高度 - 100
按钮1.宽度 = 取屏幕宽度 () - 5
按钮1.高度 = 状态条1.高度 + 10
.如果真结束
.如果真 (_启动窗口.位置 = 0)
超级编辑框1.宽度 = _启动窗口.宽度 - 10
超级编辑框1.高度 = _启动窗口.高度 - 55 - 按钮1.高度 - 10
按钮1.顶边 = 200
按钮1.宽度 = 560

.如果真结束

.子程序 _新建_被选择, , , New文件

.如果真 (超级编辑框1.内容 ≠ “”)
.如果真 (信息框 (“您还没保存!请问您要进行保存吗?”, 4, ) = #是钮)
通用对话框1.类型 = 1
通用对话框1.打开 ()
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束

.如果真结束

.子程序 _打开_被选择, , , Open文件

通用对话框1.类型 = 0
通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ≠ “”)
超级编辑框1.内容 = 到文本 (读入文件 (通用对话框1.文件名))
文件路径 = 通用对话框1.文件名

.如果真结束

.子程序 _保存_被选择, , , Save文件

.如果真 (文件路径 = “”)
通用对话框1.类型 = 1
通用对话框1.打开 ()
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束
.如果真 (文件路径 ≠ “”)
写到文件 (文件路径, 到字节集 (超级编辑框1.内容))
.如果真结束

.子程序 _保存到_被选择, , , Save As文件

通用对话框1.类型 = 1
通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ≠ “”)
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束

.子程序 _撤销_被选择, , , Undo 文本

超级编辑框1.撤消 ()

.子程序 _剪切_被选择, , , Cut 文本

超级编辑框1.剪切 ()

.子程序 _复制_被选择, , , Copy 文本

超级编辑框1.复制 ()

.子程序 _粘连_被选择, , , Paste文本

超级编辑框1.粘贴 ()

.子程序 _删除_被选择, , , Delete文本

超级编辑框1.删除 ()
超级编辑框1.内容 = 取文本左边 (超级编辑框1.内容, 取文本长度 (超级编辑框1.内容) - 1)

.子程序 _寻找_被选择, , , Find文本

载入 (Find窗口, , 真)

.子程序 _寻找下一个_被选择, , , 还没解决好

.子程序 _文本替换_被选择, , , 文本替换

载入 (文本替换窗口, , 真)

.子程序 _跳到_被选择, , , 还没解决好

载入 (跳到窗口, , 真)

.子程序 _全选_被选择, , , Select All文本

超级编辑框1.被选择字符数 = 取文本长度 (超级编辑框1.内容)

.子程序 _时间日期_被选择, , , Time-Date
.局部变量 小时, 文本型
.局部变量 分钟, 文本型
.局部变量 日期, 文本型
.局部变量 年份, 文本型
.局部变量 月份, 文本型
.局部变量 日份, 文本型

小时 = 到文本 (取小时 (取现行时间 ()))
分钟 = 到文本 (取分钟 (取现行时间 ()))
年份 = 到文本 (取年份 (取现行时间 ()))
月份 = 到文本 (取月份 (取现行时间 ()))
日份 = 到文本 (取日 (取现行时间 ()))
状态条1.置文本 (1, 小时 + “:” + 分钟 + “ ” + 年份 + “-” + 月份 + “-” + 日份)

.子程序 _传说记事本v13_被选择, , , About Notepad

信息框 (“软件作者:古老的传说” + #换行符 + “QQ:1041750677” + #换行符 + “MSN:[email protected]” + #换行符 + “编写工具:易语言” + #换行符 + “软件版本:1.3” + #换行符, 0, )

.子程序 _密码保管_被选择, , , Password Protect

载入 (密码窗口, , 真)

.子程序 _备忘录_被选择, , , 载入备忘录窗口

载入 (备忘录窗口, , 真)

.子程序 备忘录提醒, , , 备忘录提醒
.局部变量 分割文本, 文本型, , "0"
.局部变量 今天日期, 文本型
.局部变量 分割今天日期, 文本型, , "0"

分割文本 = 分割文本 (读配置项 (取运行目录 () + “\备忘录.ini”, “备忘录”, “提示日期”, ), “日”, )
今天日期 = 到文本 (取日期 (取现行时间 ()))
分割今天日期 = 分割文本 (今天日期, “日”, )
.如果真 (取数组成员数 (分割文本) = 1 或 取数组成员数 (分割文本) > 1)
.如果真 (分割文本 [1] = 分割今天日期 [1])
状态条1.置文本 (2, “您今天有一份备忘录噢^_^”)
.如果真结束

.如果真结束

.子程序 _银白皮肤_被选择, , , 银白皮肤

更换新皮肤 (1)

.子程序 _浅白皮肤_被选择, , , 浅白皮肤

更换新皮肤 (10)

.子程序 _浅灰皮肤_被选择, , , 浅灰皮肤

更换新皮肤 (13)

.子程序 _浅蓝皮肤_被选择, , , 浅蓝皮肤

更换新皮肤 (19)

.子程序 _浅黑皮肤_被选择, , , 浅黑皮肤

更换新皮肤 (5)

.子程序 _炫银皮肤_被选择, , , 炫银皮肤

更换新皮肤 (2)

.子程序 _炫白皮肤_被选择, , , 炫白皮肤

更换新皮肤 (15)

.子程序 _炫蓝皮肤_被选择, , , 炫蓝皮肤

更换新皮肤 (18)

.子程序 _深黑皮肤_被选择, , , 深黑皮肤

更换新皮肤 (14)

.子程序 __启动窗口_可否被关闭, 逻辑型, , 透明显示最小化运行
.局部变量 变量1, 整数型

变量1 = 255
.计次循环首 (255, )
设置窗口透明度 (_启动窗口.取窗口句柄 (), 变量1)
变量1 = 变量1 - 1
.如果真 (变量1 = 1)
置托盘图标 (#程序图标, “古老的传说记事本v1.2”)
_启动窗口.可视 = 假
.如果真结束

.计次循环尾 ()

返回 (假)

.子程序 __启动窗口_托盘事件, , , 透明显示_启动窗口
.参数 操作类型, 整数型
.局部变量 变量1, 整数型

.如果真 (操作类型 = 1)
_启动窗口.可视 = 真
.计次循环首 (255, 变量1)
设置窗口透明度 (_启动窗口.取窗口句柄 (), 变量1)
.计次循环尾 ()
.如果真结束
.如果真 (操作类型 = 3)
弹出菜单 (图标菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())

.如果真结束

.子程序 __启动窗口_将被销毁, , , 销毁任务栏图标

置托盘图标 ({ }, )

.子程序 _打开传说记事本_被选择, , , _启动窗口.可视=真

__启动窗口_托盘事件 (1)

.子程序 _销毁_被选择, , , 销毁软件

销毁 ()

.子程序 _超级编辑框1_按下某键, 逻辑型, , 正在打字中...
.参数 键代码, 整数型
.参数 功能键状态, 整数型

当前是否正在打字 = 真
按钮1.标题 = “正在打字中...”
时钟1.时钟周期 = 800
返回 (真)

.子程序 _超级编辑框1_放开某键, 逻辑型, , 暂停打字中...
.参数 键代码, 整数型
.参数 功能键状态, 整数型

当前是否正在打字 = 假
返回 (真)

.子程序 _时钟1_周期事件, , , 暂停打字中...

.如果真 (当前是否正在打字 = 假)
按钮1.标题 = “暂停打字中...”

.如果真结束

.子程序 _超级编辑框1_选择区被改变, , , 超级编辑框1.滚动

超级编辑框1.滚动 (1)

⑶ 易语言源码是什么

就是 文件名.e的文件 用这个文件 可以修改程序的功能 界面等 把它改写成你自己的程序 如果你想学习易语言推荐去赤血学院 学习一下 哪里成套的视频教程 可以让你快速入门。

⑷ 求个易语言源码 T.T禁止打开指定网站,像百度贴吧

首先你要接获浏览器的地址栏的文本,然后你可以看看地址里面有没有你要屏蔽的地址。有就关闭浏览器。这些功能如果要实现,可以使用易境模块。

⑸ 什么是易语言源码怎么用,大概有几种我是新手,详细点!

就是一个程序的源文件
一个程序里面有很多原理
这些就是易语言源码
比如一个EXE的文件
它就有一个源码
这么说吧
如果一个JPG图片
那么它的源码就是还没保存的时候可以编辑的那个情况下
比如说一个程序(点按钮1就出现对话框“123”)
那么它的源码就是:
大概原理就是
按钮1点击时:信息框(“123”,0,)
这样
就是易语言源码

⑹ 跪求易语言百度贴吧发帖源码

验证码无法自动填写 其他的可以做到

⑺ 跪求~易语言百度贴吧发贴机源码

不好找啊。。。好东西没人开源。。我也坐等。。[email protected]。。

⑻ 百度个人贴吧专用签到(易语言源码)

判断(寻找文本(返回文本,“你要找的吧名”)!=1)
信息框(“对不起,不是这个吧”)

⑼ [易语言]谁能给我个简单的登录百度贴吧的例子源码l邮箱:[email protected]

提示 收件人邮件地址不存在

⑽ 易语言源码是什么

源码就是
你用易语言编写程序过程中写的
一些命令
凡是在代码区的都称之为源码
那什么又代码区呢?就是在易语言安放组件的地方双击任何组件都可以切换到代码区
如有疑请追问

热点内容
浏览器打不开服务器通信怎么办 发布:2024-05-18 21:32:22 浏览:960
创建存储空间 发布:2024-05-18 21:20:57 浏览:120
sql日期和时间 发布:2024-05-18 21:16:19 浏览:142
安卓网页怎么截取 发布:2024-05-18 20:53:56 浏览:970
在配置更新的时候没电关机怎么办 发布:2024-05-18 20:36:10 浏览:927
win7访问win2000 发布:2024-05-18 20:27:41 浏览:388
青岛人社局密码多少 发布:2024-05-18 20:19:10 浏览:734
无法存储呼叫转移 发布:2024-05-18 20:18:30 浏览:126
数据库的调优 发布:2024-05-18 20:18:29 浏览:346
sqlserver注册表清理 发布:2024-05-18 20:13:14 浏览:992