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却弹出对象不支持该属性或方法我原意是增加一个接口函数,让网页调用,但是却无法解决问题,希望各位高手帮忙,谢谢
{
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却弹出对象不支持该属性或方法我原意是增加一个接口函数,让网页调用,但是却无法解决问题,希望各位高手帮忙,谢谢
HRESULT SetWebInf([in]VARIANT URL, [in]VARIANT ser );但是他自动在类中增加的是get_SetWebInf()
我没调用,是应该调用这个么?》
如果类中定义的自动加上get..或put..一般是你增加的是属性,不是方法。
[id(0x00010012), helpstring("Returns/sets the web server.")]
HRESULT SetWebInf([in]VARIANT URL, [in]VARIANT ser ); 1.去掉propget,
2.检查下0x00010012 ID别的接口有没有使用。