STDMETHODIMP CDsoFramerControl::SetWebInf(VARIANT URL, VARIANT ser)
{
m_lpURL = LPWSTR_FROM_VARIANT(URL) ;
m_lpSer  = LPWSTR_FROM_VARIANT(ser) ;
return S_OK ;
}
以上是整个新增接口函数,网页中执行vbs语句
Sub SetURL()
   Dim sUrl,sUrl2
   sUrl = "http://192.168.89.133:8080/ccses"
   sUrl2 = "http://ws.service.com"
   On Error Resume Next
   oframe.setwebinf sUrl,sUrl2
   if err.number then
       MsgBox "Unable to Open URL: " & err.description
   end if
   MsgBox "设置完毕"
 End Sub却弹出对象不支持该属性或方法我原意是增加一个接口函数,让网页调用,但是却无法解决问题,希望各位高手帮忙,谢谢

解决方案 »

  1.   

    你在dsoframer.odl中增加接口了吗?把接口、函数声明也都帖出来看下。
      

  2.   

    [propget, id(0x00010012), helpstring("Returns/sets the web server.")]
    HRESULT SetWebInf([in]VARIANT URL, [in]VARIANT ser );但是他自动在类中增加的是get_SetWebInf()
    我没调用,是应该调用这个么?》
      

  3.   

     id(0x00010012)是我自己手写的,不影响吧
      

  4.   

    这个ID是不是被别的接口用了。另外:
    如果类中定义的自动加上get..或put..一般是你增加的是属性,不是方法。
      

  5.   

    把接口中的定义修改为:
    [id(0x00010012), helpstring("Returns/sets the web server.")]
    HRESULT SetWebInf([in]VARIANT URL, [in]VARIANT ser ); 1.去掉propget, 
    2.检查下0x00010012 ID别的接口有没有使用。
      

  6.   

    兄弟,谢谢你的提醒,我解决了,就是要在odl文档中声明下接口函数