当前位置：首页 > news >正文

纯VB6代码实现稳定多线程（源码下载，非ActiveX EXE）

news 2026/5/12 20:35:18

VB6虽然可以通过CreateThread来创建线程，但是创建后的线程里面基本不能调用任何函数，连调用Sleep都会崩溃。到底要怎么做才能让VB6程序稳定运行多线程呢？

一、创建多线程

1. 使用`CreateThread`创建线程

Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long

通过指定CreateThread的第三个参数 lpStartAddress，来指定线程回调函数的地址。在VB6中可以是用AddressOf + 标准模块内的函数名称来获取函数的入口地址。

2. 线程回调函数的定义和实现

先看代码，下面代码中的 TheThreadProc 就是线程的回调函数。

Private Function ThisThreadProc(lpData As Long) As Long '第一步必须执行CoInitialize ，要放在代码第一行执行，还需要通过TLB文件引用来静态调用才行 CoInitialize 0& '第二步必须创建一个由VB编写的DLL对象 CreateDummyOject '第三步才能执行自己的线程函数 On Error GoTo ThisThreadProc_Err 100 ThreadMain '第四步执行CoUninitialize和清理 CoUninitialize ExitThread 0 Exit Function ThisThreadProc_Err: MsgBox Err.Description & vbCrLf & _ "in MThreadProc.ThisThreadProc " & _ "at line " & Erl, _ vbExclamation + vbOKOnly, "Application Error" Resume Next End Function '现在可以在这个函数里面做你要做的事情 Private Sub ThreadMain() '一些问题： '不能使用APP对象，也不能创建FORM窗口 '不能调用IWshRuntimeLibrary.WshShell.Run函数 '其他不能使用的功能未知 '怎么调试： '可以使用API函数OutputDebugString来输出信息 '再用工具Dbgview.exe来查看输出的信息 Dim strTmp As String strTmp = "线程ID: " & GetCurrentThreadId & " -> 我可以干活了！" OutputDebugString strTmp End Sub Public Sub CreateDummyOject() '创建任意一个由VB编写的DLL对象，用如下三种方式都可以 Dim obj As Object Set obj = New Dummy ' Set obj = CreateObject("VBMT.Dummy") ' Set obj = CreateDllObject("VBMT.dll", "Dummy") Set obj = Nothing End Sub

在线程回调函数中，我们一共分四步来做，从而实现线程稳定运行。

第一步，必须执行CoInitialize 来初始化COM资源。必须放在所有代码前面的第一行执行，还需要通过TLB文件引用来静态调用才行。

第二步，必须创建一个由VB6编写的，并且已经编译好的ActiveX DLL的对象。创建后可以使用它也可以立即销毁，要的只是创建这个动作而已。具体原因未知，估计是VB6内部初始化了很多东西。

第三步，到这里我们可以在线程做我们想做的工作了。可以正常使用VB6自带的函数和类，调用API，创建和使用其他COM组件。但是不能使用App对象，不能创建Form对象，也不能实例化本工程内定义的类；最多只能调用一次Msgbox函数。

第四部，做完工作，清理一下。先调用CoUninitialize来清理COM占用资源，然后再调用ExitThread退出线程。

完成这四步，我们的程序就可以稳定运行多线程了。