开源，纯易语言写的屏幕录像软件，测试无bug可以直接使用也可开发成网络版

a285166531

此源码是我用易语言编写的，没有使用模块，纯易语言API都没有用，
此代码实现了屏幕录像，以及录像播放功能
有兴趣的朋友可以拿来2次开发，也可拿来开发成网络版，作者本人不保留任何权利，（不要做坏事哦）~~

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
录像	字节集
录像宽度	整数型
录像高度	整数型
临时文件文件号	整数型
临时文件	字节集
临时文件加之前内容	字节集
图片循环	逻辑型
数据集	字节集
数据集分割	字节集	0
帧数	整数型
计次	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

图片框1.显示方式 ＝ 2
图片框2.显示方式 ＝ 2
_启动窗口.宽度 ＝ 取屏幕宽度 ()
_启动窗口.高度 ＝ 取屏幕高度 ()
图片框1.宽度 ＝ _启动窗口.宽度
图片框1.高度 ＝ _启动窗口.高度
图片框2.宽度 ＝ _启动窗口.宽度
图片框2.高度 ＝ _启动窗口.高度

子程序名	返回值类型	公开	备 注
_按钮1_被单击			开始录像，录像时间为23毫秒1帧

按钮1.禁止 ＝ 真
按钮2.禁止 ＝ 真
按钮3.禁止 ＝ 假
_启动窗口.位置 ＝ 2
临时文件文件号 ＝ 打开文件 (取运行目录 () ＋ “\临时文件.cyle”, 5, 4)
删除数据 (临时文件文件号, 取文件长度 (临时文件文件号))
判断 (临时文件文件号 ＝ 0)
写到文件 (取运行目录 () ＋ “\临时文件.cyle”, 到字节集 (“”))
临时文件文件号 ＝ 打开文件 (取运行目录 () ＋ “\临时文件.cyle”, 5, 4)
判断 (临时文件文件号 ＝ 0)
信息框 (“创建临时文件失败”, 0, )
时钟1.时钟周期 ＝ 23

时钟1.时钟周期 ＝ 23

子程序名	返回值类型	公开	备 注
_时钟1_周期事件			录像事件

录像 ＝ 快照 (, , )
判断 (图片循环)
图片框2.可视 ＝ 假
图片框1.图片 ＝ 录像
图片框1.可视 ＝ 真
图片循环 ＝ 假
图片框1.可视 ＝ 假
图片框2.图片 ＝ 录像
图片框2.可视 ＝ 真
图片循环 ＝ 真
临时文件中转 (临时文件文件号, 录像)

子程序名	返回值类型	公开	备 注
临时文件中转			保存录像,如果要改为网络版可在此处写客户Duan发送事件
参数名	类 型	参考	可空	数组	备 注
文件号	整数型
数据	字节集

读入数据 (文件号, 临时文件加之前内容)
写出字节集 (文件号, 临时文件加之前内容 ＋ 压缩数据 (数据) ＋ 到字节集 (“||||||||||”))

子程序名	返回值类型	公开	备 注
_按钮3_被单击			结束录像

按钮1.禁止 ＝ 假
按钮2.禁止 ＝ 假
按钮3.禁止 ＝ 真
时钟1.时钟周期 ＝ 0
关闭文件 (临时文件文件号)

子程序名	返回值类型	公开	备 注
_按钮2_被单击			播放

临时文件文件号 ＝ 打开文件 (取运行目录 () ＋ “\临时文件.cyle”, 1, 4)
判断 (临时文件文件号 ＝ 0)
信息框 (“视屏不存在”, 0, )
取视屏信息 ()
计次 ＝ 0
时钟2.时钟周期 ＝ 170

子程序名	返回值类型	公开	备 注
取视屏信息			获取视屏信息

数据集 ＝ 读入字节集 (临时文件文件号, 取文件长度 (临时文件文件号))
数据集分割 ＝ 分割字节集 (数据集, 到字节集 (“||||||||||”), )
帧数 ＝ 取数组成员数 (数据集分割)

子程序名	返回值类型	公开	备 注
_时钟2_周期事件			播放事件

计次 ＝ 计次 ＋ 1
判断 (计次 ＝ 帧数)
时钟3.时钟周期 ＝ 1


判断 (图片循环)
图片框2.可视 ＝ 假
图片框1.图片 ＝ 解压数据 (数据集分割 [计次])
图片框1.可视 ＝ 真
图片循环 ＝ 假
图片框1.可视 ＝ 假
图片框2.图片 ＝ 解压数据 (数据集分割 [计次])
图片框2.可视 ＝ 真
图片循环 ＝ 真

子程序名	返回值类型	公开	备 注
_时钟3_周期事件			播放完毕

时钟2.时钟周期 ＝ 0
计次 ＝ 0
关闭文件 (临时文件文件号)
时钟3.时钟周期 ＝ 0

i支持库列表	支持库注释
dp1	数据操作支持库一

