vb6 获取外部程序的版本号

在VB6 (Visual Basic 6) 中，获取外部应用程序的版本号通常涉及到动态链接库(DLL)或exe文件的信息。你可以使用`WinAPI`函数，特别是`VerQueryValue`函数来完成这个任务。以下是大致步骤：

1. 首先，你需要一个指向DLL/exe头文件的句柄。对于DLL，可以使用`LoadLibrary`函数加载；对于exe，可以直接通过文件路径。

Dim hModule As Long '句柄变量，用于保存加载的模块
hModule = LoadLibrary("path\to\your.dll") '替换成实际的DLL路径

2. 然后，找到包含版本信息的关键部分。这通常在`FileVersionInfo`结构内，该结构位于`IMAGE_FILE_HEADER`之后。你需要定位到正确的`FileInfo`结构，并查找特定的语言ID（如`LANG_NEUTRAL`）和产品版本字符串（例如`szProductVersion`）。

Dim verStr As String
Dim fi As FILEINFO
fi.dwSignature = VS_FFI_SIGNATURE
fi.dwStrType = VS_FF_INFO VERSION
If VerQueryValue(hModule, "\$(PRODUCT_VERSION)", fi.pwszSzFile, Len(fi.pwszSzFile)) Then
    verStr = fi.pwszSzFile
End If

3. 最后，关闭模块资源并释放句柄。

FreeLibrary hModule

获取完版本号后，`verStr`变量将存储该应用程序的版本号。