基本上，当我尝试使用VB6调用upnp.dll内部的函数时遇到此错误，其中upnp.dll返回的数据类型不受VB6支持。以前，发生了相同的错误，但函数/变量不同，并且解决方法是在oleview.exe中打开upnp.dll（以查看类型库信息），并将所有“ Unsigned Long”的出现替换为“ Long”然后编译一个新的TypeLib，其中删除了“ Unsigned”关键字，这解决了该senario的问题。
现在，我需要解决相同的问题，但要使用不同的函数/变量，但是问题是，当我进入oleview的upnp.dll的TypeLib视图时，我不知道需要更改或删除哪种变量数据类型。
为了完整起见，我将让您知道发生此错误的位置，然后我将向您展示oleview / TypeLib视图的相关部分，这些部分我很难修改。 （作为参考，upnp.dll包含在Windows \ system32中，如果您的计算机上尚未安装oleview.exe，则Windows SDK Toolkit附带它）。
我正在调用函数.InvokeAction sActionName, aryIns, aryOuts，其中aryIns和aryOuts是这样声明的变量：Dim aryIns As Variant, aryIns As Variant-基本上，我通常将其声明为将需要的任何输入数据放入aryIns中，然后将InvokeAction调用的结果获取aryOuts。好东西是，InvokeAction将我的一般Variant变成一个尺寸正确的数组，该数组反映为我正在使用的ActionName返回的输出项的数量。
关于我遇到的错误，我在“ WAN连接设备”下的“ WanIPConnection”上使用（对于sActionName）“ GetStatusInfo”。我不需要为aryIns定义任何项目，因为此调用不需要或不需要任何输入参数，但是它提供了（返回）3个项目（结果）并将它们放在aryOuts中。所以aryOuts最终是一个数组，其中的项目从索引0到2（共3个项目）...并且当我遍历此aryOuts数组时，项目0和1被打印出来并完美地查看（没有问题），但是在第3个item（aryOuts（2））我得到了上面的异常。
基本上，前两个参数只是简单的字符串（访问它们没有问题），但是第三个参数由UPnP人员定义为Unsigned 4 Byte Integer（这是问题所在），VB6无法解释此数据类型，因此不允许我访问此数组项（aryOuts（2）），也无法弄清楚需要修改TypeLib的哪一部分，因为InvokeAction aryOuts的定义在TypeLib中只是表示为VARIANT *，这是TypeLib的相关部分供您查看（我已经包括了我所理解的相关区域，如果您想发布其他区域，请告诉我，我可以这样做）：
[
odl,
uuid(A295019C-DC65-47DD-90DC-7FE918A1AB44),
helpstring("IUPnPService Interface"),
dual,
nonextensible,
oleautomation
]
interface IUPnPService : IDispatch {
[id(0x600209c5), helpstring("method QueryStateVariable")]
HRESULT QueryStateVariable(
[in] BSTR bstrVariableName,
[out, retval] VARIANT* pValue);
[id(0x600209c6), helpstring("method InvokeAction")]
HRESULT InvokeAction(
[in] BSTR bstrActionName,
[in] VARIANT vInActionArgs,
[in, out] VARIANT* pvOutActionArgs,
[out, retval] VARIANT* pvRetVal);
[id(0x600209c7), propget, helpstring("property ServiceTypeIdentifier")]
HRESULT ServiceTypeIdentifier([out, retval] BSTR* pVal);
[id(0x600209c8), helpstring("method AddStateChangeCallback")]
HRESULT AddCallback([in] IUnknown* pUnkCallback);
[id(0x600209c9), propget, helpstring("property Id")]
HRESULT Id([out, retval] BSTR* pbstrId);
[id(0x600209ca), propget, helpstring("property LastTransportStatus")]
HRESULT LastTransportStatus([out, retval] long* plValue);
};
我之前讨论的aryOuts（）数组是由
[in, out] VARIANT* pvOutActionArgs声明（在上述TypeLib中）的InvokeAction行定义的。基本上，整个数组都定义为VARIANT *（很好），但是我在访问上面定义的pvOutActionArgs数组的第3个元素（索引项编号2）时遇到问题，如何围绕此问题修改TypeLib？作为参考，以及感兴趣的人，Hans Passant（@HansPassant）帮助我解决了类似的情况，要求我从oleview.exe暴露的upnp.dll TypeLib中删除Text的Unsigned部分-他帮助了我下面的文章（以及生成和编译新的TypeLib（upnp.tbl）所需的其余步骤）：Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic
最佳答案
尝试将aryOuts(2)分配给Long变量（lStatusBits = aryOuts(2)）。在VB6中访问VT_UI4变体应该没有问题，除非它在For Each vElem ...循环（vElem是变体）或变体分配中阻塞。您无法在typelib中采取任何措施来解决此问题。如果没有其他效果，则可以使用Call CopyMemory(aryOuts(2), VT_I4, 2)手动更改变体类型，其中VT_I4 = 3
COM variants are a data structure以一个称为vartype的int16成员开头，该成员定义存储在变量中的数据类型（在您的情况下为aryOuts(2)）。
VarType VT_UI4用于无符号的int32值。 VB6 Long转换为带符号的VT_I4 = 3变体。
VarType VT_UI2用于无符号的int16值。 VB6 Integer转换为带符号的VT_I2 = 2变体。
除非您知道自己在做什么，否则修改变量的变量类型可能非常危险。在这种情况下，将无符号类型转换为有符号的类型是相当安全的，而不会泄漏内存或任何其他副作用。