常见易语言源码
使用命令:
易皮肤_载入皮肤 (取运行目录 () + “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.文件名, “\”, , 假))
发布评论