余思培的个人资料

VB6 简单的HTTP微服务器前话：近期疫情闲来无事，就想着学一下我之前一直避开的网络编程方面的内容，然后在网上找资料时发现初学时写一个HTTP微服务器还算比较经典，然后我就先“跟着”教程写了一遍(之前对网络编程完全不懂，我这个跟着除了看解析，另外就是Ctrl+C/V，cpp代码)，然后我想着要不试下用VB也来写一个？于是就有了下面这个

分享：利用CreateWindowEx创建子窗体来设计UI 利用CreateWindowEx创建子窗体来设计UI，嗯......算是对学习Windows消息机制的一个回顾。当然，现在Win已经换成Fluent Design的UI设计了，题外话。以及用SetProcessDpiAwareness后为高DPI屏幕手动设置布局如图，为最终效果 //最左侧为旧UI，风格一致，处理逻辑不同，以及没有为高DPI优化

分享：数据大小格式化输出分享一段代码，用于格式化输出数据大小，如xx.xx KB之类的。 //非常简单，所以就没有进行优化了 //镇楼图为示例图：

debug工具话说，大佬们有没啥好用的debug工具，指某些IDE会崩溃的程序，我主要用的winDbg，但是是英文的，用着还是不太方便

求助：BITBLT函数蒙版与滤镜怎么用我之前使用BITBLT函数时，只会使用vbSrcCopy，现在想要学习学习该函数的蒙版与滤镜用法。 //自己摸索了半天，只搞出一个蒙版用法，但不知道怎么去优化（我搞的蒙版用法步骤太多了）

外接程序：颜色方案参考写iCode的大佬写的ColorCode写的一个外接程序作用是重设VB6的代码配色，思路和大佬一样利用内存修改 //镇楼图为效果图 //目前还有bug，暂不最终分享

分享：TextBox追加输出的一个小技巧 TextBox需要需要追加输入时，大家通常采用什么办法？此处令将要输出的消息为sOut，TextBox控件为oBox 一般情况下，追加输出为： oBox = oBox & sOut 介绍的小技巧： With oBox .SelStart = Len( .Text ) .SelText = sOut .SelLength = 0 End With

求助：一个工具软件执行后输出文件尾部全是NUll问题如题：我自己写的一个测试性压缩工具(huffman编码)(未完成)，在执行压缩后，输出文件尾部全是NUll(如下图)，猜测应该是输出长度计算错误或编码过程存在问题，但实在是找不到问题在哪儿了，希望有耐心的大佬能看看代码，这一个问题出在哪儿(其他问题和未完成/未测试的部分，我自己再慢慢处理) 如图：

马拉松之友好的蛮族氏族(萌新) 话说萌新我玩了几局文明6后，发现节奏太快了(我怀疑我是肝上长了个人)，于是重新开局选马拉松速度。然后从此打开了神奇的世界 CIV6 秦始皇蛮族氏族开局尽快探到蛮族寨子占了，然后不挪窝了。再然后：棒子取之与蛮族用之于蛮族（指洗劫寨子然后用洗劫的钱从蛮族买兵占领蛮族寨子扩大生产）再然后就是秦始皇与梁总督在金字塔下不得不说的故事了 //标准速度下，几十回合的奇观我大秦几回合锤了，马拉松速度下，上百回合(初期)的奇观我大秦还是几回合锤了。（“陛下，奇观误国呀！”“荒唐，收集奇观乃我最大的爱好，岂可谓误国，来人，拖下去斩了！”） //ps：往后一点，从寨子“借”的钱富余起来后买锤子、买建筑，不得不说，真是友好的蛮族兄弟，全靠蛮族兄弟把我抬起来呀！

关于二叉树转化及其二进制流通过二进制流储存二叉树结构，以及将二进制流反构造为二进制。利用的是先序遍历方法。先图示，再代码。 //ps：暂不在家，代码回家再说

勉强可用的VB SHA256模块(速度较CSDN论坛上有很大提升) 当然比起其他语言的某些工具来说还是太慢了

快速大小端数据互换怎么实现？ x86处理数据默认是以小端序的方式来处理的，但是某些特殊的情况......比如说以特定方式预处理过的数据是大端序，或者需要以大端序的方式来处理数据，此时就需要大小端互换(虽然很少遇到)，那么用什么样的方式来实现大小端互换速度能更快？ //速度有一定要求

