如何用VC的MFC和Wizard做一个MS Agent程序？

[lifanxi]

请问如何用VC的MFC和Wizard做一个MS Agent程序？先插入Agent的ActiveX控件，然后呢？

[lifanxi]

感谢回复，不过我在VC上实在比较菜，还是有点不得其解，让我再试试。
其它人如果能再指点一二的话，同样十分感谢。

[111222]

http://helperhome.com

[五行擒拿术]

//init com
HRESULT hr ;

::CoInitialize( NULL ) ;

hr = ::CoCreateInstance( CLSID_AgentServer ,
NULL ,
CLSCTX_SERVER ,
IID_IAgentEx ,
(LPVOID*)&m_pAgent ) ;

if( hr != S_OK )
return FALSE ;

LoadCharacter( "merlin.acs") ;

BOOL CTAgentDlg::LoadCharacter(LPSTR FileName)
{

HRESULT hr ;

VARIANT vFileName ;
long lReqID ;
long lCharID ;
IUnknown *punkAnimNames;
IEnumVARIANT *pevAnimNames;
char ActionStr[MAX_PATH] ;
VARIANT vAnimName ;
DWORD dwRetrieved;

//long
VariantInit( &vFileName ) ;
vFileName.bstrVal = SysAllocStringLen( NULL , MAX_PATH ) ;
CToW( FileName , vFileName.bstrVal , MAX_PATH ) ;
vFileName.vt = VT_BSTR ;

hr = m_pAgent->Load( vFileName , &lCharID , &lReqID ) ;

VariantClear( &vFileName ) ;

hr = m_pAgent->GetCharacterEx( lCharID , &m_pCharacter ) ;

m_lCharacterID = lCharID ;

if (SUCCEEDED(m_pCharacter->GetAnimationNames(&punkAnimNames)))
{
// Then query for IEnumVARIANT
if (SUCCEEDED(punkAnimNames->QueryInterface(IID_IEnumVARIANT, (LPVOID *)&pevAnimNames))) {
while (TRUE)
{
hr = pevAnimNames->Next(1, &vAnimName, &dwRetrieved);

if (hr != NOERROR)
break;

_ASSERT(dwRetrieved > 0);
_ASSERT(vAnimName.vt == VT_BSTR);
_ASSERT(vAnimName.bstrVal != NULL);

// Add it to the list box

//SendDlgItemMessage(m_hWnd, IDC_ANIMATIONS, LB_ADDSTRING, 0, (LPARAM)W2T(vAnimName.bstrVal));

WToC( vAnimName.bstrVal , (LPSTR)ActionStr , MAX_PATH ) ;
m_ListAction.AddString( ActionStr ) ;

// And clean up

VariantClear(&vAnimName);
}
pevAnimNames->Release();
}
punkAnimNames->Release();
}
m_pCharacter->Show( FALSE , &lReqID ) ;
return TRUE ;
}


这样可以让你载入一个Agent角色。

[lifanxi]

万事靠自己，我自己解决了，但同样感谢各位。
给分了。

[lifanxi]

万事靠自己，我自己解决了，但同样感谢各位。
给分了。

[myyxr]

自己解决了，呵呵
那我就不多说了
想当年我也是自己解决的，AGENT的动作名称你都知道吗？
要不要我告诉你？

[lifanxi]

to:myyxr.
好像MSDN上都有喔！

[lifanxi]

to:myyxr.
如果你愿意的话，告诉我我也很欢迎哟。