纯手工代码使用COM/ActiveX控件(如何不通过注册表)

#include "objbase.h"
#include "atlcomcli.h"
#include "limits"
#import "msscript.ocx" no_namespace

//定义工厂方法签名
extern "C"{ typedef HRESULT (__stdcall *FuncDllGetClassObject)(REFCLSID rclsid,REFIID riid,LPVOID * ppv);}

struct IScriptControl;
int _tmain(int argc, _TCHAR* argv[])
{
try
{
//初始化
::CoInitialize (NULL);
HMODULE h=::LoadLibrary("msscript.ocx");
if(h==NULL)return 0;
FuncDllGetClassObject func=(FuncDllGetClassObject)::GetProcAddress(h,"DllGetClassObject");
if(func==NULL)return 0;
IClassFactory *pFactory=NULL;
func(__uuidof ( ScriptControl ),IID_IClassFactory,(void**)&pFactory);
if(pFactory==NULL)return 0;
IScriptControl *pScript=NULL;

//下面的代码实现效果和本行效果一样:pFactory->QueryInterface(__uuidof(IScriptControl) , (void**)&pScript);
//可以从注册表例看到该接口的IID为:0e59f1d3-1fbe-11d0-8ff2-00a0d10038bc
IID id;//=__uuidof(IScriptControl);
id.Data1=0x0e59f1d3;
id.Data2=0X1fbe;
id.Data3=0X11d0;

id.Data4[0]=0X8f;
id.Data4[1]=0Xf2;
id.Data4[2]=0X00;
id.Data4[3]=0Xa0;
id.Data4[4]=0Xd1;
id.Data4[5]=0X00;
id.Data4[6]=0X38;
id.Data4[7]=0Xbc;

//下面行的效果等于本行效果:pFactory->CreateInstance(NULL,__uuidof(IScriptControl) , (void**)&pScript);
pFactory->CreateInstance(NULL,id , (void**)&pScript);
pFactory->Release();

pScript->put_AllowUI(VARIANT_FALSE);
pScript->PutLanguage(L"JScript");

_variant_t v=pScript->Eval("1+2+3+4+5");

int i=pScript->Release();

::FreeLibrary(h);
::CoUninitialize();
return 0;
}
catch(...)
{
//::FreeLibrary(h);
::CoUninitialize();
}
}