- 博客(8)
- 资源 (4)
- 收藏
- 关注
原创 实现文本框255次撤销的简单类模块
Ext.AddNew Textbox1 '当有文字变化,需要存储时就调用一次。' 这一句是每次打字都会存一个撤销记录,可以改成敲击回车时、粘贴时记录一次,容量有小得多。saveTxt(NextSeat).isUsed = False '清空下一个,避免循环撤销。Private Function NextSeat() As Long '下一个。Private Function PrevSeat() As Long '上一个。'类名clsTextOLE。
2024-09-02 13:32:33
258
原创 PC游戏对战平台(类似浩方的对战平台)VB版
运行内存仅10+M,约3线程。(拟支持多种协议的游戏/软件,目前已完成UDP协议,下一步将完成IPX及TCP协议) 模式为针对软件的虚拟局域网(不是VPN),采用UDP实现的P2P通信,服务器压力低。理论支持60000多人在线,多个大厅,每个大厅255人。目前发布为初测版(v1.10)的客户端(服务端一直在运行中,下载星际争霸即可进入大厅玩游戏,注意:初测版本仅支持UDP协议,星际争霸第2界面需选择“局域网UPD”)PC游戏对战平台(类似浩方的对战平台) 本平台为通用平台,只要支持其网络协议即可运行。
2024-06-09 20:21:37
292
原创 VB版 NTFS文件系统USN日志读取
NTFS文件系统USN日志读取,这东西不新鲜,但是好像找不到VB 版本的,发一个。1、Api函数OpenFileById获取;2、也可以通过USN信息重建完整路径。和其他语言对比,纯VB代码实现USN读取要慢得多,性能大概相差一倍以上。对于非NTFS文件系统,采用非递归法遍历。这段代码是采用的第2种方法取得全路径。以下是获取所有盘中文件名及全路径代码。与USN信息重建速度差不多。
2024-05-28 22:23:43
262
原创 最快的凑数算法VB版(将一组随机数中选择部分数相加=指定值)
最快的方法就是先将随机数排序,然后再凑数,排序选用最快的排序法:二分法排序。要实现凑数,一般需要遍历每个数,然后相加检查是不是指定数。但是如果数据较多是比较慢的。不知还有没有更快的算法?
2024-05-28 21:16:21
326
原创 磁盘直读直写,可以实现文件分配表读写、文件恢复(反删除)、文件强制删除、文件锁、文件超级隐藏、已删目录树重建 (VB代码)
磁盘直读直写,可以实现文件分配表读写、文件恢复(反删除)、文件强制删除、文件锁、文件超级隐藏、已删目录树重建 (VB代码)
2024-05-28 19:44:11
1332
纯自绘透明无句柄文本框,源码
2024-09-02
MCC/CC诊断、手术项目录入 医疗DRG辅助工具
2024-08-30
PC游戏对战平台(类似浩方的对战平台)(自主代码,VB6.0编写,含底层库(拟支持多种协议的游戏/软件,现已完成UDP协议
2024-06-07
磁盘直读直写、文件分配表读写、文件恢复(反删除)、文件强制删除、文件锁、文件超级隐藏等
2024-05-28
鼠标方向盘 V2.63 (2.x最终版本)
2022-07-18
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人