编程路

除了用 GDI+ ，我没找到任何人用纯VB6 做 PNG 格式图片输出的例子，所以，VB6 版本的 PNG 文件格式解析根本没有，只能参考 C 语言的。机缘巧合之下，问了 AI 得到了一个 VB6 版本的最简要的 PNG 文件格式说明，于是有了此原生 VB6 代码保存 PNG 图片的例子。

安装了apache2.4.39以后，默认编码是UTF-8，不管你文件是什么编码，统统按这个来解析，因此 GB2312编码文件内的中文将显示为乱码。如果不设置 AddDefaultCharset ，那么新安装完Apache后，默认都是用 UTF-8 编码来解析页面的。这样，Apache就能按照文件中设定的编码来正确解析文件了，前提是你的文件存储格式必须与设定编码一致。如果配置文件中没有AddDefaultCharset的话就加上一句。

【代码】让一个元素在网页上跟随网页窗口大小变化始终保持上下左右居中。

在Excel中，日期是以一种称为序列号的数字形式存储的，起始点是1900年1月1日。理论上，1900年2月29日应该是第60天的序列号，因为1900年并不是一个闰年。但是，Excel错误地将1900年视为闰年，因此它将2月29日计入了序列号中。这就是为什么DATEVALUE("1900-02-29")返回值是60的原因。

本意是判断 DB 对象是否已初始化，可是在 Is Nothing 这里就报错了，查了下，发现是 Is Nothing 判断的话，需要初始化为对象，而之前在 VBA 里面没有报错是因为对变量进行了定义先： Public DB As Connection ，由此可见，需要培养变量初始化的好习惯。今天将一个自己写的 VBA 函数放到 VBS 去运行，发现一个想不到的诡异错误：空变量判断报错！

1.注册并购买讯飞配音会员2.选择需要的主播3.每天可免费配 80 条语音，每条 1 万字（中文）4.将多段短文字中间插入 1 秒停顿，配音下载，文字少的可直接使用GoldWave 录音。5.内容不多的就不说了，下面说下内容多的处理情况：我需要配的 600 多段短文字，有地名、数字、温馨提示等等，配好后需要将每段声音切分为独立的 WAV 文件便于程序调用，之前尝试过使用“讯飞开放平台”的 TTS 接口，但是里面的可选主播有使用时限限制，而且年费都是 2W 起，用不起。讯飞配音的会员就划.

刚想弄个直尺文档给买不到公制直尺的朋友用，结果收到的文档全是收费的，搞得我火冒三丈，气不过自己写个！话不多说，直接上代码：Sub 画直尺()Dim x1, x2, y1, y2, i, j, T1T1 = CentimetersToPoints(0.1)For i = 0 To 280 '28cm长 x1 = CentimetersToPoints(1 + (i - 1) / 10) x2 = x1 y1 = CentimetersToPoints(1) If

近期想起颜色相似度比较的问题，找到几个公式，发现大家都推荐用 Lab 颜色空间来做，也找到了简化的直接用 RGB 颜色计算出的加权欧式距离公式。因为原公式是直接用 Lab 颜色计算的：ΔE=( ΔL^2 + ΔA^2 + ΔB^2 ) ^ (1/2) ’ΔE 表示色差，ΔL/ΔA/Δb分别表示两个颜色之间在不同分量的差值。因此想看看原公式与加权欧式距离公式之间的计算结果差距，于是想找个 RGB 转 Lab 的算法看看，结果没找到靠谱的 VB 代码，找到了些 C 的自己改成 VB 的来用，大多也.

刚刚看了一个视频网站的 Blob 资源，用 chrome 分析 Network 部分，发现其使用的也是 m3u8 格式（Html源码图）#EXTM3U #EXT-X-STREAM-INF:PROGRAM-ID=1,BANDWIDTH=800000,RESOLUTION=1080x608 1000k/hls/index.m3u8 （图）看了几位大神的文章，有说到直接用 ：ffmpeg -i http://www.xxx.com/xxx.m3u8 name.mp4 下载，试了下，的确很爽，...

