SELECT solution FROM expirience WHERE situation = currentsituation

class CScriptSite: public IActiveScriptSite
{
    // IUnknown 
    STDMETHOD(QueryInterface)(REFIID iid,void** ppvObjOut)
    {
        *ppvObjOut = NULL;
        return E_NOINTERFACE;
    }
    ULONG __stdcall AddRef () { return 1; }
    ULONG __stdcall Release() { return 1; }

    // IActiveScriptSite 
    STDMETHOD(GetItemInfo)(LPCOLESTR,DWORD,
        IUnknown**,ITypeInfo**)           { return TYPE_E_ELEMENTNOTFOUND; }
    STDMETHOD(GetLCID)(LCID *plcid)       { return E_NOTIMPL; }
    STDMETHOD(GetDocVersionString)(BSTR*) { return E_NOTIMPL; }
    STDMETHOD(OnScriptTerminate)
        (const VARIANT*,const EXCEPINFO*) { return S_OK; }
    STDMETHOD(OnScriptError)
        (IActiveScriptError *pError)      { return S_OK; }
    STDMETHOD(OnStateChange)(SCRIPTSTATE) { return S_OK; }
    STDMETHOD(OnEnterScript)()            { return S_OK; }
    STDMETHOD(OnLeaveScript)()            { return S_OK; }    
};

HRESULT CallScript(BSTR ScrEngine, const char *script)
{
    CScriptSite ss;
    CComPtr<IActiveScriptParse> spASP;
    CComPtr<IActiveScript> spAS;
    HRESULT hr;
    if( FAILED(hr = spAS.CoCreateInstance(ScrEngine))) return hr;
    if( FAILED(hr = spAS ->SetScriptSite(&ss))) return hr;
    if( FAILED(hr = spAS ->QueryInterface(IID_IActiveScriptParse, (void**)&spASP))) return hr;
    if( FAILED(hr = spASP->InitNew())) return hr;
    if( FAILED(hr = spASP->ParseScriptText(CComBSTR(script),0,0,0,0,0,SCRIPTTEXT_ISVISIBLE,0,0))) return hr;
    if( FAILED(hr = spAS ->SetScriptState(SCRIPTSTATE_CONNECTED))) return hr;
    return S_OK;
}

char meg_of_ai_code[]="..."; //тут, собственно, программа
CallScript(CComBSTR("VBScript"), meg_of_ai_code);

A>SELECT solution FROM expirience WHERE situation = currentsituation
A>

R>>char meg_of_ai_code[]="..."; //тут, собственно, программа
R>>CallScript(CComBSTR("VBScript"), meg_of_ai_code); 
R>>

#include <stdio.h>
#include <math.h>

#import "msscript.ocx"
using namespace MSScriptControl;

// два куска кода - на C++ и на скрипте
// Выражение должно вычисляться со значением 1
void runC()
{
    double s=0, sum=0, counter=0;
    for(double i=0;i<1;i+=0.000001){ 
        s=sqrt(pow(sin(i),2)+pow(cos(i),2)); //==1
        sum+=s; counter++;
    }
}

// А это на JScript. sin, cos, pow и sqrt сделаны глобальными (см. ниже)
char *statement=
"sum=counter=0;"
"for(i=0;i<1;i+=0.000001){ "
"s=sqrt(pow(sin(i),2)+pow(cos(i),2));"
"sum+=s; counter++;}";

main()
{
    CoInitialize(NULL);
    long t1=0, t2=0;
    try {
        IScriptControlPtr pScript;
        pScript.CreateInstance("ScriptControl");
        pScript->Timeout = -1; //не прерывать выполнение по таймауту
        pScript->Language="JScript";
        //так можно получить объект из скрипта:
        _variant_t Math = pScript->Eval("Math"); 
        //а так - сделать его методы глобальными:
        pScript->AddObject("MathMath", LPDISPATCH(Math), VARIANT_TRUE);
        long start = GetTickCount();
        pScript->ExecuteStatement(statement);
        t1 = GetTickCount()-start;
        printf("t1=%d ms\n", t1);
        start = GetTickCount();
        runC();
        t2 = GetTickCount()-start;
        printf("t2=%d ms\n", t2);
        //А правильно ли он считает?
        _bstr_t sum = pScript->Eval("sum");
        printf("sum=%s\n", (LPCTSTR)sum);

    }
    catch(_com_error &e)
    {
        MessageBox(0, e.Description(), "Error", MB_OK|MB_ICONHAND);
    }
    CoUninitialize();
    return 0;
}

R>>PS: AI, часом, не для игрушки клепаешь?

A>Ну а как же В цель !