易语言常用源码集合

进度条1.位置 ＝ 0
.如果真结束
文件传输源码：服务器端口[9000]← 防火墙的默认端口！ 服务器端口[8000]← 1024以上的 0~1024以上的端口 邮箱的端口：80
以下是文件传输的源码：
版本 2
.支持库 iext2
.程序集 窗口程序集1
编辑框内容不被复制：
鼠标右键被按下
返回（假）
编辑框 按下某键（）
如果（键代码＝＃CTRJ键＝真）
返回（假）
.版本 2
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 ＝ 1000
.子程序 _时钟1_周期事件
标签1.标题 ＝ 到文本 (到数值 (标签1.标题) ＋ 1)
取数据摘要:
.版本 2
.支持库 dp1
.局部变量 数据摘要, 文本型
数据摘要 ＝ 取数据摘要 (到字节集 (编辑框1.内容))
编辑框2.内容 ＝ 到大写 (数据摘要)
取硬盘特征字:
.版本 2
编辑框1.内容 ＝ 到文本 (取绝对值 (取硬盘特征字 ()))
通用对话框2.文件名 ＝ 内容
通用对话框2.打开 ()
文件号1 ＝ 打开文件 (通用对话框2.文件名, #改写, )
服务器1.发送数据 (客户地址, “[STR]”, )
.判断 (操作符 ＝ “[大小]”)
文件大小 ＝ 到数值 (取字节集数据 (取字节集右边 (接收内容, 取字节集长度 (接收内容) － 6), #文本型, ))
写到文件 (取运行目录 () ＋ “\data.edb”, #初始数据库)
.默认
.判断结束
打开 (取运行目录 () ＋ “\data.edb”, , , , , , )
.子程序 _按钮1_被单击
.判断开始 (客户1.连接 (“127.0.0.1”, 19730) ＝ 真)
关闭文件 (文件号1)
文件号1 ＝ 0
文件大小 ＝ 0
已接收文件大小 ＝ 0
内容 ＝ “”
.如果真结束
.子程序 _客户1_数据到达, , , 发送文件
.局部变量 操作符, 文本型
.局部变量 文本1, 文本型
.局部变量 文本2, 文本型
.判断开始 (用户编辑框.内容 ≠ “”)
.判断开始 (密码编辑框.内容 ≠ “”)
客户1.发送数据 (“登陆|&|!!” ＋ 用户编辑框.内容 ＋ “|&|!!” ＋ 密码编辑框.内容)
.默认
.判断结束
信息框 (“您未选择要传送的文件!”, 0, “提示!”)
.如果真结束
.如果真 (通用对话框1.文件名 ≠ “”)
客户1.发送数据 (“[请求]”)
.如果真结束
.否则
信息框 (“连接失败!”, 0, “提示!”)
.如果结束
.局部变量 注册用户名, 文本型
.局部变量 注册密码, 文本型
.局部变量 注册邮箱, 文本型
.局部变量 循环数, 整数型
.局部变量 可以注册, 逻辑型
.局部变量 用户名, 文本型
.局部变量 密码, 文本型
.局部变量 邮箱, 文本型
可以注册 ＝ 假
循环数 ＝ 取记录数 ()
数组变量 ＝ 分割文本 (数据包, “|&|!!”, )
使用命令：
写到文件 (取运行目录 () ＋ “1.skn”, #皮肤)
易皮肤_载入皮肤 (取运行目录 () ＋ “1.skn”, )
切记<易皮肤_载入皮肤>要用到（易语言皮肤支持库2.0.rar）
（易语言皮肤支持库2.0.rar）路径：F:\易语言\软件\易语言皮肤支持库2[1].0.zip
客户1.发送数据 (“[名称]” ＋ 文本1)
标签3.标题 ＝ “正在传送所选文
.判断 (操作符 ＝ “[STR]”)
文本2 ＝ 到文本 (取文件长度 (文件号2))
客户1.发送数据 (“[大小]” ＋ 文本2)
操作符 ＝ 取字节集数据 (客户1.取回数据 (), #文本型, )
.判断开始 (操作符 ＝ “[同意]”)
文件号2 ＝ 打开文件 (通用对话框1.文件名, #读入, )
文本1 ＝ 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假))
注意：#皮肤)这个地方的名称一定要和你添加的资源名称一样 否则不能使用
加载皮肤 (7)
加载Aero特效 ()
这个一定要加33个皮肤模块
设置窗口透明度的命令：
设置窗口透明度 (取窗口句柄 (), 200)
注意：运行（）EXE文件的就直接输入路径！如果是记事本那么就在前面加一个 <notepad.exe >+文本文档的路径
注册用户名 ＝ 数组变量 [2]
注册密码 ＝ 数组变量 [3]
注册邮箱 ＝ 数组变量 [4]
.如果真 (文件大小 ≠ 0 且 文件大小 ＞ 已接收文件大小)
信息框 (“文件未传送完毕!”, 0, )
删除文件 (通用对话框2.文件名)
.如果真结束
呼出窗口热键源码：
.版本 2
.支持库 shellEx
.程序集 窗口程序集1
.程序集变量 呼出热键, 整数型
.判断 (操作符 ＝ “[OK]”)
.如果真 (是否在文件尾 (文件号2, ) ＝ 假)
客户1.发送数据 (到字节集 (“[传送]”) ＋ 读入字节集 (文件号2, 1000))
.如果真结束
.如果真 (是否在文件尾 (文件号2, ))
关闭文件 (文件号2)
信息框 (返回文本, 0, )
登陆 (返回文本)
.默认
.判断结束
.判断开始 (操作代码 ＝ “注册|&|!!”) ' 这里是注册操作的判断条件
注册 (返回文本)
.默认
.判断结束
.子程序 注册
.参数 数据包, 文本型
.局部变量 数组变量, 文本型, , "0"
进度条：
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
时钟1.时钟周期 ＝ 10
.子程序 _时钟1_周期事件
进度条1.位置 ＝ 进度条1.位置 ＋ 1
.如果真 (进度条1.位置 ＝ 100)
载入 (窗口1, , 真)
时钟1.时钟周期 ＝ 0
.程序集变量 文件号1, 整数型
.程序集变量 文件号2, 整数型
.程序集变量 文件大小, 整数型
.程序集变量 已接收文件大小, 整数型
.程序集变量 内容, 文本型
.子程序 _按钮1_被单击
.如果 (客户1.连接 (IP编辑框1.地址, 9000))
.如果真 (通用对话框1.文件名 ＝ “”)
范例：这个运行文件------.运行 (“D:\123.exe”, 假, )
这个运行文档------运行 (“notepad.exe D:\123.txt” , 假, )
DLL注入：
/help/zlsc/dll/dll.htm
.局部变量 判断, 整数型
客户地址 ＝ 服务器1.取回客户 ()
接收内容 ＝ 服务器1.取回数据 ()
操作符 ＝ 取字节集数据 (取字节集左边 (接收内容, 6), #文本型, )
.判断开始 (操作符 ＝ “[请求]”)
判断 ＝ 信息框 (“客户: ” ＋ 客户地址 ＋ “ 要求传送文件到本机,是否接收”, 1, )
EDB转换EXCEL
模块 < EDB数据库文件转EXCEL文件1.3 >
.版本 2
.子程序 _按钮1_被单击
edb转xls (“填写数据库所在的位置 (必须要完整的路径)”, “填写EXCEL所在的位置 (必须要完整的路径)”)
动态 取现行时间
.版本 2
标签3.标题 ＝ “已成功发送该文件!”
文件号2 ＝ 0
.如果真结束
.判断 (操作符 ＝ “[拒决]”)
信息框 (“远程计算机 [” ＋ IP编辑框1.地址 ＋ “] 已拒绝您的请求!”, 0, )
.默认
.判断结束
.子程序 _按钮3_被单击
.子程序 __启动窗口_创建完毕
呼出热键 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键)
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果真 (参数一 ＝ 呼出热键)
_启动窗口.可视 ＝ 真
.默认
.判断结束
.默认
.判断结束
.子程序 _服务器1_数据到达
.局部变量 返回文本, 文本型
.局部变量 操作代码, 文本型
返回文本 ＝ 到文本 (服务器1.取回数据 ())
操作代码 ＝ 取文本左边 (返回文本, 9)
.判断开始 (操作代码 ＝ “登陆|&|!!”) ' 从这里开始判断，操作是登陆还是注册。这里判断为登陆！
服务器1.发送数据 (客户地址, “[OK]”, )
.判断 (操作符 ＝ “[传送]”)
写出字节集 (文件号1, 取字节集右边 (接收内容, 取字节集长度 (接收内容) － 6))
已接收文件大小 ＝ 取文件长度 (文件号1)