常见的易语言源码大集合
常见易语言源码
使用命令：
写到文件(取运行目录() ＋“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注入：
https://www.wendangku.net/doc/0811560617.html,/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.文本颜色＝#黑色
.如果真结束