业余编程

亲测5分钟本地化部署 Deepseek ，并自定义 Ollama 安装路径及其模型数据下载路径

教你掌控 ClearType ！！！在以前的老显示器和其他性能较差无法开到正确分辨率的显示器上，启用 ClearType 的确可以提升文字显示清晰度。但是，对于视力正常的人来说，在性能正常的1080p、2K、4K显示器上打开 ClearType 反倒会起到反作用，会感觉文字显示模糊不清。而我上面的程序需要得到效果正确的透明背景 PNG 图片那更是不能开ClearType 了。

直接从图片控件获取其中的图像数据到byte数组

问题： 已知三个点的坐标 A、B、C，和宽度 R ，以中点 B 作为重合顶点，中点分别与两个端点A、C 为边，绘制两个矩形，组成一个新的形状，求合并后图形上剩余三个点A1、B1、C1的坐标。

从代码看 jquery.wordexport.js ，还可以做很多优化和自定义，现在这个只能勉强算是验证，还不能投入实用

对于 ASP 来说，最适配的 URI 中文参数传递转换应该还是推荐 Unicode 编码，不和浏览器默认转换 UTF-8 扯皮，扯不清楚，于是自己写了个简单的 VBS 版 unescape

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

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

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

详细信息，请选择有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。物理上增加一些连续行的长度，以尽量减少行继续字符，或是将此结构拆分成多个语句。能连接的行数是有限制的。

在英语中，"elevation" 和 "altitude" 这些词的确起源于贵族社会中的阶级划分思想，用于区分不同社会阶层的人。然而，随着时间的推移，这些词汇已经逐渐普及到日常生活中，并成为了专业领域中的标准术语。因此，在不同的语境下，使用不同的词汇可以更加准确地表达所要表达的意思。感谢您的参与讨论。

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

最终逻辑就是，你用卖给客户一个产品，但是因为启动钥匙（加密的解密密钥）已插在产品上，，启动钥匙是加密的解密密钥（产品外壳可用解密密钥来打开），所以客户无法看懂钥匙（无法解出解密密钥），产品能正常使用，所以客户打不开你也不希望客户能打开产品窥探其中的玄机，这时候，客户是基本无法打开产品外壳的。可见，最终需要保密的不是什么编码表，也不是密钥，而是编码过程程序，因为其中有自定义易位编码函数等，只要不知道加密原文，那么在没有编码程序的情况下，光凭密文是没办法解密的，即使你有编码表和密钥也不行。

之前的文章中，已实现输出控制台显示，但想在 VBA 中使用时就不行，查了下，发现需要加上：AllocConsole 就行。要正常换行时，使用 vbCrLf 结尾。要改写当前行，使用 vbCr 结尾即可。

HJ212-2017《污染物在线监控（监测）系统数据传输标准》中 CRC 数据校验算法 VB / JS 源码

一个 Base64 & UUE 文件编码/解码工具（可自定义编码表），含源程序。

这几天准备完善下 Base64 & UUE 编码文件生成工具，发现处理大文件时，特别慢，分析了一下发现是字符串拼接和切分代码效率太低，看如下代码：Private Sub Command1_Click() Dim fL As Long, enfp As Integer, defp As Integer, enfn, defn Dim B() As Byte, tmpstr As String, outStr As String Dim timx As Single

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

问题由来：有一批客服提供的配音文件，好几千个，需要用作我写的程序合成，发现其尺寸差异较大，遂检查了一遍，发现果然里面10%的文件格式有问题，和其他不一致：Option ExplicitPublic Type RIFF ID As String * 4 '0x00 4Byte 大端 'RIFF' (0x52494646) Size As Long '0x04 4Byte 小端 fileSize - 8 Type As Str

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

以下内容仅作为 http://topic.youkuaiyun.com/u/20090707/00/0b3b4c31-8cef-4bd2-817e-4a2a445e8b87.html?seed=1787678774之素材，不代表其他含义。今天做了个Base64编码程序，本想将二进制文件编码后可以直接在论坛或Blog上发布，而不用再担心不能上传附件的问题，当然了，只是针对小文件而言，超过几M的大文

目前，无可用的 VB6 的透明 PNG 图像直接生成方案。但是有 TGA 透明图像生成方案，刚刚测试了ImageMagick 的文件格式转换功能可自动将包含透明信息的 TGA 图像直接转换为包含透明信息的 PNG 图像。 因此有思路：VB6 生成透明 TGA 图像，然后批处理调用ImageMagick 的convert 直接以 ： convert 1.tga 1.png 这个命令行方式将之前 VB6 制作的图像转换为透明的 PNG 图像。 在目前暂...

刚刚看了一个视频网站的 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.youkuaiyun.com/jessezappy/article/details/53561739?utm_source=blogxgwz5），一切正常，这几天有个项目需要用UTF-8 编码base64 ，随即试了一下，发现结果不同，检查才发现，原 base64 编码使用的是 unicode(GB2312) 数据进行编码的，于是找了个字符串 unicode(GB2312) 转 UTF-8 的函数改造了一下，重新打造了个 VB 的 base84(ut...

大家都知道 VBS 中 fso 读文件的用法 ：Set fso=CreateObject("Scripting.FileSystemObject")Set f = fso.OpenTextFile(yjjsfn) '--fso不支持utf-8格式，故用Adodb.Stream代替之见ReadFiles = f.ReadAllf.Closeset f = nothingset fso...

最近做一个将文字转换为图片做视频叠加字幕的软件，大家都知道VB的图像控件Picture Box只能输出BMP格式位图，自然我的软件是用Picture Box做图像输出的也不例外，但是客户要求要输出带alpha通道的TGA格式，以方便视频制作软件去除背景色实现透明，找了一些资料，都没见到与VB相关的说明更不用说代码了，也想过借助第3方软件用命令行方式来转换，但是找到转换软件一看，都不支持透明色处理，

上次TGA的项目要增加功能，在图片上再贴图片，当然需要能方便的调整新加入的图片的位置，比如可以移动后贴上的图片位置，决定了要贴在哪个位置再确定是否贴上，简单的说就是PictureBox 内再加一层象photoShop中的那种图层，图层可以移动。这样就带来了一个问题“透明”！因为后加入的图像需要透明背景不能成方形的覆盖在底图像上。想了几个办法，如透明Form或Image 控件，但是用form控件透明

2009-09-17 11:52:31专业的网络对时软件大多采用NTP协议来获取专业时间服务器时间对时，也有采用SNTP协议的，本来也想做个SNTP或NTP协议的对时工具自己用，虽然我手上也有好几个采用NTP协议对时的软件，但是使用过程中发现通过网通的网络上网的话，这些软件全部都无法接收到时间服务器返回的，原先不了解NTP协议的时候以为是程序本身有什么问题，因为通过电信的网络上网的话...

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

解决asp输出xml格式文件时的 XML declaration allowed only at the start of the document 诡异错误

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

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

Adodb.Stream : 错误 '800a0bb9' 参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

转载自：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文件都是一个可独立播放的视频文件，而把它们直接组合起来也可以当作...

参考资料：https://www.cnblogs.com/liuzhaoyzz/p/6406629.html今天用VBS读写MDB数据库，把原来在asp里面运行正常的代码拿过来，发现总是出现 x800a0e7a错误：查了一下，才想起来是因为64位系统未启用32 位 MDB 数据库引擎造成的。才回想起来当初 IIS7.5 里面跑 asp 的时候也出现过这个问题，改了下 IIS 设...