VB6 可用的SHA256模块(可用，但速度较慢) //本算法基于CSDN论坛上的一个版本 //SHA-256算法我也不太懂，所作的调整不是很多，只是在原有代码的基础上字符串SHA-256支持了中文字符，并新增支持文件SHA-256 //文件SHA-256速度较慢，原因是没有为大量数据进行专门优化，也即按照源码思路先获取Byte数组，再转化为DWord数组，然后计算SHA-256 //有兴趣的可以看看，或者尝试优化下

求助，关于外接音频设备故障问题机型：台式机操作系统：Windows 7 问题描述：外接音频设备不发出声音，但系统音量面板显示正在播放尝试解决办法1：插拔接口，更换插入后面板接口为前面板接口，重启外接音频设备解决结果1：问题仍然存在尝试解决办法2：重启计算机解决结果2：重启后，短暂时间内音频设备能够发出声音，大约30～40分钟，然后再次出现上述故障。再次重启，结果同上。 //目前不太清楚是计算机硬件问题、操作系统环境问题还是外接设备问题，这个问题实在是困扰太久了，实在不知道怎么解决，也没有找到解决方案，所以想请各位大佬们帮帮忙。

有大佬知道怎么关闭Win11边框的圆角吗？如题，有大佬知道怎么关闭Win11边框的圆角吗？Win11不仅把自己的窗口圆角化了，还把第三方程序窗口圆角化了...... //不过还好，创建窗口时Style设置为WS_POPUP不会变为圆角，应该是使用了Windows提供的标题栏和边框就会变成圆角 //另外开始菜单的磁贴真的没救了吗？感觉磁贴真的很方便......

Win11 继续使用VB6 刚刚尝鲜更新到 Windows 11，简单试了下在Win11环境运行vb6，能够正常运行，以及能够编译为可执行程序 //就是不太喜欢Win11的圆角 //没测试多少，至于以后遇到的问题，等大佬们再尝试吧 //另外，能继续使用VB6在意料之中，估计说不定以后Win12，Win13照样能用，再再再以后复制上msvm60继续用

一小段播放音频的代码(类模块) 出于工作需要，写了一小段播放音乐的程序(我不太擅长多媒体方面的编程)，基于开放共享的思想，现分享一下。 //实际在使用中不必写成类模块，我是担心我后续编程中粗心大意，丢失ID才写的 //MarkID 部分本来想改成栈式分配，呃~因为懒，没改...... //分享的主要原因是我之前用关键词VB mciSendCommand搜不出来相关详细例程，多以mciSendString为主，但我觉得mciSendCommand应该简单些，所有就根据其他语言例程简单学了一下

VB6 编译时的一些骚操作楼先占着，人先睡觉看镇楼图可以猜一下骚操作是什么

下图中两个代码片段大致一样运行速度吗？如题，这两个代码机器码一样长，但其中一个少一条指令，请问少一条指令的那个会执行的更快吗？使用中哪个更稳定广泛适用一点？

VB6 局部变量中含有Object类型时，VB6的默认收尾工作当我们在使用Object类型时，经常使用Set objName = Nothing 来使其释放内存。最近，我在编写一个组合类模块（一个类模块的代码使用了其他类的实例）时，遇到了一点点问题（从22点Debug到04点），在解决问题的过程中，我发现了： VB6中，如果函数内部声明的Object类型局部变量，那么在函数结束前，会调用一个内部函数用以释放该变量——vbaFreeObj函数，下面我们来看一下这一函数的特点及其可能的运用。

cText类（文本控件类//不是文本框）一直准备写文本框控件类，但是每次写着写着就没有动力了，今天看见大佬写了个文本框控件，就想着重新捡起来（我也没准备写得像大佬那样复杂），然后今天采用循序渐进得方式，先写了个cText文本控件类//类似于Label控件

请问VB.net和VB之间怎么进行进程通信如题，请问VB.net(VS2019)和VB之间怎么进行进程通信，两者都是无窗体程序，或者说将VB程序做成DLL？在或者利用文件进行通信？不知道哪种方法合适一点。 //VB.net主要是调用方，VB这边即可以静态(封装成DLL)，也可以动态(能动态最好)

线性同余法的vb变通实现如题

