本文以 "msscript.ocx" 作為參考

　　第一步：

　　獲取標頭檔案

　　#import "msscript.ocx"

　　得到兩個檔案 "msscript.tlh" 和 "msscript.tli" 整合下的到個頭檔案"msscript.h"如下：

　　+ View Code

　　第二步：

　　　138#include

　　#include

　　//#import "msscript.ocx"

　　#include "msscript.h"

　　using namespace MSScriptControl;

　　HRESULT (STDAPICALLTYPE *pfnDllGetClassObject)(REFCLSID rclsid, REFIID riid, LPVOID* ppv) = 0;

　　int main()

　　{

　　//方式一

　　do

　　{

　　/*

　　@ 注意點

　　@ 1.沒有判斷返回值，後面直接使用 CoUninitialize 反初始化會出現問題。

　　@ 2.如果不主動呼叫釋放也會出現崩潰，因為後面直接呼叫了 CoUninitialize，在智慧指標析構時候會出錯。

　　*/

　　::CoInitializeEx(NULL, COINIT_MULTITHREADED);//注意點【1】

　　CLSID clsid;

　　CLSIDFromProgID(OLESTR("MSScriptControl.ScriptControl.1"), &clsid);

　　CComPtr spScript;//智慧指標

　　spScript.CoCreateInstance(clsid);

　　if (spScript != nullptr)

　　{

　　spScript->_AboutBox();

　　}

　　spScript.Release();//注意點【2】

　　::CoUninitialize();

　　} while (0);

　　//一下方式將解決上面的2個注意點

　　//解決注意點[【1】

　　HRESULT hr = ::CoInitializeEx(NULL, COINIT_MULTITHREADED);

　　std::shared_ptr tmpCoUninitialize(nullptr, [hr](void *) {

　　if (hr == S_OK)

　　{

　　::CoUninitialize();

　　}

　　});

　　//方式二

　　do

　　{

　　//最好使用 try catch 來處理

　　try

　　{

　　IScriptControlPtr spScript(__uuidof(ScriptControl)/*, NULL, CLSCTX_INPROC*/);

　　//ptr->Language = "VBScript";

　　//ptr->AllowUI = TRUE;

　　HRESULT hr = spScript->put_Language(_bstr_t(L"VBScript"));

　　hr = spScript->put_AllowUI(VARIANT_TRUE);

　　spScript->AddCode(_bstr_t(LR"-(

　　Private Function VBS_MsgBox()

　　Msgbox "你好!"

　　End Function

　　)-"));

　　spScript->Eval(_bstr_t(L"VBS_MsgBox"));

　　spScript->_AboutBox();

　　}

　　catch (const _com_error &e)

　　{

　　e.Description();

　　}

　　catch (...)

　　{

　　}

　　} while (0);

　　//方式三

　　do

　　{

　　//不註冊元件 直接呼叫介面

　　HMODULE hMSScript = ::LoadLibraryExW(_T("msscript.ocx"), NULL, 0);

　　if (hMSScript != NULL)

　　{

　　*(LPVOID *)&pfnDllGetClassObject = ::GetProcAddress(hMSScript, "DllGetClassObject");

　　if (pfnDllGetClassObject != nullptr)

　　{

　　try

　　{

　　IClassFactoryPtr pClassFactory = NULL;

　　HRESULT hr = pfnDllGetClassObject(__uuidof(ScriptControl), IID_IClassFactory, (LPVOID*)&pClassFactory);

　　if (SUCCEEDED(hr) && pClassFactory != nullptr)前列腺炎會給男性帶來哪些危害

　　{

　　IScriptControlPtr spScript;

　　hr = pClassFactory->CreateInstance(NULL, __uuidof(IScriptControl), (void **)&spScript);

　　if (SUCCEEDED(hr) && spScript != nullptr)

　　{

　　spScript->_AboutBox();

　　}

　　}

　　}

　　catch (const _com_error &e)

　　{

　　_bstr_t des = e.Description();

　　int j = 0;

　　}

　　}

　　::FreeLibrary(hMSScript);

　　}

　　} while (0);

　　//方式四

　　do

　　{

　　IClassFactoryPtr pClassFactory = NULL;

　　HRESULT hr = ::CoGetClassObject(

　　__uuidof(ScriptControl),成都青羊區做陰莖延長醫院

　　CLSCTX_ALL,

　　NULL,

　　__uuidof(IClassFactory),

　　(void **)&pClassFactory);

　　if (SUCCEEDED(hr) && pClassFactory != nullptr)

　　{

　　IScriptControlPtr spScript;

　　hr = pClassFactory->CreateInstance(NULL, __uuidof(IScriptControl), (void **)&spScript);

　　if (SUCCEEDED(hr) && spScript != nullptr)

　　{

　　spScript->_AboutBox();

　　}

　　} while (0);

　　//方式五

　　//在MFC視窗介面新增，可以得到介面類。

　　return 0;

　　}