问个com对象返回值的问题

问题： 问个com对象返回值的问题
描述:

迅雷不支持firefox,想改扩展支持,试着在vc里用InvokeN调用,这个retValue的返回值怎么实现,其它的下载软件都没这个东西
<script language="VBScript">
Sub OnContextMenu()
On Error Resume Next
set ThunderApi = CreateObject("Xunleibho.CatchRightClick.1")
if err<>0 then
MsgBox("Thunder not properly installed on this PC!")
else
set links = external.menuArguments.document.links
ReDim params(links.length*2)
params(0)=external.menuArguments.document.Url
for i = 0 to links.length-1
params(i*2+1)=links(i).href
params(i*2+2)=links(i).innerText
next 
retValue = ThunderApi.AddAllUrl(params)
        end if        
end sub
call OnContextMenu()
</script>

---

解决方案1:

可以不使用(IDispatch)的Invoke接口调用

解决方案2:

你使用OLE viewer 看看Xunleibho.CatchRightClick.1对AddAllUrl接口的定义就知道了,确定retValue 的类型是什么,在正常情况下是[out,retval]的,如是LONG形的,使用AddAllUrl(params,&retValue)返回

解决方案3:

没明白你的意思，你的retValue 也没定义啊。