第一次真仙模式猜猜萌新我经历了什么？

WndProc 鼠标移出客户区消息丢失问题当鼠标移出窗体客户区时，有时消息会丢失怎么处理？

有大佬会用VB写Dhtml不？如题，有大佬会写Dhtml不？我VB IDE生成后HTML就不能链接到VB的DLL了，不知道怎么搞。

获取粘贴到TextBox的内容一个没什么用的代码片段，用于获取粘贴到TextBox的内容，发生在粘贴行为以后，实用性不大，采取的是比对前后文本大小的方式

WinDbg部分使用方法 @娃哈哈不好喝关于WinDbg的使用方法：

VB6/VBA IDE使用技巧我虽然知道想要重新建立起良好的VB6/VBA学习环境，很难，但总归是要有的嘛？不是吗？所以我先抛砖引玉，希望大佬们有时间或有兴趣的补充一下。 //作为一名自学者，我其实更希望有更多的自学者有更好的学习环境。

重塑VB6的语言学习环境虽然我们一直在说，VB6是非常简单易学的一门语言，即便是非专业程序员也可以轻松入手。但由此产生的成见也不少。当然，一名无论是什么原因学习了VB6的人，想要转战更为深入方面的内容时，会遇见一个比较尴尬的境地，虽然说VB6既可以当成过程语言，也可以算作对象语言，但无论那个方面，VB6的网络教学资源太少了——或是说太老了，要很仔细的查找才能找到想要自己想要查阅的内容，这就给VB6的进阶学习无形之间带来了成本。所以我想，我们这些还在活跃于VB6的人，可不可以给后来的学习者们带来一些学习上的便利。

技能：士兵怎么升级啊？技能：士兵怎么升级啊？

关于地址映射排序法 30多年前就有大佬专门研究过了，而我现在却因为写出来一种比较快的排序方法而沾沾自喜。 //本来想的是汇编化我之前写的映射排序，同时也想看看有什么方法可以改进内部排序问题，于是想到网上找一找其他例子......然后就翻到了这一篇文章......不得不说，比起我这种碰运气写出映射排序代码的人，大佬终究还是大佬

怎么实现PC端与Android端网络通信如题，怎么实现PC端端Android端网络通信，PC端应该怎样编写通信程序(Android端换个地方问，当然或许有大佬一并解答的话也就不跑其他地方问了) //PC端和Android端IP地址都不固定 //主要是Android端向PC端发送信息(指令)，单向通信

几个小问题●在不使用VB Printer对象的前提下　○怎么几个小问题 ●在不使用VB Printer对象的前提下　○怎么枚举所有打印机/虚拟打印机名称　○怎么获取默认打印机设备名称　○怎么设置默认打印机(根据名称) ●一般情况下　○字体磅数与英寸之间的换算关系(比值)是什么？

VB的魅力何在？学习者、爱好者、VBA/VBS使用者暂且不论，仍然还有部分大佬还在使用VB，并且还在使用VB做项目(或在项目中使用VB完成其中部分)。那么对于上述那么对于各位大佬们而言，仍在坚持使用或部分使用VB的原因究竟是什么？

