留存，ProgID和ClsID之间转换，ClsID的字符串和数值形式的转换

liucqa · 发表于 2013-3-26 19:59

全局唯一标识符，简称GUID
通常表示成32个16进制数字（0－9，A－F）组成的字符串，如：{21EC2020-3AEA-1069-A2DD-08002B30309D}，它实质上是一个128位长的二进制整数。在Windows系统中也称之为Class ID，缩写为CLSID。为了避免冲突，微软使用GUID作为CLSID,有生成GUID的函数，主要是根据当时的时间、机器地址等信息动态产生，理论上可保证全球唯一。
GUID本质上是一个16字节（128位）的二进制数，最常见[1]的结构如下：
位字节描述字节序
32 4 数据1 原生
16 2 数据2 原生
16 2 数据3 原生
64 8 数据4 大端序

GUID通常会写成16进制数的字符串，如：3F2504E0-4F89-11D3-9A0C-0305E82C3301
这种文本表示包括了如下部分：
16进制数的位数描述
8 数据1
4 数据2
4 数据3
4 数据4的最初2字节
12 数据4的剩余6字节

上述表示方法通常放在一对大括号里边，如：{3F2504E0-4F89-11D3-9A0C-0305E82C3301}

在开放软件基金会为计算（第一版）GUID制定的算法中，用户的网卡MAC地址被用于计算GUID中最后一组数字，所以就存在隐私问题，因为任何人都可以通过文件包含的GUID追溯到最初创建这个文件的电脑。这个漏洞曾被用于寻找梅丽莎病毒的制作者的位置[2]。在其它几组数字中，大多数是根据生成GUID的时间决定的。

我们可以通过GUID中第三组数字的第一位是不是1来判断它是否是第一版的GUID算法生成的，例如{2f1e4fc0-81fd-11da-9156-00036a0f876a}。

第四版的GUID使用了新的算法，其产生的数字是一个伪随机数。它生成的GUID的第三组数字的第一位是4，如{38a52be4-9352-453e-af97-5c3b448652f0}。对Windows API中的GUID生成器所做密码分析显示，因为第四版的GUID并不是真正随机的，所以只要知道了程序内部的全部状态，就可能预测它生成的上一个和下一个GUID的值。[3].

几个转换函数

函数       用途

StringFromCLSID    将CLSID转化成文本串

StringFromIID       将IID转化成文本串

StringFromGUID2    将GUID转化成文本串。此串将被存放在调用者所分配的缓冲区中

CLSIDFromString    将一个文本串转化成CLSID（128位数值）

IIDFromString       将一个文本串转化成IID

ProgID命名约定：
<Program>.<component>.<version>

从ProgID到CLSID的转换：COM库函数CLSIDFromProgID和ProgIdFromCLSID:

CLSID clsid;
CLSIDFromProgID("****.****.****",&clsid);

DLL一定要输出下边两个函数：
STDAPI DllRegisterServer();
STDAPI DllUnregisterServer();

用户可以使用程序REGSVR32.EXE来注册某个组件，它实际上是通过上述函数来完成组件的注册的。

liucqa · 发表于 2013-3-26 20:19

原帖：http://blog.csdn.net/Modest/archive/2006/11/01/1361160.aspx

[vb] view plaincopy

Option Explicit
Private Type UUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type
Private Declare Function CLSIDFromProgID Lib "ole32.dll" (ByVal lpszProgID As Long, pClsid As UUID) As Long
Private Declare Sub ProgIDFromCLSID Lib "ole32.dll" (CLSID As UUID, lplpszProgID As Long)
Private Declare Function CLSIDFromString Lib "ole32.dll" (ByVal lpszProgID As Long, pClsid As UUID) As Long
Private Declare Function StringFromCLSID Lib "ole32.dll" (pClsid As UUID, lpszProgID As Long) As Long
Private Declare Sub MoveMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Public Function CLSIDToProgID(ByVal CLSID As String) As String
Dim UUID As UUID
Dim ProgID As Long
Dim StrOut As String * 255
CLSIDFromString StrPtr(CLSID), UUID
ProgIDFromCLSID UUID, ProgID
If ProgID <> 0 Then
StrFromPtrW ProgID, StrOut
CLSIDToProgID = Left(StrOut, InStr(StrOut, vbNullChar) - 1)
End If
End Function
Public Function ProgIDToCLSID(ByVal ProgID As String) As String
Dim UUID As UUID
Dim CLSID As Long
Dim StrOut As String * 255
CLSIDFromProgID StrPtr(ProgID), UUID
StringFromCLSID UUID, CLSID
If CLSID <> 0 Then
StrFromPtrW CLSID, StrOut
ProgIDToCLSID = Left(StrOut, InStr(StrOut, vbNullChar) - 1)
End If
End Function
Private Sub StrFromPtrW(pOLESTR As Long, StrOut As String)
Dim ByteArray(255) As Byte, i As Integer
Dim intTemp As Integer, intCount As Integer
intTemp = 1
While intTemp <> 0
MoveMemory intTemp, ByVal pOLESTR + i, 2
ByteArray(intCount) = intTemp
intCount = intCount + 1
i = i + 2
Wend
MoveMemory ByVal StrOut, ByteArray(0), intCount
End Sub

复制代码

loquat · 发表于 2019-4-23 22:05

有了CLSID之后，就不需要获取ProgID了。可直接走IDispatch生成实例。

loquat · 发表于 2019-5-6 00:09

忍不住把老魏的代码简化一下：

lsqypj · 发表于 2019-8-19 12:05

本帖最后由 lsqypj 于 2019-8-19 12:07 编辑

loquat 发表于 2019-5-6 00:09
忍不住把老魏的代码简化一下：

又试了下代码，程序每次到行到 SysReAllocString VarPtr(strProgID), lpszProgID 崩溃，Excel完全退出，调试看了下变量lpszProgID的值是一个负的整数，请教下是什么原因。。
操作系统是win10 64位，excel也是2016 64位

loquat · 发表于 2019-8-22 10:47

木有64位系统，但是64位需要改代码。

		自动登录	找回密码
密码			免费注册

留存，ProgID和ClsID之间转换，ClsID的字符串和数值形式的转换

SysReAllocString 崩溃