.版本 2<br /> .支持库 dp1<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 录像, 字节集<br /> .程序集变量 录像宽度, 整数型<br /> .程序集变量 录像高度, 整数型<br /> .程序集变量 临时文件文件号, 整数型<br /> .程序集变量 临时文件, 字节集<br /> .程序集变量 临时文件加之前内容, 字节集<br /> .程序集变量 图片循环, 逻辑型<br /> .程序集变量 数据集, 字节集<br /> .程序集变量 数据集分割, 字节集, , "0"<br /> .程序集变量 帧数, 整数型<br /> .程序集变量 计次, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 图片框1.显示方式 ＝ 2<br /> 图片框2.显示方式 ＝ 2<br /> _启动窗口.宽度 ＝ 取屏幕宽度 ()<br /> _启动窗口.高度 ＝ 取屏幕高度 ()<br /> 图片框1.宽度 ＝ _启动窗口.宽度<br /> 图片框1.高度 ＝ _启动窗口.高度<br /> 图片框2.宽度 ＝ _启动窗口.宽度<br /> 图片框2.高度 ＝ _启动窗口.高度<br /> <br /> .子程序 _按钮1_被单击, , , 开始录像，录像时间为23毫秒1帧<br /> <br /> 按钮1.禁止 ＝ 真<br /> 按钮2.禁止 ＝ 真<br /> 按钮3.禁止 ＝ 假<br /> _启动窗口.位置 ＝ 2<br /> 临时文件文件号 ＝ 打开文件 (取运行目录 () ＋ “\临时文件.cyle”, 5, 4)<br /> 删除数据 (临时文件文件号, 取文件长度 (临时文件文件号))<br /> .判断开始 (临时文件文件号 ＝ 0)<br />     写到文件 (取运行目录 () ＋ “\临时文件.cyle”, 到字节集 (“”))<br />     临时文件文件号 ＝ 打开文件 (取运行目录 () ＋ “\临时文件.cyle”, 5, 4)<br />     .判断开始 (临时文件文件号 ＝ 0)<br />         信息框 (“创建临时文件失败”, 0, )<br />     .默认<br />         时钟1.时钟周期 ＝ 23<br />     .判断结束<br /> <br /> .默认<br />     时钟1.时钟周期 ＝ 23<br /> .判断结束<br /> <br /> <br /> .子程序 _时钟1_周期事件, , , 录像事件<br /> <br /> 录像 ＝ 快照 (, , )<br /> .判断开始 (图片循环)<br />     图片框2.可视 ＝ 假<br />     图片框1.图片 ＝ 录像<br />     图片框1.可视 ＝ 真<br />     图片循环 ＝ 假<br /> .默认<br />     图片框1.可视 ＝ 假<br />     图片框2.图片 ＝ 录像<br />     图片框2.可视 ＝ 真<br />     图片循环 ＝ 真<br /> .判断结束<br /> 临时文件中转 (临时文件文件号, 录像)<br /> <br /> .子程序 临时文件中转, , , 保存录像,如果要改为网络版可在此处写客户Duan发送事件<br /> .参数 文件号, 整数型<br /> .参数 数据, 字节集<br /> <br /> 读入数据 (文件号, 临时文件加之前内容)<br /> 写出字节集 (文件号, 临时文件加之前内容 ＋ 压缩数据 (数据) ＋ 到字节集 (“||||||||||”))<br /> <br /> .子程序 _按钮3_被单击, , , 结束录像<br /> <br /> 按钮1.禁止 ＝ 假<br /> 按钮2.禁止 ＝ 假<br /> 按钮3.禁止 ＝ 真<br /> 时钟1.时钟周期 ＝ 0<br /> 关闭文件 (临时文件文件号)<br /> <br /> .子程序 _按钮2_被单击, , , 播放<br /> <br /> 临时文件文件号 ＝ 打开文件 (取运行目录 () ＋ “\临时文件.cyle”, 1, 4)<br /> .判断开始 (临时文件文件号 ＝ 0)<br />     信息框 (“视屏不存在”, 0, )<br /> .默认<br />     取视屏信息 ()<br />     计次 ＝ 0<br />     时钟2.时钟周期 ＝ 170<br /> .判断结束<br /> <br /> <br /> .子程序 取视屏信息, , , 获取视屏信息<br /> <br /> 数据集 ＝ 读入字节集 (临时文件文件号, 取文件长度 (临时文件文件号))<br /> 数据集分割 ＝ 分割字节集 (数据集, 到字节集 (“||||||||||”), )<br /> 帧数 ＝ 取数组成员数 (数据集分割)<br /> <br /> .子程序 _时钟2_周期事件, , , 播放事件<br /> <br /> 计次 ＝ 计次 ＋ 1<br /> .判断开始 (计次 ＝ 帧数)<br />     时钟3.时钟周期 ＝ 1<br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (图片循环)<br />     图片框2.可视 ＝ 假<br />     图片框1.图片 ＝ 解压数据 (数据集分割 [计次])<br />     图片框1.可视 ＝ 真<br />     图片循环 ＝ 假<br /> .默认<br />     图片框1.可视 ＝ 假<br />     图片框2.图片 ＝ 解压数据 (数据集分割 [计次])<br />     图片框2.可视 ＝ 真<br />     图片循环 ＝ 真<br /> .判断结束<br /> <br /> <br /> .子程序 _时钟3_周期事件, , , 播放完毕<br /> <br /> 时钟2.时钟周期 ＝ 0<br /> 计次 ＝ 0<br /> 关闭文件 (临时文件文件号)<br /> 时钟3.时钟周期 ＝ 0

wtflxk

来学习学习，感谢大佬分享

hjdnwx

666666666666

oo1314250pp

完全不能用

oo1314250pp

看样子不错

kiss0459

没有鼠标指针，屏闪严重

o亂⒎バ糟ミ

谢谢···学习下··········

与你共舞

谢谢啊哦哦哦哦

fangziii123

非常好了，谢谢分享

晓崔同学

非常棒的源码

harvenkiss

11111111111111