- 博客(88)
- 资源 (12)
- 收藏
- 关注
RSS订阅
原创 自制 js 的 trim、right、left、instrRev、instr、mid 函数
//用惯了VB系列语法的instr和mid函数，在js里面处理字符串总是感觉束手束脚，必须自己写个函数来用！！！//得闲连 right left instrRev也一起写了。。function instr(str,s){ var dotn=str.indexOf(s); if(dotn<0){return 0;}else{return (dotn*1+1);}}function m...
2018-02-13 21:36:35
2553
原创 基于 bootstrap 3 的时间日期控件 datetimepicker 例子完整源码
这是目前能找到的，不需要什么币就能下载的，唯一可直接正常使用的datetimepicker 中文版例子完整源码。
2023-03-28 12:29:46
25
原创 菜鸟在 windows 下 python 中安装 jupyter 踩坑要点 、被神化的 VsCode
windows 下 python 中安装 jupyter ，各类安装方法坑点较多，像我这样的 python 小白完全无从下手安装，故记录之。不要迷信网上的信息！
2023-02-15 17:13:37
461
原创 MSSQL 模拟 Split 函数并循环提取
偷个懒，想将一串需要查询的关键字一次放入 SQL 语句并在其间循环执行查询，想到用 split 函数，但是 MSSQL 没有这个函数，查了下，原来有人已经想到并设计好了：【又查了下循环相关信息，依稀记得有个东东叫“游标循环”，继续查到：【2.通过游标循环使用这个自定义的 split 函数。】，导入试了下，发现用不来......1.在你的库内创建 split 函数。
2022-10-26 15:08:47
143
原创 手机端 Android WebView 获取 blob 链接文件名并下载网页动态生成的 pdf 文件且调用外部程序打开
安卓手机 WebView 与网页联动下载网页动态生成的 PDF 文件并调用外部应用打开 pdf 文件，开发实例
2022-08-10 15:47:33
2303
原创 VBA 输出到CMD控制台显示暨更新当前行显示
之前的文章中，已实现输出控制台显示，但想在 VBA 中使用时就不行，查了下，发现需要加上：AllocConsole 就行。要正常换行时，使用 vbCrLf 结尾。要改写当前行，使用 vbCr 结尾即可。
2022-08-09 17:57:14
573
2
原创 html转pdf文件下载之最合理的方法支持中文
仅需六行代码就可以实现网页元素转为 PDF 文档，html转pdf文件下载之最合理的方法支持中文完整源码,内含转换好的中文字体及字体转换工具
2022-07-26 17:40:05
559
3
原创 HJ212-2017《污染物在线监控（监测）系统数据传输标准》中 CRC 数据校验算法 VB / JS 源码
HJ212-2017《污染物在线监控（监测）系统数据传输标准》中 CRC 数据校验算法 VB / JS 源码
2022-06-03 10:55:26
532
转载 污染物在线自动监控(监测)系统数据传输标准 (HJ212-2017)-CRC数据校验(C/Java源码)
污染物在线自动监控(监测)系统数据传输标准 (HJ212-2017)-CRC数据校验源码
2022-06-01 22:55:03
456
原创 几段效率超低的文本文件读取及字符串拼接切分代码
这几天准备完善下 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
2022-05-22 21:57:30
100
原创 铁威马 NAS 昨日大范围被勒索病毒攻陷，有用这个的网友尽快把 NAS 断开互联网连接
详情：关于 TNAS 受到勒索病毒攻击的紧急通知 - 铁威马官方论坛2022年1月11日凌晨00:10左右，全国铁威马的 NAS 大范围被攻击，我记录的攻击者IP为：118.195.185.16，很显然，我的也中招了。昨天我进了360的勒索反馈群，里面四五个网友都是和我前后一两分钟中招的，也都是铁威马的NAS，我是中午12点多发现被攻击的，之后立马把端口号从5000改了其他，但是还是时不时的有不明来源IP在攻击NAS，后来不得已只能关闭NAS的互联网连接，所以，我觉得吧，这回铁威马官方是不是该.
2022-01-12 14:45:49
3426
5
原创 用ffmpeg批量转换WAV文件采样率
问题由来：有一批客服提供的配音文件，好几千个，需要用作我写的程序合成，发现其尺寸差异较大，遂检查了一遍，发现果然里面10%的文件格式有问题，和其他不一致：Option ExplicitPublic Type RIFF ID As String * 4 '0x00 4Byte 大端 'RIFF' (0x52494646) Size As Long '0x04 4Byte 小端 fileSize - 8 Type As Str
2021-10-28 17:49:18
3031
原创 XP安装QQ提示安装包可能被非法改动无法安装
还以为QQ不再支持XP，结果是因为KB931125-rootsupd ，下载http://www.itmop.com/downinfo/402279.html安装即可正常安装。
2021-08-28 22:10:08
2227
原创 扫码打开微信位置信息界面、微信定位(发送位置)生成二维码解决方案
最近遇到几个文字位置无法直接在导航软件查找定位的事情，很郁闷，就在想现在二维码时代了，居然还不能扫码实现导航吗？于是用各导航软件研究了一下，发现导航软件是可以扫码导航的，但是只能针对他自己的链接有用，不像在微信打开别人发送的位置点导航时可以选择你已经安装的导航软件来导航。但是我最终是想实现微信发送位置那种导航引导界面，因此这个方案不适合推广。而微信发送的位置信息呢，有人说用电脑版微信打开别人发的位置，复制链接生成二维码就行，但是我看来看去，总感觉哪里不对，因为微信电脑板打开别人发送定位的话，界面和直
2021-08-07 15:54:50
3618
原创 讯飞配音使用记录：Excel VBA 编程处理多段短文字配音切分及 Hedit、GoldWave 后期处理、编程合成 WAV 文件
1.注册并购买讯飞配音会员2.选择需要的主播3.每天可免费配 80 条语音，每条 1 万字（中文）4.将多段短文字中间插入 1 秒停顿，配音下载，文字少的可直接使用GoldWave 录音。5.内容不多的就不说了，下面说下内容多的处理情况：我需要配的 600 多段短文字，有地名、数字、温馨提示等等，配好后需要将每段声音切分为独立的 WAV 文件便于程序调用，之前尝试过使用“讯飞开放平台”的 TTS 接口，但是里面的可选主播有使用时限限制，而且年费都是 2W 起，用不起。讯飞配音的会员就划.
2021-07-30 16:43:57
414
原创 Dos判断文件夹有没有存在，如果存在则跳过，不存在创建
忽然想起来做这个，查到：https://www.cnblogs.com/wenanry/archive/2010/10/09/1846641.html，试用了一下，感觉不对，于是参照它的思路我自己改了个出来。@echo offrem 注意查找的目录为 d:\2021NewCapimg\bin\img\54 下的 2021，前缀"<DIR> "是避免被显示日期影响dir d:\2021NewCapimg\bin\img\54 /ad | find /i "<D..
2021-07-01 16:44:57
1861
原创 Word VBA 绘制直尺
刚想弄个直尺文档给买不到公制直尺的朋友用，结果收到的文档全是收费的，搞得我火冒三丈，气不过自己写个！话不多说，直接上代码：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
2021-06-18 18:18:17
158
转载 通过经纬度坐标计算距离的方法（实为通过一个经纬度和距离角度求另一个经纬度）
转自：https://www.cnblogs.com/softfair/p/lat_lon_distance_bearing_new_lat_lon.html通过经纬度坐标计算距离的方法（经纬度距离计算）通过经纬度坐标计算距离的方法（经纬度距离计算）最近在网上搜索“通过经纬度坐标计算距离的方法”，发现网上大部分都是如下的代码：#define PI 3.14159265static double Rc = 6378137; // 赤道半径static double Rj = 6356.
2021-06-13 17:44:09
1556
原创 VB 版 RGB 转 Lab 源代码
近期想起颜色相似度比较的问题，找到几个公式，发现大家都推荐用 Lab 颜色空间来做，也找到了简化的直接用 RGB 颜色计算出的加权欧式距离公式。因为原公式是直接用 Lab 颜色计算的：ΔE=( ΔL^2 + ΔA^2 + ΔB^2 ) ^ (1/2) ’ΔE 表示色差，ΔL/ΔA/Δb分别表示两个颜色之间在不同分量的差值。因此想看看原公式与加权欧式距离公式之间的计算结果差距，于是想找个 RGB 转 Lab 的算法看看，结果没找到靠谱的 VB 代码，找到了些 C 的自己改成 VB 的来用，大多也.
2021-04-27 13:32:09
366
6
原创 关于 VB6 透明 PNG 图像生成的一个解决方案
目前，无可用的 VB6 的透明 PNG 图像直接生成方案。但是有 TGA 透明图像生成方案，刚刚测试了ImageMagick 的文件格式转换功能可自动将包含透明信息的 TGA 图像直接转换为包含透明信息的 PNG 图像。 因此有思路：VB6 生成透明 TGA 图像，然后批处理调用ImageMagick 的convert 直接以 ： convert 1.tga 1.png 这个命令行方式将之前 VB6 制作的图像转换为透明的 PNG 图像。 在目前暂...
2021-04-17 14:39:49
295
原创 UltraISO 制作 winxp 启动U盘，出现 INF file txtsetup.sif is corrupt or missing 故障解决方法（附 WinSetupFromUSB下载链接）
操作方法参考：使用WinSetupFromUSB来U盘安装windowsXP（不使用win PE系统），软件用到的是WinSetupFromUSB，附下载链接：http://downloads.winsetupfromusb.com/WinSetupFromUSB-1-0.zip
2021-02-10 19:57:32
2739
5
原创 canvas restore 不能连续还原画布的(rotate)、平移(translate)变换
今天遇到一个奇怪的问题，restore 只能读取一次状态，也许是 save 的设计使然吧。都说，canvas restore 可以还原画布旋转（ rotate ）、平移（translate ）变换，于是想画一个旋转对称画面就有了如下代码：<!DOCTYPE html><html><meta charset="utf-8" ><body><canvas id="myCanvas" width="500" height="500" sty..
2021-01-01 14:56:46
542
2
原创 win7 中 IIS 7 now() 等时间日期函数返回格式问题(不匹配 ACCESS 的 datetime 字段的格式)
今天弄个小网站，准备增加点代码，之前在 win2008 里面跑的好好的，因为在服务器改代码不顺手，就在本机 win7 里面装了 IIS 7 修改调试。弄到一半，发现上传文件总是报错，代码复制到服务器又正常了，甚是诡异，经过跟踪调试，发现本机 IIS 中错误信息为：Data type mismatch in criteria expression找到对应代码，是一句在 MDB 数据库中插入上传文件信息的语句。于是将服务器和本机的数据库插入 SQL 语句显示出来，一看发现其中上传时间那里不一样...
2020-12-12 02:12:35
301
原创 Android 9.0 APP中显示导航栏的menu键
PS：以前Android 4.0 时代，写了个APP，用屏幕底部菜单键提供两个刷新及退出按钮，但是现在 android 动不动就更新下，现在我手机已经到 9.0 版了，原来的导航栏三个小点点菜单键用原来的代码显示不出来了，因此只能找新的代码，找到了这个：https://blog.csdn.net/u014651216/article/details/53188698，的代码，贴到原工程里面一大溜报错，仔细检查了一番，修正了全部错误，测试了以下，菜单键终于出现了。证明代码可用，只是不晓得博主“七色音阶...
2020-11-13 15:57:52
569
原创 色斑图制作及后端无人值守自动出图kriging.js+chrome+html2canvas.js+DOS+BIGEMAP超低成本实现气象要素色斑图
目录一、问题由来二、探索三、尝试四、修正五、优化方案 精度提高后生成较慢，因此，该方法不适合用于前端出图！切记！六、kriging.js 使用感受小结七、参考文章一、问题由来 因业务需要，需要根据小时温度、雨量等气象数据自动生成色斑图，供网页展示。但不管是各 GIS 软件，还是 surfer ，虽然都有自动化脚本功能，但是一个是必须安装不小的软件，另一个是必须手动启动该软件，才能执行自动化脚本，无法实现系统重启后无人值守自动出图功能。因此，......
2020-10-01 02:10:24
4137
7
原创 用 chrome + excel + VBA + XMLHTTP 爬视频网站 video 标签中的 blob:http m3u8 视频资源，ffmpeg 拼接资源
刚刚看了一个视频网站的 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 下载，试了下，的确很爽，...
2020-07-30 19:18:51
9439
原创 两 API 三步最简实现 VB6 输出到CMD控制台显示 (含获取输入)，真输出至 CMD 窗口，非 AllocConsole 模式
注：以下核心代码部分来自：https://tieba.baidu.com/p/2561344540?red_tag=1334161657 。 写了个数据处理程序，正常运行时用 DOS 批处理命令行模式执行，因执行时间较长，就想给它在CMD 窗口看到实时运行结果反馈（不能使用msgbox），找了一圈，找到好多代码，执行附带的示例程序都是正常的，但是用那些代码编译后就是无法显示。疑惑之下，找到了https://tieba.baidu.com/p/2561344540?red_tag=1334161....
2020-07-26 00:32:36
2166
8
原创 IIS7.5 FTP站点正确设置及启用用户隔离和绑定主机名（踩坑记）
从来没用过 windows 的 ftp 服务器，今天心血来潮想试一下，主要是担心用 serv-U 之类的动不动就是系统顶级权限 BUG 不放心，但是按照：https://blog.csdn.net/qq_28189423/article/details/82221018的设置完成，居然无法登录，总是卡在登录界面，又从头来了几次故障依旧，百思不得其解：查来查去，才发现，居然是一个弱智的设定：“没有在主目录下建立应有的同用户名的文件夹”，参考：https://blog.csdn.net/wei...
2020-05-30 23:16:52
1337
原创 VBS、ASP 利用 Adodb.Stream 读写二进制文件
根据前几篇 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) ...
2020-05-25 14:18:41
847
原创 VB、VBS 、ASP、VBA 利用ADODB.Stream实现GB2312和UTF8编码转换
先前说到，想用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...
2020-05-25 00:45:17
2394
原创 VB、VBS 、ASP、VBA 的 UTF-8 MD5 实现
还是和之前的原因一个样，一直在用的 MD5 编码，处理英文时没问题，加了中文，就跟https://tool.oschina.net/encrypt?type=2和https://md5jiami.51240.com/的结果不一样了，想了下，应该还是 UTF-8 编码的问题，于是将原来在用的编码中和字符串转 Byte 数组函数改装了一下，就成了，转换结果一致，说明工作正确：'========================================================-----...
2020-05-24 21:45:40
294
原创 VB、VBS、VBA 、ASP 的 UTF-8 base64 实现
向前一直在用的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...
2020-05-24 01:36:22
516
2
转载 转：【字符编码】彻底理解字符编码
转：https://www.cnblogs.com/leesf456/p/5317574.html【字符编码】彻底理解字符编码一、前言 在解决昨天的问题时，又引出了很多新的问题，如为什么要进行编码，这些编码的关系如何，如ASCII，IOS-8859-1，GB2312，GBK，Unicode之间的关系，笔者想要彻底理解字符编码背后的故事，遂进行了探索，具体笔记如下。如园友能读完本篇文章，我相信会解开很多疑惑。二、字符编码 2.1 为何需要编码？ 我们知道，所有的信..
2020-05-23 22:49:51
141
原创 VB.net是个弥天大谎，VB.net已死（海康威视 SDK 开发有感）
这几天用海康威视的 SDK 开发个抓图工具，因为要求要 VS2013 ，就搞了一个来装上，发现 SDK 里面只有 java 和 C# 的 Demo ，没有 VB.net 的，起初还有点担心，因为我只熟悉 VB6 ，害怕要从头学 C# （因为担心 Java 的程序不支持批处理参数输入，所以暂时选择 C#）才能搞定。怀着忐忑的心，打开 C# 的 Demo ，第一次没敢动代码编译通过了。看了一下...
2020-03-17 19:27:53
5338
13
原创 解决ffmpeg用批处理执行切片TS文件时: [mpegts @ 00606a00] Invalid segment filename template 'outputtssplit3d.ts‘错误
参考文章： http://www.itkeyword.com/doc/2648596042695621x636/ffmpeg-invalid-segment-filename-template-stream05d-ts最近在学习ffmpeg，用到切片生成面m3u8播放序列ts文件，查到的命令大多为：ffmpeg -i output.ts -c copy -map 0 -f segment...
2020-03-15 00:17:26
1095
原创 VBS 的 fso："Scripting.FileSystemObject" 不支持 UTF-8 编码的文本文件
大家都知道 VBS 中 fso 读文件的用法 ：Set fso=CreateObject("Scripting.FileSystemObject")Set f = fso.OpenTextFile(yjjsfn) '--fso不支持utf-8格式，故用Adodb.Stream代替之见ReadFiles = f.ReadAllf.Closeset f = nothingset fso...
2019-10-16 01:16:51
2335
原创 win7 win10 x64系统下的 vbs 连接 mdb 数据库方法
参考资料：https://www.cnblogs.com/liuzhaoyzz/p/6406629.html今天用VBS读写MDB数据库，把原来在asp里面运行正常的代码拿过来，发现总是出现 x800a0e7a错误：查了一下，才想起来是因为64位系统未启用32 位 MDB 数据库引擎造成的。才回想起来当初 IIS7.5 里面跑 asp 的时候也出现过这个问题，改了下 IIS 设...
2019-10-10 23:51:35
763
html 转 pdf 文件下载之最合理的方法，无需插件，支持中文、支持图片、支持表格完整源码
2022-07-26
色斑图制作及后端无人值守自动出图原始例程
2021-04-20
excelVBA下载m3u8资源.zip
2020-07-30
VB6控制台输入输出
2020-07-26
webp for Photoshop & ACDSee 插件
2019-01-16
用Windows Service Wrapper将Ngnix添加为系统服务自动启动
2018-12-30
一个VB写的Base64编码/解码程序核心模块VB6源码
2017-10-18
UUENCODE_Base64编码解码原理源码 VB6
2016-12-11
UUE & Base64编码解码原理
2016-12-10
Android ADT by Eclipse adt-bundle-windows-xx and Eclipse 7.x、8.x、9.x、10.x汉化插件
2016-05-07
Http协议网络对时工具，时间来源自国家授时中心
2014-05-31
获取和设置文件在操作系统级的日期
2014-03-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人