如何在自己的程序中加入宏的功能
实现功能：在程序中加入执行宏语句的功能，如Microsoft Word一样，可以在里面运行宏，利用宏实现一些特殊功能。
使用技术：Automotion
程序实现：1、新建对话框程序，加入编辑框，选中其Multiline属性。
2、给编辑框关联变量：CEdit m_edit1;
3、加入新类MyScriptObject，基类为CCmdTarget, 并选中下方的Automotion。
4、给新类增加方法：打开ClassWizard，选择Automotion标签，在Class Name中选择MyScriptObject，点击Add Methods，在External name中输入Add，在返回值一项中选择long，参数列表中添加参数如下：na long；na long。
5、在MyScriptObject类中将Add方法改为：return na+nb；
6、打开MyScriptObject.h，将析构函数改为public。
7、拦截按据IDOK的BN_CLICKED消息，增加如下代码，并去掉CDialog::OnOK(); ：
g_iActiveScriptSite.m_pUnkScriptObject =
m_myScriptObject.GetInterface(&IID_IUnknown);
HRVERIFY(CoCreateInstance(CLSID_VBScript,NULL, CLSCTX_INPROC_SERVER,
IID_IActiveScript, (void **)&m_iActiveScript),
"CoCreateInstance() for CLSID_VBScript");
HRVERIFY(m_iActiveScript->QueryInterface(IID_IActiveScriptParse,
(void **)&m_iActiveScriptParse),
"QueryInterface() for IID_IActiveScriptParse");
HRVERIFY(m_iActiveScript->SetScriptSite(&g_iActiveScriptSite),
"IActiveScript::SetScriptSite()");
HRVERIFY(m_iActiveScriptParse->InitNew(),
"IActiveScriptParse::InitNew()");
HRVERIFY(m_iActiveScript->AddNamedItem(L"MyObject",
SCRIPTITEM_ISVISIBLE | SCRIPTITEM_ISSOURCE),
"IActiveScript::AddNamedItem()");
CString csScriptText;
m_edit1.GetWindowText(csScriptText);
EXCEPINFO ei;
BSTR pParseText = csScriptText.AllocSysString();
m_iActiveScriptParse->ParseScriptText(pParseText, L"MyObject", NULL,
NULL, 0, 0, 0L, NULL, &ei);
m_iActiveScript->SetScriptState(SCRIPTSTATE_CONNECTED);
m_iActiveScriptParse->Release();
m_iActiveScript->Release();
8、在CMyDialog.h中的public加入如下代码：
CMyScriptObject m_myScriptObject;
IActiveScript *m_iActiveScript;
IActiveScriptParse *m_iActiveScriptParse;
9、在CMyDialog.h中增加头文件：
#include <activscp.h>
#include "MyScriptObject.h"
10、在OnOK()这前加入如下代码：
class MyActiveScriptSite : public IActiveScriptSite {
private:
ULONG m_dwRef; // Reference count
public:
IUnknown *m_pUnkScriptObject; // Pointer to your object that is exposed
// to the script engine in GetItemInfo().
MyActiveScriptSite::MyActiveScriptSite() {m_dwRef = 1;}
MyActiveScriptSite::~MyActiveScriptSite() {}
virtual HRESULT _stdcall QueryInterface(REFIID riid, void **ppvObject) {
*ppvObject = NULL;
return E_NOTIMPL;
}
virtual ULONG _stdcall AddRef(void) {
return ++m_dwRef;
}
virtual ULONG _stdcall Release(void) {
if(--m_dwRef == 0) return 0;
return m_dwRef;
}
virtual HRESULT _stdcall GetLCID(LCID *plcid) {
return S_OK;
}
virtual HRESULT _stdcall GetItemInfo(LPCOLESTR pstrName,
DWORD dwReturnMask, IUnknown **ppunkItem, ITypeInfo **ppti) {
if(ppti) {
*ppti = NULL;
if(dwReturnMask & SCRIPTINFO_ITYPEINFO)
return TYPE_E_ELEMENTNOTFOUND;
}
if(ppunkItem) {
*ppunkItem = NULL;
if(dwReturnMask & SCRIPTINFO_IUNKNOWN) {
if (!_wcsicmp(L"MyObject", pstrName)) {
*ppunkItem = m_pUnkScriptObject;
m_pUnkScriptObject->AddRef();
}
}
}
return S_OK;
}
virtual HRESULT __stdcall GetDocVersionString(BSTR *pbstrVersion) {
return S_OK;
}
virtual HRESULT __stdcall OnScriptTerminate(const VARIANT *pvarResult,
const EXCEPINFO *pexcepInfo) {
return S_OK;
}
virtual HRESULT __stdcall OnStateChange(SCRIPTSTATE ssScriptState) {
return S_OK;
}
virtual HRESULT __stdcall OnScriptError(
IActiveScriptError *pscriptError) {
static BSTR pwcErrorText;
pscriptError->GetSourceLineText(&pwcErrorText);
AfxMessageBox(
CString("IActiveScriptSite::OnScriptError()\n") +
CString("Line: ") +
CString(pwcErrorText),
MB_SETFOREGROUND);
::SysFreeString(pwcErrorText);
return S_OK;
}
virtual HRESULT __stdcall OnEnterScript(void) {
return S_OK;
}
virtual HRESULT __stdcall OnLeaveScript(void) {
return S_OK;
}
};
MyActiveScriptSite g_iActiveScriptSite;
#include <initguid.h>
DEFINE_GUID(CLSID_VBScript, 0xb54f3741, 0x5b07, 0x11cf, 0xa4, 0xb0, 0x0,
0xaa, 0x0, 0x4a, 0x55, 0xe8);
DEFINE_GUID(CLSID_JScript, 0xf414c260, 0x6ac0, 0x11cf, 0xb6, 0xd1, 0x00,
0xaa, 0x00, 0xbb, 0xbb, 0x58);
class OleInitClass {
public:
OleInitClass() {
OleInitialize(NULL);
}
~OleInitClass() {
OleUninitialize();
}
};
OleInitClass g_OleInitClass;
void HRVERIFY(HRESULT hr, char * msg)
{
if(FAILED(hr)) {
CString str;
str.Format("Error: 0x%08lx (%s)", hr, msg);
AfxMessageBox(str, 0x10000);
_exit(0);
}
}
11、运行。找一断宏代码写入Edit，点确定就可以执行了。啊，还差一点忘说了，记得初始化COM接口呀！J
本文地址：http://com.8s8s.com/it/it1452.htm