vb6获取EXE文件的版本号

在VB6 (Visual Basic 6) 中，获取EXE文件的版本号通常通过读取资源中的相关信息或者使用系统API函数。一种常见的方法是利用Win32 API函数GetFileVersionInfo和VerQueryValue来提取文件的详细信息，包括版本号。

首先，你需要打开一个进程句柄，并定位到你要检查的EXE文件的模块部分。然后你可以这样做：

Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function GetFileVersionInfo Lib "kernel32" (ByVal hModule As Long, ByVal szFileName As String, ByVal dwLen As Long, ByVal lpVersionInfo As Any) As Long
Private Declare Function VerQueryValue Lib "version.dll" (ByVal pvVersionInfo As Any, ByVal szSubBlock As String, lpData As Any, lpdwSize As Long) As Long

Function GetExeVersionInfo(ByVal filePath As String) As String
    Dim hModule As Long
    Dim versionInfo As Any
    Dim versionBlock As String
    Dim size As Long
    Dim strVersion As String
    
    ' 获取模块句柄
    hModule = GetModuleHandle(filePath)
    
    ' 获取文件版本信息
    If Not GetFileVersionInfo(hModule, filePath, 0, versionInfo) Then
        GetExeVersionInfo = "无法获取版本信息"
        Exit Function
    End If
    
    ' 定位到版本信息块
    versionBlock = "\VarFileInfo\Translation"
    If Not VerQueryValue(versionInfo, versionBlock, versionInfo, size) Then
        GetExeVersionInfo = "无法找到版本块"
        Exit Function
    End If
    
    ' 从版本信息中解析版本号
    strVersion = ""
    Call VerQueryValue(versionInfo, "ProductVersion", strVersion, 0) ' 假设ProductVersion存储了版本号
    GetExeVersionInfo = strVersion
End Function

这个函数会尝试返回指定EXE文件的ProductVersion（通常版本号格式如"X.X.X.X"）。如果遇到错误，它会返回相应的错误消息。