void CNetRadioDlg::OnBnClickedTest()
{
CString strValue;
IHTMLDocument2* pDoc = (IHTMLDocument2*)m_Browser.GetHtmlDocument();
HRESULT hr = S_FALSE;
IHTMLElementCollection* pAllElem = NULL;
IHTMLElementCollection* pAllScript = NULL;
IHTMLElement* pElem = NULL;
hr = pDoc->get_scripts(&pAllScript);
if(SUCCEEDED(hr) && pAllScript != NULL)
{
IDispatchPtr pElemDisp = NULL;
_variant_t varID(1);
_variant_t varIdx(0);
hr = pAllScript->item(varID, varIdx, &pElemDisp);
if(SUCCEEDED(hr) && pElemDisp != NULL)
{
hr = pElemDisp->QueryInterface(IID_IHTMLElement,(void**)&pElem);
if(SUCCEEDED(hr) && pElem != NULL)
{
BSTR bstrTagName;
hr = pElem->get_outerHTML(&bstrTagName);
hr = pElem->get_outerHTML(&bstrTagName);
if(SUCCEEDED(hr))
{
CString strTagName(bstrTagName);
SysFreeString(bstrTagName);
MessageBox(strTagName);
}
}
}
}
hr = pDoc->get_all(&pAllElem);
if(SUCCEEDED(hr) && pAllElem != NULL)
{
IDispatchPtr pElemDisp = NULL;
_variant_t varID(_T("body"));
_variant_t varIdx(0);
hr = pAllElem->item(varID, varIdx, &pElemDisp);
if(SUCCEEDED(hr) && pElemDisp != NULL)
{
MessageBox(_T("OK"));
}
}
}
int CLuaXMLDefs::xmlNodeSetName ( lua_State* luaVM )
{
int iType1 = lua_type ( luaVM, 1 );
int iType2 = lua_type ( luaVM, 2 );
if ( ( iType1 == LUA_TLIGHTUSERDATA ) &&
( iType2 == LUA_TSTRING ) )
{
CXMLNode* pNode = lua_toxmlnode ( luaVM, 1 );
if ( pNode )
{
std::string strTagName ( lua_tostring ( luaVM, 2 ) );
pNode->SetTagName ( strTagName );
lua_pushboolean ( luaVM, true );
return 1;
}
else
m_pScriptDebugging->LogBadPointer ( luaVM, "xmlNodeSetName", "xml-node", 1 );
}
else
m_pScriptDebugging->LogBadType ( luaVM, "xmlNodeSetName" );
lua_pushboolean ( luaVM, false );
return 1;
}
