业余编程

本文针对PC版微信无法自动登录的痛点，提出了一种基于VB6开发的轻量级鼠标模拟解决方案。作者通过分析发现，电脑QQ支持开机自动登录而微信缺乏该功能，在无人值守设备重启时尤为不便。开发方案采用命令行模式调用VB6程序，通过预设鼠标移动坐标和点击参数（如MTO定位、LC左键单击），配合系统自启实现全自动登录流程。该工具具有低门槛、无广告、兼容性强等特点，特别适合办公场景下需要微信常驻的需求，仅需记录登录按钮坐标即可实现无人干预的自动化登录，有效解决了官方客户端的功能缺失问题。

这段代码是一个Python工具集，主要包含以下功能模块： 文件操作：包括INI文件读写、文件编码检测、路径处理、文件/目录存在性检查、文件复制等 数据处理：提供双线性插值(bilinear_interp)和基于多边形的网格裁剪(clip_grid_by_polygon)功能 格式转换：包含字符串转坐标(parse_ini_string)、16进制颜色转RGB(hex2rgb)、日期字符串转datetime(str_to_datetime)等 网络请求：实现带进度显示的HTTP下载功能(GetDataStr)

这篇文章介绍了一个VB6风格的Python日期时间处理函数库，主要特点包括： 提供了Now()、Year()、Month()等常用日期函数，均自带IsDate校验和非法日期默认处理 实现了VBS格式的日期格式化函数(VBSformatDT)，支持多种格式化类型 完善了DateAdd和DateDiff函数，正确处理年月进位和单位归零问题 包含与JS兼容的13位毫秒级时间戳处理函数 提供了VB风格的字符串处理函数(InStr、Left、Right等) 特别处理了Split函数，使其行为与VB6完全一致 该库旨在

本文介绍了一套基于VBScript使用习惯自制的JavaScript日期处理函数库，旨在解决原生JS日期API命名不直观的问题。该库包含以下核心功能： 基础日期操作：Now()获取当前时间、IsDate()验证日期有效性、日期分量获取（Year/Month/Day/Hour等） 增强功能：DayOfYear()计算年内天数、WeekOfYear()计算ISO周数 VB风格函数：DateAdd()日期增减、DateDiff()日期差值计算 格式化输出：VBSformatDT()提供22种预定义格式（如&quo

Python虽然存在依赖管理混乱、打包臃肿等问题，但其跨平台性和强大的开源生态使其持续发展。Python由社区驱动，而非商业公司主导，众多企业参与贡献但未掌控研发方向。相比之下，VBS语法更简洁但被微软主动放弃，因其安全风险高且不符合现代开发需求。微软转向PowerShell作为替代，但PowerShell语法复杂难用。Python的流行并非源于语法优势，而是抓住了跨平台、数据科学等时代机遇，填补了VBS退场后的空白。VBS的衰落是微软战略调整的结果，而非Python的直接竞争所致。

摘要：针对i5-3470 CPU不支持WSL2的问题，提出使用WSL1的解决方案。步骤包括：1)卸载损坏的WSL组件；2)仅启用WSL1功能；3)设置默认版本为WSL1；4)安装时取消WSL2引擎选项；5)手动配置Docker磁盘镜像路径。关键点在于避免触发WSL2依赖，通过调整配置使系统在WSL1下正常运行，无需硬件升级即可满足基础Linux开发需求。

亲测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 结尾即可。

一个 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.csdn.net/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.csdn.net/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.csdn.net/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= 参数时，可实现跨库操作数据库