【开源】cha询笔画

袁煜914

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
GP缓存图形	GP缓存图形
GP图形	GP图形
GP位图	GP位图
_id	整数型

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

变量名	类 型	静态	数组	备 注
正则	正则表达式类
gif链接	文本型
str	文本型

str ＝ 到文本 (网页_访问_对象 (“https://guoxue.baike.so.com/query/view?type=word&title=” ＋ 编辑框1.内容, , , , , , , , , , , , , , , , , , ))
正则.创建 (“data-write=#引号(.*?)#引号”, str, , 真, 真, 真)
gif链接 ＝ 正则.取子匹配文本 (1, 1, )
写到文件 (目录_取特定目录 (5) ＋ “\temp.gif”, 网页_访问_对象 (gif链接, , , , , , , , , , , , , , , , , , ))
处理GIF (目录_取特定目录 (5) ＋ “\temp.gif”)

子程序名	返回值类型	公开	备 注
处理GIF
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
GP	GP图像
文件名	文本型

连续赋值 (假, 编辑框1.可视, 按钮1.可视)

Gdiplus初始化 ()
GP图形.创建自窗口句柄 (取窗口句柄 (), )
GP缓存图形.创建 (宽度, 高度)
GP位图.创建自字节集 ({  }, )
启动线程 (&_绘画线程, , _id)


文件名 ＝ 子文本替换 (到小写 (取文本中间 (文件路径, 倒找文本 (文件路径, “\”, , 假) ＋ 1, 取文本长度 (文件路径))), “.gif”, , , , 真)
GP.创建自文件 (文件路径, )
GP.复制 (GP位图)
GP.销毁 ()

子程序名	返回值类型	公开	备 注
_绘画线程

变量名	类 型	静态	数组	备 注
i	整数型
n
t
a_	逻辑型
b_	逻辑型

t ＝ 80
判断循环首 (i ≠ -1)
如果真 (a_ ＝ 真)
' //这玩意不支持同时操作  _GP位图.取帧数 (#帧维面_时间)    保存完再显示..
' //等对面保存完再显示...
b_ ＝ 真
延时 (100)
到循环尾 ()

n ＝ GP位图.取帧数 ( #帧维面_时间 )
计次循环首 (n, i)
GP位图.置活动帧 ( #帧维面_时间, i)
GP缓存图形.清除 ()
GP缓存图形.画图像缩放 (GP位图, 0, 0, 宽度, 高度, )
GP缓存图形.复制到图形 (GP图形, , , , , , , )
延时 (t)
计次循环尾 ()
如果 (n ≤ 0)
延时 (100)
延时 (t)

判断循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

强制结束线程 (_id)
GP位图.销毁 ()
GP图形.销毁 ()
GP缓存图形.销毁 ()
Gdiplus关闭 ()
结束 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 GP缓存图形, GP缓存图形<br /> .程序集变量 GP图形, GP图形<br /> .程序集变量 GP位图, GP位图<br /> .程序集变量 _id, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 gif链接, 文本型<br /> .局部变量 str, 文本型<br /> <br /> str ＝ 到文本 (网页_访问_对象 (“https://guoxue.baike.so.com/query/view?type=word&title=” ＋ 编辑框1.内容, , , , , , , , , , , , , , , , , , ))<br /> 正则.创建 (“data-write=#引号(.*?)#引号”, str, , 真, 真, 真)<br /> gif链接 ＝ 正则.取子匹配文本 (1, 1, )<br /> 写到文件 (目录_取特定目录 (5) ＋ “\temp.gif”, 网页_访问_对象 (gif链接, , , , , , , , , , , , , , , , , , ))<br /> 处理GIF (目录_取特定目录 (5) ＋ “\temp.gif”)<br /> <br /> .子程序 处理GIF<br /> .参数 文件路径, 文本型<br /> .局部变量 GP, GP图像<br /> .局部变量 文件名, 文本型<br /> <br /> 连续赋值 (假, 编辑框1.可视, 按钮1.可视)<br /> <br /> Gdiplus初始化 ()<br /> GP图形.创建自窗口句柄 (取窗口句柄 (), )<br /> GP缓存图形.创建 (宽度, 高度)<br /> GP位图.创建自字节集 ({  }, )<br /> 启动线程 (&_绘画线程, , _id)<br /> <br /> <br /> 文件名 ＝ 子文本替换 (到小写 (取文本中间 (文件路径, 倒找文本 (文件路径, “\”, , 假) ＋ 1, 取文本长度 (文件路径))), “.gif”, , , , 真)<br /> GP.创建自文件 (文件路径, )<br /> GP.复制 (GP位图)<br /> GP.销毁 ()<br /> <br /> <br /> .子程序 _绘画线程<br /> .局部变量 i, 整数型<br /> .局部变量 n<br /> .局部变量 t<br /> .局部变量 a_, 逻辑型<br /> .局部变量 b_, 逻辑型<br /> <br /> t ＝ 80<br /> .判断循环首 (i ≠ -1)<br />     .如果真 (a_ ＝ 真)<br />         ' //这玩意不支持同时操作  _GP位图.取帧数 (#帧维面_时间)    保存完再显示..<br />         ' //等对面保存完再显示...<br />         b_ ＝ 真<br />         延时 (100)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     n ＝ GP位图.取帧数 (#帧维面_时间)<br />     .计次循环首 (n, i)<br />         GP位图.置活动帧 (#帧维面_时间, i)<br />         GP缓存图形.清除 ()<br />         GP缓存图形.画图像缩放 (GP位图, 0, 0, 宽度, 高度, )<br />         GP缓存图形.复制到图形 (GP图形, , , , , , , )<br />         延时 (t)<br />     .计次循环尾 ()<br />     .如果 (n ≤ 0)<br />         延时 (100)<br />     .否则<br />         延时 (t)<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 强制结束线程 (_id)<br /> GP位图.销毁 ()<br /> GP图形.销毁 ()<br /> GP缓存图形.销毁 ()<br /> Gdiplus关闭 ()<br /> 结束 ()

gif.zip (726.73 KB, 下载次数: 25)

2021-8-4 18:28 上传

点击文件名下载附件
备用：https://yuanyu.lanzoui.com/ikWRBs88nif

发到精易论坛，防止忘记！
本源码由@冰棍好烫啊提供

fuzhen11

非常感谢 下载学习

胖子葛格

感谢大神分享！

junhai

支持开源~！感谢分享

nuan1989

这个厉害. 这个我用得着.

感谢分享~！

kiss0459

这玩应行啊，避免误导孩子

盖亚啊

可以可以

sinewtec

谢谢分享！

xiaoshe

精彩文章希望继续努力，精易因你变得美丽！

124149449

精彩文章希望继续努力