VB6 Timer(), Space() Form_Initialize() 导致立即崩溃

Question

创建一个新的 VB6 项目。粘贴下面的代码作为您的项目代码。点击运行。看看它是否崩溃...删除或简化此代码中您喜欢的任何内容，然后它会正常工作。 谁能解释一下为什么会崩溃？

到目前为止，这已经在八台 PC 上进行了测试，所有 PC 都运行 Windows XP、Windows Vista、Windows 7、Office 2010 和 Office 2007 的各种组合。在 Visual Basic IDE 中进行测试的是 Visual Basic 6 SP已安装 6 个。

Private Sub Sleep(ByVal nSeconds As Long)
    Dim nStart As Long: nStart = Timer
    Do
        DoEvents
    Loop Until (Timer - nStart) >= nSeconds
End Sub

Private Sub Crash()
    Dim sTempPath As String: sTempPath = Space(255)
End Sub

Private Sub Form_Initialize()
    Sleep 1
    Crash
End Sub

附录 #1：

我把它作为一个宏放在 Excel 2010 中，用 Workbook_Open() 替换 Form_Initialize()，果然，当你打开文档时。它崩溃了！

附录 #2：

我在点击“运行”之前为每一行添加了断点，它在到达第一个断点之前就崩溃了。但同样，如果我简化或删除其中的任何内容，它可以正常工作并且不会崩溃。

附录#3：

尝试了 MicSim 删除冒号的建议，它确实没有崩溃。添加回来，再次运行它，它确实没有崩溃。关闭Visual Basic，并输入原始代码，它就崩溃了。

附录#4：

Visual Basic 6 IDE 中的问题详细信息：

问题特征：
问题事件名称：APPCRASH
应用程序名称：VB6.EXE
应用程序版本：6.0.81.76
申请时间戳：3592011f
故障模块名称：VBA6.dll
故障模块版本：6.0.0.8169
故障模块时间戳：358b0c74
异常代码：c0000005
异常偏移量：00026329
操作系统版本：6.1.7601.2.1.0.256.4
区域设置 ID：1033
附加信息 1：7e3b
附加信息 2：7e3beb1e9ccf6d519c5b994ca59a280f
附加信息 3：7b83
附加信息 4：7b833c57ebcf54809fd3aaccd8ea4f46

在线阅读我们的隐私声明：
http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0409

如果在线隐私声明不可用，请离线阅读我们的隐私声明：
C:\Windows\system32\en-US\erofflps.txt

附录#5：

Microsoft Excel 2010 中的问题详细信息：

问题特征：
问题事件名称：APPCRASH
应用程序名称：EXCEL.EXE
应用程序版本：14.0.4756.1000
申请时间戳：4b9c08e8
故障模块名称：VBE7.DLL
故障模块版本：7.0.15.90
故障模块时间戳：4b7b1248
异常代码：c0000005
异常偏移量：00045b6a
操作系统版本：6.1.7601.2.1.0.256.4
区域设置 ID：1033

有关问题的其他信息：
液晶显示器：1033
skulcid：1033

在线阅读我们的隐私声明：
http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0409

如果在线隐私声明不可用，请离线阅读我们的隐私声明：
C:\Windows\system32\en-US\erofflps.txt

Answer 1

在查看了您的问题和所有附录后，我意识到您的计算机运行的是 VB6 的发行版，而不是 SP6。

您的崩溃详细信息表明以下版本：

• VB6.exe: 6.0.81.76
• VBA6.dll：6.0.0.8179

Visual Basic 6.0 SP6 文件的确切内部版本号如下：

• VB6.exe: 6.0.97.82
• VBA6.dll：6.0.0.9782

异常代码 c0000005 对应于模块 vba6.dll 中的访问冲突。类似的问题记录在Microsoft KB

我还没有找到每个 VB6 服务包的准确源代码列表，但看起来这是RTM version。即使您自己安装了 SP6，恶意安装程序也可能在安装 Service Pack 后被旧版本覆盖了共享系统文件。这可以解释为什么很多用户评论说代码在看似相似的设置下运行良好。