<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>技术宅的结界 - 源码分享</title>
    <link>https://0xaa55.com/forum-skills-1.html</link>
    <description>Latest 20 threads of 源码分享</description>
    <copyright>Copyright(C) 技术宅的结界</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Sat, 16 May 2026 00:47:06 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>https://0xaa55.com/static/image/common/logo_88_31.gif</url>
      <title>技术宅的结界</title>
      <link>https://0xaa55.com/</link>
    </image>
    <item>
      <title>磁吸窗口实现源代码</title>
      <link>https://0xaa55.com/thread-27717-1-1.html</link>
      <description><![CDATA[VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  \'True
  Persistable = 0  \'NotPersistable
  DataBindingBehavior = 0  \'vbNone
  DataSourceBehavior  = 0  \'vbNone
  MTSTransactionMode  = 0  \'NotAnMTSObject
END
Attribute VB_Name = \&quot;cMagneticWnd\&quot;
Attri]]></description>
      <category>源码分享</category>
      <author>imperialeast</author>
      <pubDate>Thu, 29 Jan 2026 07:45:07 +0000</pubDate>
    </item>
    <item>
      <title>淡入淡出按钮实现bbtn</title>
      <link>https://0xaa55.com/thread-27716-1-1.html</link>
      <description><![CDATA[VERSION 5.00
Begin VB.UserControl BBtn 
   AutoRedraw      =   -1  \'True
   ClientHeight    =   2295
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4950
   ScaleHeight     =   153
   ScaleMode       =   3  \'Pixel
   Sc]]></description>
      <category>源码分享</category>
      <author>imperialeast</author>
      <pubDate>Thu, 29 Jan 2026 07:31:26 +0000</pubDate>
    </item>
    <item>
      <title>【嵌入式】由于 FatFs 太坑，我开发了 Phat 用于读写 FAT12/16/32 文件系统</title>
      <link>https://0xaa55.com/thread-27644-1-1.html</link>
      <description><![CDATA[[md]# Phat：又一个 FAT12/16/32 轮子

立项原因是我被垃圾的 FatFs 坑了。这玩意儿代码不清晰，行为不明确，ROM 占的极大（它存了大量的代码页转换表），UTF-8、UTF-16 的支持比较暧昧（估计作者都不知道这两个可以直接相互转换），另外它的版本管理也非常混乱，缺乏 L ...]]></description>
      <category>源码分享</category>
      <author>0xAA55</author>
      <pubDate>Tue, 06 Jan 2026 11:42:46 +0000</pubDate>
    </item>
    <item>
      <title>实现Unicode ToolTipText</title>
      <link>https://0xaa55.com/thread-27635-1-1.html</link>
      <description><![CDATA[让tooltipText也能支持unicode

Option Explicit

Private Declare Function SendMessageW Lib \&quot;user32\&quot; (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function CreateWindowExW Lib \&quot;user32\&quot; (ByVal dwExS]]></description>
      <category>源码分享</category>
      <author>imperialeast</author>
      <pubDate>Thu, 20 Nov 2025 09:58:56 +0000</pubDate>
    </item>
    <item>
      <title>vb播放wav音乐也能实现电平功能</title>
      <link>https://0xaa55.com/thread-27626-1-1.html</link>
      <description><![CDATA[vb也可以实现播放wav音乐的电平功能
Private Type SUBCHUNK2
        SubChunk2ID As String * 4
        SubChunk2Size As Long
End Type

Private Type WAVEHEADINFO
     ChunkID As String * 4       \'RIFF\&quot;
     ChunkSize As Long
     Format As String * 4
     ...]]></description>
      <category>源码分享</category>
      <author>imperialeast</author>
      <pubDate>Thu, 13 Nov 2025 01:19:15 +0000</pubDate>
    </item>
    <item>
      <title>超级简化的unicode label 控件，没有句柄（hWnd)</title>
      <link>https://0xaa55.com/thread-27621-1-1.html</link>
      <description><![CDATA[超级简化的unicode label 控件，没有句柄（hWnd)
最简化unicode Label控件，没有HWND!!!!傻瓜式



VERSION 5.00
Begin VB.UserControl ULabel
AutoRedraw = -1 \'True
BackColor = &amp;H00FFFFFF&amp;
ClientHeight = 3600
ClientLeft = 0
ClientTop = 0
ClientWidth = 4800
Fi ...]]></description>
      <category>源码分享</category>
      <author>imperialeast</author>
      <pubDate>Sat, 01 Nov 2025 06:19:13 +0000</pubDate>
    </item>
    <item>
      <title>最简化unicode Label控件，没有HWND</title>
      <link>https://0xaa55.com/thread-27618-1-1.html</link>
      <description><![CDATA[最简化unicode Label控件，没有HWND!!!!傻瓜式



VERSION 5.00
Begin VB.UserControl ULabel 
   AutoRedraw      =   -1  \'True
   BackColor       =   &amp;H00FFFFFF&amp;
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth  ...]]></description>
      <category>源码分享</category>
      <author>imperialeast</author>
      <pubDate>Tue, 28 Oct 2025 14:06:54 +0000</pubDate>
    </item>
    <item>
      <title>vb可以用的Unicode Label控件</title>
      <link>https://0xaa55.com/thread-27617-1-1.html</link>
      <description><![CDATA[VERSION 5.00
Begin VB.UserControl UnicodeLabel 
   BackColor       =   &amp;H00FFFFFF&amp;
   ClientHeight    =   450
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   915
   FontTransparent =   0   \'False
   ScaleHeight     =   45]]></description>
      <category>源码分享</category>
      <author>imperialeast</author>
      <pubDate>Thu, 23 Oct 2025 11:25:31 +0000</pubDate>
    </item>
    <item>
      <title>运用了forms2.0,但是返回有异常</title>
      <link>https://0xaa55.com/thread-27615-1-1.html</link>
      <description><![CDATA[Private Type OPENFILENAMEW
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As Long \' 筛选条件（Unicode字符串地址）
    lpstrCustomFilter As Long
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As  ...]]></description>
      <category>源码分享</category>
      <author>imperialeast</author>
      <pubDate>Sat, 18 Oct 2025 05:41:07 +0000</pubDate>
    </item>
    <item>
      <title>用机器码注入实现VB6回调函数功能，并支持自定义函数功能。</title>
      <link>https://0xaa55.com/thread-27611-1-1.html</link>
      <description><![CDATA[在编译成native exe 后可实现回调函数的功能，不依赖DLL库。I立即回调，比通常通过callwindowproc实现快多了。
使用场景是需要高速回调的场合，比如模拟cpu指令的高速查表解码。在ide模式不支持，可以用callwindowsproc或我提供的callback.dll代替。
同时支持自定义虚函 ...]]></description>
      <category>源码分享</category>
      <author>zhongez</author>
      <pubDate>Tue, 23 Sep 2025 10:57:31 +0000</pubDate>
    </item>
    <item>
      <title>OCX控件分享-群控，集群管理，程序分组，工作区独立</title>
      <link>https://0xaa55.com/thread-27598-1-1.html</link>
      <description><![CDATA[群控，集群管理，程序分组控件，工作区独立

程序也可以做变形金刚了，合体，变变变！

-----------------
编程开发包SDK:,引用OCX（AppGroup）
选择Spyocx和WindowList2个控件
spyocx可以用来拖放屏幕，选择不同的窗口
WindowList用于显示2个不同的序程到控件内

支持 ...]]></description>
      <category>源码分享</category>
      <author>逍遥爱迪生</author>
      <pubDate>Sat, 16 Aug 2025 06:17:33 +0000</pubDate>
    </item>
    <item>
      <title>我也发一个,VB6用网页做UI,树形控件新招ztree.js组件</title>
      <link>https://0xaa55.com/thread-27596-1-1.html</link>
      <description><![CDATA[用treeview ocx控件会因为64位VBA而无法使用，本身控件也有1M多
换下WEB UI,JS组件也不错。zTree_v3: jQuery 树插件 zTree v3 系列https://gitee.com/zTree/zTree_v3]]></description>
      <category>源码分享</category>
      <author>逍遥爱迪生</author>
      <pubDate>Sun, 10 Aug 2025 09:01:52 +0000</pubDate>
    </item>
    <item>
      <title>【文曲星A2008】文曲星 lav 和 GVMaker 解释器的源码</title>
      <link>https://0xaa55.com/thread-27595-1-1.html</link>
      <description><![CDATA[如果你想要调试这玩意儿，请从这个 Repo 开始。支持 x86/x64，支持 Debug/Release，使用预编译头。
新 VS2022 工程：（GitHub）
https://github.com/0xAA55/MyGVM

如果你上不去 GitHub，此处有 Gitee
https://gitee.com/a5k3rn3l/my-gvm



原始 VC6 工程：

 ...]]></description>
      <category>源码分享</category>
      <author>0xAA55</author>
      <pubDate>Sat, 09 Aug 2025 09:18:12 +0000</pubDate>
    </item>
    <item>
      <title>VB6取远程桌面访问者的客户端电脑IP，如何获取电脑是否在锁屏状态？</title>
      <link>https://0xaa55.com/thread-27589-1-1.html</link>
      <description><![CDATA[VB6取远程桌面访问者的客户端电脑IP
如何获取电脑是否在锁屏状态？
[md]```
Option Explicit

Private Const WTS_CURRENT_SERVER_HANDLE = 0&amp;

Private WTS_CURRENT_SESSION As Long

Private Type WTS_CLIENT_ADDRESS
     AddressFamily As Long
     Address(20) As  ...]]></description>
      <category>源码分享</category>
      <author>逍遥爱迪生</author>
      <pubDate>Mon, 28 Jul 2025 01:37:10 +0000</pubDate>
    </item>
    <item>
      <title>支持IE8的JS语法实现的Markdown编辑器</title>
      <link>https://0xaa55.com/thread-27588-1-1.html</link>
      <description><![CDATA[完全不依赖外部资源(css,js)，
可以用于vb6 webbrowser控件显示/(excel vba窗体)

要实现一个完全不依赖外部资源且兼容IE8的纯JavaScript Markdown编辑器，可以采用以下方案。该方案基于原生DOM操作和字符串处理，支持基础Markdown语法解析‌

该实现特点：
1) 纯HTML+J ...]]></description>
      <category>源码分享</category>
      <author>逍遥爱迪生</author>
      <pubDate>Sun, 27 Jul 2025 22:34:17 +0000</pubDate>
    </item>
    <item>
      <title>VB6调用webview2+SDK环境,支持WIN7的最后一个版本109.0.1518.140</title>
      <link>https://0xaa55.com/thread-27587-1-1.html</link>
      <description><![CDATA[WebView2Demo.exe所在目录需要有文件夹： webview2Win7绿色优化版109.0.1518.140


解压就可以直接用，不需要安装。
webview2中可以直接设置成运行环境目录。

比原版减少了39%容量，解压后减少44%（240MB）
简版：142MB，解压后297MB
原版：232MB，解压后534MB


下载S ...]]></description>
      <category>源码分享</category>
      <author>逍遥爱迪生</author>
      <pubDate>Sun, 27 Jul 2025 06:35:45 +0000</pubDate>
    </item>
    <item>
      <title>逍遥下载组件控件OCX,DLL(单个下载，批量下载)适用VBA,VB6,易语言</title>
      <link>https://0xaa55.com/thread-27586-1-1.html</link>
      <description><![CDATA[功能：下载组件，单个下载，批量下载，OCX,DLL模式
适合32位VB6,VBA,64位的正在开发中
使用教程视频网址：https://www.bilibili.com/video/BV1p98xzTEeq/]]></description>
      <category>源码分享</category>
      <author>逍遥爱迪生</author>
      <pubDate>Sun, 27 Jul 2025 06:10:49 +0000</pubDate>
    </item>
    <item>
      <title>workspace - C++11 轻量级异步执行、动态线程池框架</title>
      <link>https://0xaa55.com/thread-27585-1-1.html</link>
      <description><![CDATA[[md]
# [workspace ](https://github.com/DeHby/workspace/)

**workspace **是基于 **C++11** 的轻量级异步执行框架，支持：通用任务异步执行、优先级任务调度、自适应动态线程池、高效静态线程池、异常处理机制等。

项目在原作者 [Lwhyz/workspace](https://github.c ...]]></description>
      <category>源码分享</category>
      <author>dehby1024</author>
      <pubDate>Thu, 24 Jul 2025 07:44:52 +0000</pubDate>
    </item>
    <item>
      <title>【GLSL】给 Minecraft 编写 Font Shader！使用 GB2312 字符集像素字，渲染游戏画面</title>
      <link>https://0xaa55.com/thread-27583-1-1.html</link>
      <description><![CDATA[[md]# 给 Minecraft 编写 Font Shader！使用 GB2312 字符集像素字，渲染游戏画面

## 仓库地址

[GitHub](https://github.com/MickeyMeowMeowHouse/font-shader)
[Gitee](https://gitee.com/a5k3rn3l/font-shader)
两个仓库同步维护，如果你可以访问 GitHub 的话请访问  ...]]></description>
      <category>源码分享</category>
      <author>0xAA55</author>
      <pubDate>Sun, 20 Jul 2025 09:21:45 +0000</pubDate>
    </item>
    <item>
      <title>【VB6】【全网唯一】纯 CPU 光追地形渲染，60 fps 流畅实时渲染</title>
      <link>https://0xaa55.com/thread-27582-1-1.html</link>
      <description><![CDATA[[md]# 使用 Visual Basic 6.0 实现纯 CPU 光追地形渲染，60 fps 流畅实时渲染

![效果示例](https://www.0xaa55.com/misc/altitudemap.gif)

## 仓库地址

[GitHub](https://github.com/0xAA55/VB6_CPU_AltitudeMap3D)
[Gitee](https://gitee.com/a5k3rn3l/altitude-map ...]]></description>
      <category>源码分享</category>
      <author>0xAA55</author>
      <pubDate>Sat, 19 Jul 2025 12:34:32 +0000</pubDate>
    </item>
  </channel>
</rss>