易语言常用源码集合

使用命令：

写到文件 (取运行目录 () ＋ “1.skn”, #皮肤)
易皮肤_载入皮肤 (取运行目录 () ＋ “1.skn”, )

切记<易皮肤_载入皮肤>要用到（易语言皮肤支持库2.0.rar）

（易语言皮肤支持库2.0.rar）路径：F:\易语言\软件\易语言皮肤支持库2[1].0.zip


注意：#皮肤)这个地方的名称一定要和你添加的资源名称一样 否则不能使用


加载皮肤 (7)
加载Aero特效 ()

这个一定要加33个皮肤模块





设置窗口透明度的命令：
设置窗口透明度 (取窗口句柄 (), 200)




注意：运行（）EXE文件的就直接输入路径！如果是记事本那么就在前面加一个 +文本文档的路径

范例：这个运行文件------.运行 (“D:\123.exe”, 假, )
这个运行文档------运行 (“notepad.exe D:\123.txt” , 假, )

DLL注入：
/help/zlsc/dll/dll.htm


编辑框内容不被复制：

鼠标右键被按下
返回（假）

编辑框 按下某键（）
如果（键代码＝＃CTRJ键＝真）
返回（假）


.版本 2

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

时钟1.时钟周期 ＝ 1000


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

标签1.标题 ＝ 到文本 (到数值 (标签1.标题) ＋ 1)






进度条：


.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
时钟1.时钟周期 ＝ 10
.子程序 _时钟1_周期事件
进度条1.位置 ＝ 进度条1.位置 ＋ 1
.如果真 (进度条1.位置 ＝ 100)
载入 (窗口1, , 真)
时钟1.时钟周期 ＝ 0
进度条1.位置 ＝ 0
.如果真结束












文件传输源码：服务器端口[9000]← 防火墙的默认端口！ 服务器端口[8000]← 1024以上的 0~1024以上的端口 邮箱的端口：80



以下是文件传输的源码：
版本 2
.支持库 iext2

.程序集 窗口程序集1
.程序集变量 文件号1, 整数型
.程序集变量 文件号2, 整数型
.程序集变量 文件大小, 整数型
.程序集变量 已接收文件大小, 整数型
.程序集变量 内容, 文本型

.子程序 _按钮1_被单击

.如果 (客户1.连接 (IP编辑框1.地址, 9000))
.如果真 (通用对话框1.文件名 ＝ “”)
信息框 (“您未选择要传送的文件!”, 0, “提示!”)
.如果真结束
.如果真 (通用对话框1.文件名 ≠ “”)
客户1.发送数据 (“[请求]”)
.如果真结束

.否则
信息框 (“连接失败!”, 0, “提示!”)
.如果结束


.子程序 _按钮2_被单击

.如果真 (通用对话框1.打开 ())
标签3.标题 ＝ “要传送的文件: ” ＋ 通用对话框1.文件名
.如果真结束


.子程序 _服务器1_数据到达, , , 接收文件
.局部变量 客户地址, 文本型
.局部变量 接收内容, 字节集
.局部变量 操作符, 文本型
.局

部变量 判断, 整数型

客户地址 ＝ 服务器1.取回客户 ()
接收内容 ＝ 服务器1.取回数据 ()
操作符 ＝ 取字节集数据 (取字节集左边 (接收内容, 6), #文本型, )
.判断开始 (操作符 ＝ “[请求]”)
判断 ＝ 信息框 (“客户: ” ＋ 客户地址 ＋ “ 要求传送文件到本机,是否接收”, 1, )
.如果 (判断 ＝ 0)
服务器1.发送数据 (客户地址, “[同意]”, )
_启动窗口.高度 ＝ 198
.否则
服务器1.发送数据 (客户地址, “[拒决]”, )
.如果结束

.判断 (操作符 ＝ “[名称]”)
内容 ＝ 取字节集数据 (取字节集右边 (接收内容, 取字节集长度 (接收内容) － 6), #文本型, )
通用对话框2.文件名 ＝ 内容
通用对话框2.打开 ()
文件号1 ＝ 打开文件 (通用对话框2.文件名, #改写, )
服务器1.发送数据 (客户地址, “[STR]”, )
.判断 (操作符 ＝ “[大小]”)
文件大小 ＝ 到数值 (取字节集数据 (取字节集右边 (接收内容, 取字节集长度 (接收内容) － 6), #文本型, ))
服务器1.发送数据 (客户地址, “[OK]”, )
.判断 (操作符 ＝ “[传送]”)
写出字节集 (文件号1, 取字节集右边 (接收内容, 取字节集长度 (接收内容) － 6))
已接收文件大小 ＝ 取文件长度 (文件号1)
标签2.标题 ＝ “文件 ：” ＋ 内容 ＋ “(已完成” ＋ 到文本 (已接收文件大小 ÷ 文件大小 × 100) ＋ “%)”
进度条1.可视 ＝ 真
进度条1.位置 ＝ 已接收文件大小 ÷ 文件大小 × 100
服务器1.发送数据 (客户地址, “[OK]”, )
.默认

.判断结束
.如果真 (文件大小 ≠ 0 且 文件大小 ＝ 已接收文件大小)
服务器1.断开客户 (客户地址)
信息框 (“文件传送完毕”, 0, “提醒!”)
关闭文件 (文件号1)
文件号1 ＝ 0
文件大小 ＝ 0
已接收文件大小 ＝ 0
内容 ＝ “”
.如果真结束


.子程序 _客户1_数据到达, , , 发送文件
.局部变量 操作符, 文本型
.局部变量 文本1, 文本型
.局部变量 文本2, 文本型

操作符 ＝ 取字节集数据 (客户1.取回数据 (), #文本型, )
.判断开始 (操作符 ＝ “[同意]”)
文件号2 ＝ 打开文件 (通用对话框1.文件名, #读入, )
文本1 ＝ 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假))
客户1.发送数据 (“[名称]” ＋ 文本1)
标签3.标题 ＝ “正在传送所选文件到远程计算机 [” ＋ IP编辑框1.地址 ＋ “]”
.判断 (操作符 ＝ “[STR]”)
文本2 ＝ 到文本 (取文件长度 (文件号2))
客户1.发送数据 (“[大小]” ＋ 文本2)
.判断 (操作符 ＝ “[OK]”)
.如果真 (是否在文

件尾 (文件号2, ) ＝ 假)
客户1.发送数据 (到字节集 (“[传送]”) ＋ 读入字节集 (文件号2, 1000))
.如果真结束
.如果真 (是否在文件尾 (文件号2, ))
关闭文件 (文件号2)
标签3.标题 ＝ “已成功发送该文件!”
文件号2 ＝ 0
.如果真结束

.判断 (操作符 ＝ “[拒决]”)
信息框 (“远程计算机 [” ＋ IP编辑框1.地址 ＋ “] 已拒绝您的请求!”, 0, )
.默认

.判断结束


.子程序 _按钮3_被单击

标签2.标题 ＝ 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假))

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

进度条1.最大位置 ＝ 100
进度条1.最小位置 ＝ 0
_启动窗口.高度 ＝ 130

.子程序 __启动窗口_将被销毁

.如果真 (文件大小 ≠ 0 且 文件大小 ＞ 已接收文件大小)
信息框 (“文件未传送完毕!”, 0, )
删除文件 (通用对话框2.文件名)
.如果真结束








呼出窗口热键源码：




.版本 2
.支持库 shellEx

.程序集 窗口程序集1
.程序集变量 呼出热键, 整数型

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

呼出热键 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键)

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ 呼出热键)
_启动窗口.可视 ＝ 真





取数据摘要:

.版本 2
.支持库 dp1

.局部变量 数据摘要, 文本型

数据摘要 ＝ 取数据摘要 (到字节集 (编辑框1.内容))
编辑框2.内容 ＝ 到大写 (数据摘要)






取硬盘特征字:


.版本 2

编辑框1.内容 ＝ 到文本 (取绝对值 (取硬盘特征字 ()))








EDB转换EXCEL


模块 < EDB数据库文件转EXCEL文件1.3 >


.版本 2

.子程序 _按钮1_被单击

edb转xls (“填写数据库所在的位置 (必须要完整的路径)”, “填写EXCEL所在的位置 (必须要完整的路径)”)





动态 取现行时间

.版本 2

.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 1000

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

编辑框1.内容 ＝ 到文本 (取现行时间 ())







*****易语言怎么制作网络登录器******


.版本 2

.程序集 窗口程序集1

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

.判断开始 (文件是否存在 (取运行目录 () ＋ “\data.edb”) ＝ 假)
写到文件 (取运行目录 () ＋ “\data.edb”, #初始数据库)

.默认

.判断结束

打开 (取运行目录 () ＋ “\data.edb”, , , , , , )

.子程序 _按钮1_被单击

.判断开始 (客户1.连接 (“127.0.0.1”, 19730) ＝ 真)
.判断开始 (用户编辑框.内容 ≠ “”)
.判断开始 (

密码编辑框.内容 ≠ “”)
客户1.发送数据 (“登陆|&|!!” ＋ 用户编辑框.内容 ＋ “|&|!!” ＋ 密码编辑框.内容)

.默认

.判断结束

.默认

.判断结束

.默认

.判断结束


.子程序 _服务器1_数据到达
.局部变量 返回文本, 文本型
.局部变量 操作代码, 文本型

返回文本 ＝ 到文本 (服务器1.取回数据 ())
操作代码 ＝ 取文本左边 (返回文本, 9)
.判断开始 (操作代码 ＝ “登陆|&|!!”) ' 从这里开始判断，操作是登陆还是注册。这里判断为登陆！
信息框 (返回文本, 0, )
登陆 (返回文本)
.默认

.判断结束

.判断开始 (操作代码 ＝ “注册|&|!!”) ' 这里是注册操作的判断条件
注册 (返回文本)
.默认

.判断结束


.子程序 注册
.参数 数据包, 文本型
.局部变量 数组变量, 文本型, , "0"
.局部变量 注册用户名, 文本型
.局部变量 注册密码, 文本型
.局部变量 注册邮箱, 文本型
.局部变量 循环数, 整数型
.局部变量 可以注册, 逻辑型
.局部变量 用户名, 文本型
.局部变量 密码, 文本型
.局部变量 邮箱, 文本型

可以注册 ＝ 假
循环数 ＝ 取记录数 ()
数组变量 ＝ 分割文本 (数据包, “|&|!!”, )
注册用户名 ＝ 数组变量 [2]
注册密码 ＝ 数组变量 [3]
注册邮箱 ＝ 数组变量 [4]
到首记录 ()
.计次循环首 (循环数, )
用户名 ＝ 读 (“用户”)
密码 ＝ 读 (“密码”)
邮箱 ＝ 读 (“邮箱”)
.判断开始 (用户名 ＋ 密码 ＋ 邮箱 ≠ 注册用户名 ＋ 注册密码 ＋ 注册邮箱)
可以注册 ＝ 真
跳出循环 ()
.默认
跳过 ()

.判断结束

.计次循环尾 ()
.判断开始 (可以注册 ＝ 真)
加空记录 ()
写 (“用户”, 注册用户名)
写 (“密码”, 注册密码)
写 (“邮箱”, 注册邮箱)
服务器1.发送数据 (服务器1.取回客户 (), “注册成功!”, )

.默认

.判断结束

.判断开始 (可以注册 ＝ 假)
服务器1.发送数据 (服务器1.取回客户 (), “有了!”, )
.默认

.判断结束


.子程序 登陆, , , 验证登陆
.参数 待处理数据, 文本型
.局部变量 登陆用户, 文本型
.局部变量 用户密码, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 循环, 整数型
.局部变量 数据库_用户, 文本型
.局部变量 数据库_密码, 文本型
.局部变量 记录数, 整数型
.局部变量 以读取数, 整数型
.局部变量 验证标签, 逻辑型
.局部变量 验证邮箱, 文本型
.局部变量 数据库_邮箱, 文本型

记录数 ＝ 取记录数 ()
验证标签 ＝ 假
数组 ＝ 分割文本 (待处理数据, “|&|!!”, )
登陆用户 ＝ 数组 [2]
用户密码 ＝ 数组 [3]
到首记录 ()

.计次循环首 (记录数, 以读取数)
数据库_用户 ＝ 读 (“用户”)
数据库_密码 ＝ 读 (“密码”)
数据库_邮箱 ＝ 读 (“邮箱”)
.判断开始 (数据库_用户 ＋ 数据库_密码 ＝ 登陆用户 ＋ 用户密码)

验证标签 ＝ 真
跳出循环 ()

.默认
跳过 ()

.判断结束

.计次循环尾 ()
.判断开始 (验证标签 ＝ 真)
服务器1.发送数据 (服务器1.取回客户 (), “登陆成功!”, )
.默认
服务器1.发送数据 (服务器1.取回客户 (), “登陆失败!”, )
.判断结束


.子程序 _客户1_数据到达, , , 反馈登陆信息

.判断开始 (到文本 (客户1.取回数据 ()) ＝ “登陆成功!”)
信息框 (“来自服务器的消息：登陆成功!”, 0, )
.默认

.判断结束

.判断开始 (到文本 (客户1.取回数据 ()) ＝ “登陆失败!”)
信息框 (“来自服务器的消息：登陆失败!”, 0, )
.默认

.判断结束

' ==============================================以上为登陆操作，下面是注册的=======================



注册：


.判断开始 (到文本 (客户1.取回数据 ()) ＝ “有了!”)
信息框 (“来自服务器的消息：欲注册的用户已经存在!”, 0, )
.默认

.判断结束

.判断开始 (到文本 (客户1.取回数据 ()) ＝ “注册成功!”)
信息框 (“来自服务器的消息：注册成功!”, 0, )
.默认

.判断结束


.子程序 _按钮2_被单击, , , 客户1进行数据操作
.局部变量 注册数据包, 文本型, , , 这是发送注册信息的完整的变量
.局部变量 分割标签, 文本型, , , 将几个数据属性（用户、密码、邮箱）分开以保证服务器区别的特殊文本
.局部变量 用户, 文本型
.局部变量 密码, 文本型
.局部变量 邮箱, 文本型

分割标签 ＝ “|&|!!”
.判断开始 (编辑框3.内容 ≠ “”)
用户 ＝ 编辑框3.内容
.判断开始 (编辑框4.内容 ≠ “”)
.判断开始 (编辑框5.内容 ≠ “”)
.判断开始 (编辑框6.内容 ≠ “”)
邮箱 ＝ 编辑框6.内容
.判断开始 (编辑框4.内容 ＝ 编辑框5.内容)
密码 ＝ 编辑框4.内容
.默认

.判断结束

.默认

.判断结束

.默认

.判断结束

.默认

.判断结束

.默认

.判断结束

注册数据包 ＝ “注册|&|!!” ＋ 用户 ＋ 分割标签 ＋ 密码 ＋ 分割标签 ＋ 邮箱
客户1.连接 (“127.0.0.1”, 19730)
客户1.发送数据 (注册数据包)





编辑框内容初始化


.版本 2

.程序集 窗口程序集1
.程序集变量 判断是否第一次获得焦点, 逻辑型

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

_启动窗口.获取

焦点 ()
编辑框1.文本颜色 ＝ #灰色
编辑框1.内容 ＝ “请输入用户名/邮箱/手机”

.子程序 _编辑框1_获得焦点

判断是否第一次获得焦点 ＝ 真
.如果真 (判断是否第一次获得焦点 ＝ 真)
编辑框1.内容 ＝ “”
编辑框1.文本颜色 ＝ #黑色
.如果真结束