调用.findbyType会使vb6出错,有帮助吗?[复制品]

函数在类型库中声明为

HRESULT FindByType(
                    [in] BSTR bstrTypeURI, 
                    [in] unsigned long dwFlags, 
                    [out, retval] IUPnPDevices** pDevices);

和无符号参数 dwFlags 在VB6中不可用

Function FindByType(bstrTypeURI As String, dwFlags As <Unsupported variant type>) As UPnPDevices

您必须通过将参数类型更改为兼容的VB6类型来“vb fy”此类型库。

编辑:

Here 是我的尝试vb fy这个类型库,使用自担风险。IDL编译时使用 mktyplib .

注意,你不必送货 vbupnp.tlb 对于您的用户,您不必在他们的机器上注册它。只需注册并只在您的开发人员机器上使用它。