用vb查找dll控件的guid值

[TsungLee]

请问怎么样查找一个dll控件在注册表里的guid值？

[迈克揉索芙特]

把上面的API声明替换为：
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)

然后：
Private Sub Command1_Click()
MsgBox ProgIDToCLSID(控件的ProgID)
End Sub

[TsungLee]

果然是强

[迈克揉索芙特]

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 GUID) As Long
Private Declare Sub ProgIDFromCLSID Lib "ole32.dll" (CLSID As GUID, lplpszProgID As Long)
Private Declare Function CLSIDFromString Lib "ole32.dll" (ByVal lpszProgID As Long, pClsid As GUID) 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

[TsungLee]

怎么用？？

[TsungLee]

编译时报错：“变量使用了 Visual Basic 不支持的自动化类型”