业余编程

手把手教你如何本地化部署 DeepSeek 并投喂数据完成个性化专业定制，小白也能操作，不用命令行进行设置，完全可视化操作。并且发现 1.5b 的资料总结能力相当糟糕，基本看不懂资料，资料中明确提示的内容它都不定归纳出来，相比之下，32b 基本工作正常，归纳资料逻辑清晰准确。

在各软件中点击打开文件操作时，会弹出文件选择窗口，此时想复制选择的文件所在的文件夹路径发现做不到，怎么办呢？于是，我想了个馊主意，文件选择窗口不是可以点右键菜单嘛，那就在右键菜单上加个打开文件所在位置的按钮不就行了！但是要怎么做呢，我不会，那就问AI！AI 给出的方案是添加注册表项，这么说这是系统内置功能，只是没默认启用而已。下面给出便于使用的注册表文件：

VBS 调用 Deepseek 的 API 接口的源代码

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

等下试试这办法对 ollama 是否有效。看起来用的虚拟目录映射法搞定的。

建议稍微有一点点编程基础知识再学 Java

重新安装一下 IISExpress，位于 Visual Studio 2013\安装包\packages\IISExpress\iisexpress_x64_en-US.msi。文档\\IISExpress\config\ 下替换掉 applicationhost.config 即可。

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

对于 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的原因。

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

回忆记录一下色斑图制作中的 kriging.js 的修改要点：原版绘图，不能根据值来指定颜色,....先附上颜色渐变算法，

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

故障现象：执行 VBS 时，不定期出现“没有文件扩展.vbs的脚本引擎”的故障，无法运行 VBS 脚本。对于我的电脑唯一有用的解决方法：修改注册表，还原 VBS 默认打开方式。操作系统：Win10 x64。

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

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

污染物在线自动监控(监测)系统数据传输标准 (HJ212-2017)-CRC数据校验源码

一个 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

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 的来用，大多也.

以下内容仅作为 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 图像。 在目前暂...

今天弄个小网站，准备增加点代码，之前在 win2008 里面跑的好好的，因为在服务器改代码不顺手，就在本机 win7 里面装了 IIS 7 修改调试。弄到一半，发现上传文件总是报错，代码复制到服务器又正常了，甚是诡异，经过跟踪调试，发现本机 IIS 中错误信息为：Data type mismatch in criteria expression找到对应代码，是一句在 MDB 数据库中插入上传文件信息的语句。于是将服务器和本机的数据库插入 SQL 语句显示出来，一看发现其中上传时间那里不一样...

根据前几篇 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...

这几天用海康威视的 SDK 开发个抓图工具，因为要求要 VS2013 ，就搞了一个来装上，发现 SDK 里面只有 java 和 C# 的 Demo ，没有 VB.net 的，起初还有点担心，因为我只熟悉 VB6 ，害怕要从头学 C# （因为担心 Java 的程序不支持批处理参数输入，所以暂时选择 C#）才能搞定。怀着忐忑的心，打开 C# 的 Demo ，第一次没敢动代码编译通过了。看了一下...

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

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