离开大学了，准备考一个二级VB充实一下简历(虽然没啥用//本离开大学了，准备考一个二级VB充实一下简历(虽然没啥用//本人教育专业的)，反正又不难，但回头一看——哦豁，二级VB取消了

VB如何将DC内容输出为PDF文件 VB如何将DC内容输出为PDF文件，以前没遇到过这个问题，也没接触过，所以不知道怎么弄。

VB非实用性使API函数变快的方法本意只是做出对比VB调用API到底有多慢

VB String字符串内存储存的一个问题虽然已经有人发过了，但昨天没有找到，所以再来问一下。 VB 的字符串的储存并不是和文件储存一致的的，所以如果用字符串指针和TextOutA不能输出，只能使用TextOutW输出，但现在需要使用TextOutA进行一个整合的输出，所以只能使用Asc逐字转换吗？但我记得好像有一个函数可以直接转换字符串，但我我忘了怎么转换的了😂

分享一个cForm类分享一个实用性不大的cForm类，自己写的比较臃肿，所以就不以图片形式直接展示所有源码了。如果感兴趣可以通过二楼链接获取源码。 //镇楼图为cForm类的变量声明部分和使用cForm类源码

密码生成管理工具一个生成随机密码、管理密码的小工具 //本来昨晚就写完了，但...想着配个UI，然后......就写到了凌晨四点...... //链接在二楼，随机密码是先写好的，PasswordManagement是扁平暗系UI的 //镇楼图为演示图

萌新最近积累了几个问题，想起各位大佬提供一下思路。一个是非标萌新最近积累了几个问题，想起各位大佬提供一下思路。一个是非标准格式的浮点小数的表示与运算，另一个是数据存储组织方式。

绘制关闭按钮分享一段绘制关闭按钮(就是那个叉叉)的代码，没什么实际意义，临时写的也没考虑速度以及优化，很冗杂，有兴趣的可以看一下

VB6的函数调用 //事先说明，仅作进一步的思考，不作实用性使用结合前一段时间的一些经验，加上昨天和今天遇到的问题及我对其的解决，让我生出了发一个贴讨论一下VB6的函数调用。(虽然我也不怎么懂)

thiscall真是一个神奇的调用约定，不但要压入this指针(可以理解)，还要把this指针压入ecx寄存器，关键是其返回值还并不保存在eax当中，搞了一晚上都还没解决问题

大佬们，我想跳转到0x00403180处，然后用的是e9来跳大佬们，我想跳转到0x00403180处，然后用的是e9来跳转，结果跳转的是一个偏移地址，该怎么办？要提前计算好偏移地址然后再跳转吗？ //用其他语言内联，但不支持直接内联，所以用的是机器码

没注意到，差点被坑了，VB标准模块的私有函数会比公有函数多压入一个参数......

一个无实际意义的代码片段最近刚学完VB6使用函数指针以及在此过程中学习了一点汇编知识。 VB6使用函数指针是其短板，而且基本都需要调用API来达到目的。突然受到之前学习类成员函数指针时看资料有大佬直接将汇编码嵌入到程序中实现调用。现在有了关键词：函数指针、嵌入汇编，我想大家想到了我想到了什么(虽然很鸡肋)

类模块的个人理解所以说，类模块其实就是相当于一个单独的程序模块被挂载在内存上吗？

萌新想问一个问题：缘由：因为萌新本新熟悉的编程语言是VB，本萌新想问一个问题：缘由：因为萌新本新熟悉的编程语言是VB，本新在处理某些问题时希望使用函数地址来调用函数，但VB6并不支持，也没有jmp之类的指令，所以就想到了混合编程，但是实际操作之后发现，在VB6的IDE环境中，是可以实现调用的，但实际编译为exe后运行程序却崩溃了。在此本新希望大佬们看看混合编程汇编部分有没有什么问题(当然有这两种语言都精通的大佬能讲解一下原因更好) //镇楼图为汇编源码

VB6函数指针问题在处理消息的时候，因为某些情况，我最先考虑到的是通过函数地址来调用函数处理某些问题(虽然后来也想到了其他比较合适的方法，但我还是想尝试一下)，但VB6并不支持，于是乎又想到了混合编程进行尝试，然后......IDE上成功了，编译成exe后调用却失败了(程序直接崩溃了)。所以...VB6IDE环境与最终编译成exe到底有哪些不一样？IDE能成功但编译后去失败的原因大概是什么？亦或者说是混合编程时DLL出了问题？镇楼图为IDE环境成功的截图

SetCursor问题利用API创建窗口时，怎样才能获取/加载到正确的光标资源句柄供SetCursor使用，目前我卡在这儿不知道怎么处理(所以WM_SETCURSOR也没能处理)

最近在学习子类化，想把常用的消息都先学一下在尝试截获输入消息最近在学习子类化，想把常用的消息都先学一下在尝试截获输入消息的时候，注意到IME输入的消息有几个，不知道应该拦截哪一个？有没有大佬指导一下，应该拦截哪一个消息(灵活拦截IME输入与不经过IME的英文输入)？

对前所分享的映射排序的重构映射排序......其实就是我之前写的那个不成样子的桶排序，但学习了更多知识后发现，这种利用函数映射关系进行排序的算法更接近映射排序，所以我再此也就斗胆将其称之为映射排序。我之前写的那个映射排序，现在看来太过臃肿了，所以就想优化一下。 //ps:本帖只讨论算法相关以锻炼思维，不涉及具体技术的优越性讨论。