常见易语言源码
使用命令：
写到文件 (取运行目录 () ＋ “1.skn”, #皮肤)
易皮肤_载入皮肤 (取运行目录 () ＋ “1.skn”, )
切记<易皮肤_载入皮肤>要用到（易语言皮肤支持库2.0.rar）
（易语言皮肤支持库2.0.rar）路径：F:\易语言\软件\易语言皮肤支持库2[1].0.zip
注意：#皮肤)这个地方的名称一定要和你添加的资源名称一样 否则不能使用
加载皮肤 (7)
加载Aero特效 ()
这个一定要加33个皮肤模块
设置窗口透明度的命令：
设置窗口透明度 (取窗口句柄 (), 200)
注意：运行（）EXE文件的就直接输入路径！如果是记事本那么就在前面加一个 & >+文本文档的路径
范例：这个运行文件------.运行 (“D:\”, 假, )
          这个运行文档------运行  (“ D:\” , 假, )
DLL注入：
www.dywt/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.标题 ＝ “文件 ：” ＋ 内容 ＋ “(已完成” ＋ 到文本 (已接收文件大小 ÷ 文件大小 × 1
00) ＋ “%)”
    进度条1.可视 ＝ 真
    进度条1.位置 ＝ 已接收文件大小 ÷ 文件大小 × 100
    服务器1.发送数据 (客户地址, “[OK]”, )
.默认
.判断结束
.如果真 (文件大小 ≠ 0 且 文件大小 ＝ 已接收文件大小)
    服务器1.断开客户 (客户地址)
    信息框 (“文件传送完毕”, 0, “提醒!”)
    关闭文件 (文件号1)
    文件号1 ＝ 0
    文件大小 ＝ 0
    已接收文件大小 ＝ 0
    内容 ＝ “”
.如果真结束
.子程序 _客户1_数据到达, , , 发送文件
.局部变量 操作符, 文本型
.局部变量 文本1, 文本型
.局部变量 文本2, 文本型
操作符 ＝ 取字节集数据 (客户1.取回数据 (), #文本型, )
.判断开始 (操作符 ＝ “[同意]”)
    文件号2 ＝ 打开文件 (通用对话框1.文件名, #读入, )
    文本1 ＝ 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒文本 (通用对话框1.文件名, “\”, , 假))

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。