注：以下核心代码部分来自：https://tieba.baidu.com/p/2561344540?red_tag=1334161657 。 写了个数据处理程序，正常运行时用 DOS 批处理命令行模式执行，因执行时间较长，就想给它在CMD 窗口看到实时运行结果反馈（不能使用msgbox），找了一圈，找到好多代码，执行附带的示例程序都是正常的，但是用那些代码编译后就是无法显示。疑惑之下，找到了https://tieba.baidu.com/p/2561344540?red_tag=1334161....

根据前几篇 UTF-8 编码和转换的文章代码成果，组装了一个 VBS 和 ASP 读写二进制文件的模块，以便于 Base64 和 MD5 需要进行文件编码时使用，或其它需要用到二进制数据文件时使用：public function Varr2hexstr(a) '-------转换 Variant 数组为十六进制字符串 dim i,S For i = 0 To UBound(a) S=S & Right("00" & Hex(a(i)), 2) ...

先前说到，想用ADODB.Stream 实现GB2312和UTF8编码转换 未果，找了下，找到个文章：《利用ADO STREAM实现GB2312和UTF8编码转换》，试了下，在VB和VBA都没问题，但是在 ASP 和 VBS 下面就不成了，原因就是我一直纠结的，adoStream.Write bytes 失败！ 于是又专门找了一下 VBS 下 Byte 数组的定义方法（https://www.jb51.net/article/33247.htm），将上面的《利用ADO STREAM实现G...

还是和之前的原因一个样，一直在用的 MD5 编码，处理英文时没问题，加了中文，就跟https://tool.oschina.net/encrypt?type=2和https://md5jiami.51240.com/的结果不一样了，想了下，应该还是 UTF-8 编码的问题，于是将原来在用的编码中和字符串转 Byte 数组函数改装了一下，就成了，转换结果一致，说明工作正确：'========================================================-----...

向前一直在用的Base64编码（https://blog.csdn.net/jessezappy/article/details/53561739?utm_source=blogxgwz5），一切正常，这几天有个项目需要用UTF-8 编码base64 ，随即试了一下，发现结果不同，检查才发现，原 base64 编码使用的是 unicode(GB2312) 数据进行编码的，于是找了个字符串 unicode(GB2312) 转 UTF-8 的函数改造了一下，重新打造了个 VB 的 base84(ut...

UUE（UUENCODE ） & Base64编码解码原理最简易源代码。可自定义编码表（纯字符串），修改编码表即可在UUE和Base64编码解码之间切换，已优化解决不支持中文的BUG。 纯字符串方式，不考虑定长折行和加行首字符及文件头尾定义等，方便网页运用，可直接移植为ASP代码（需要删除AS变量类型限定）！

通过[dbo] 标识在数据库连接字串中不使用 Initial Catalog= 参数时，可实现跨库操作数据库

为VBS，VB6，ASP添加完整的反三角函数，顺便附上其他常用函数说明。资料摘录自：http://bbs.csdn.net/topics/80077169，https://zhidao.baidu.com/question/204077581477198605.html，https://wenku.baidu.com/view/116d1ec20c22590102029d6a.html

转载自：http://www.educity.cn/office/7090.htmlExcel中VBA 的Round 函数与工作表Round 函数的区别是什么浏览：1306|更新：2015-09-19 14:302015-09-18更新 此答案由站在风中的女子提供1VBA的Round函数与工作表的Round函数均为四舍五入函数，两个函数的语法相同，但有着很大的不同，其主要区别如下：1：VBA的Ro...

m3u8视频播放链接其实是无数个TS格式文件的列表文件，TS文件相关信息请自行搜索。下载的m3u8视频，除了列表文件外还有存放无数个TS文件的文件夹，使用不便，而且大家现在都喜欢mp4，要把下载的m3u8视频转为mp4视频文件首先需要把那无数个TS文件组合为一个文件才能进行转换，根据查到的资料，对照TS文件特性发现，每个零碎的TS文件都是一个可独立播放的视频文件，而把它们直接组合起来也可以当作...

这几天又有朋友问起透明PictureBox的问题，具体用了http://blog.csdn.net/jessezappy/article/details/2409939那些代码后出什么问题也不好逐一核查与解释，因此应各位网友需要，特制作了一个例子供大家参考。请将以下 begin 至 end 之间的文字复制到记事本，保存时选“所有文件”保存为“透明PictureBox示例.rar”再用rar打开即可