一个MFC调用脚本的类（javascript ，vbscript）

最新推荐文章于 2020-06-20 21:59:59 发布
最新推荐文章于 2020-06-20 21:59:59 发布
阅读量1.7k 收藏 8
点赞数
分类专栏： VC++


Script.h

#pragma once
#include <xstring>
#include <list>

#import "msscript.ocx" no_namespace

#define LANGUAGE_DEFAULT	_T("JScript")
#define RT_SCRIPT			_T("SCRIPT")
#define LANGUAGE_NAME_LEN	40
#define ERROR_DESC_LEN		256

using namespace std;

#ifndef _UNICODE
typedef list<string> stl_string_list;
#else
typedef list<wstring> stl_string_list;
#endif

class CScript
{
public:
	CScript(void);
	~CScript(void);
public:
	bool LoadScript(__in LPCTSTR szFilename);   //通过路径加载脚本文件
	bool LoadScriptResource(__in LPCTSTR lpName, __in LPCTSTR lpType,__in HINSTANCE hInstance);  //通过资源加载脚本文件
	LPCTSTR GetLanguage();         //获取脚本语言
	void SetLanguage(__in LPCTSTR szLanguage); //设置脚本语言
	int  GetMethodsCount() const;   //获取函数个数
	LPCTSTR GetNameAt(__in int index);   //获取对应索引的函数名
	_variant_t ExecFunc(__in LPCTSTR lpfunc ,__in _variant_t varParam);//执行函数
	LPCTSTR ExecFunc(__in LPCTSTR lpfunc ,__in LPCTSTR lpParam);//执行函数

private:
	bool Create(VARTYPE  vt, UINT  cDims, UINT lBound, UINT cCount);
	bool Destroy();
	UINT GetDimension();
	bool Attach(LPSAFEARRAY psa);
	bool AttachFromVariant(VARIANT* pVariant);
	LPSAFEARRAY Detach();
	LPSAFEARRAY GetArray();
	bool AccessData(void FAR* FAR* pvData);
	bool UnaccessData();
	bool Lock();
	bool Unlock();
	bool PutElement(long lIndices, void FAR* vData);
	bool GetElement(long lIndices, void FAR* vData);
	VARIANT GetAsVariant();

public:	
	void Reset();	
	bool AddScript(LPCTSTR szCode);
	LPCTSTR GetErrorString();
	bool ExecuteStatement(LPCTSTR szStatement);
	bool RunProcedure(LPCTSTR szProcName, SAFEARRAY** saParameters, VARIANT* varRet);


private:
	void CommonConstruct();
	bool GetMethodsName();
	LPCTSTR GetScriptFunction(LPCTSTR name);

	LPSAFEARRAY	m_pSA;
	IScriptControlPtr m_pScript;				// The one and only script control
	stl_string_list m_FunctionList;				// Function list
	TCHAR	m_szLanguage[LANGUAGE_NAME_LEN+1];	// Current language
	TCHAR	m_szError[ERROR_DESC_LEN+1];		// Description error	
};


Script.cpp

#include "StdAfx.h"
#include "Script.h"
CScript::CScript(void)
{
	m_pSA = NULL;
	memset(m_szError,0,ERROR_DESC_LEN);
	memset(m_szLanguage,0,LANGUAGE_NAME_LEN);
	
	if (!AfxOleInit())
	{
		return;
	}
	CommonConstruct();
}

CScript::~CScript(void)
{
	m_pScript = NULL;
	Destroy();
}
void CScript::CommonConstruct()
{
	HRESULT hr = m_pScript.CreateInstance(__uuidof(ScriptControl));
	_com_util::CheckError( hr ); // will throw an exception if failed

	// will not come here if exception
	_tcscpy_s(m_szLanguage,LANGUAGE_NAME_LEN+1, LANGUAGE_DEFAULT);
	m_pScript->PutAllowUI( VARIANT_FALSE );
	m_pScript->PutLanguage( _bstr_t(m_szLanguage ));
}

LPCTSTR CScript::GetLanguage()
{
	return m_szLanguage;
}


void CScript::SetLanguage(LPCTSTR szLanguage)
{
	_tcscpy_s(m_szLanguage,LANGUAGE_NAME_LEN+1, szLanguage);

	if (m_pScript != NULL)
	{
		m_pScript->PutLanguage( _bstr_t( szLanguage ) );
		m_pScript->Reset();
		m_FunctionList.clear();
	}
}

bool CScript::Create(VARTYPE  vt, UINT  cDims, UINT lBound, UINT cCount)
{
	Destroy();

	if (cDims == 1)	// this is somewhat faster...
		m_pSA = SafeArrayCreateVector(vt, lBound, cCount);
	else
	{
		SAFEARRAYBOUND rgsabound[1] = { 0 };
		rgsabound[0].lLbound = lBound;
		rgsabound[0].cElements = cCount;
		m_pSA = SafeArrayCreate(vt, cDims, rgsabound);
	}
	return (m_pSA != NULL);
}

bool CScript::Destroy()
{
	if (NULL != m_pSA)
	{
		// Maybe the object is locked!
		if (SUCCEEDED(SafeArrayDestroy( m_pSA )))
			m_pSA = NULL;
	}
	return (m_pSA == NULL);
}

LPSAFEARRAY CScript::GetArray()
{
	return m_pSA;
}

UINT CScript::GetDimension()
{
	UINT uDim = 0;
	if (NULL != m_pSA)
		uDim = SafeArrayGetDim( m_pSA );
	return uDim;
}

bool CScript::Attach(LPSAFEARRAY psa)
{
	if (NULL != psa)	// prevent 'destroy' for null pointer
	{
		Destroy();
		m_pSA = psa;
		return true;
	}
	return false;
}

LPSAFEARRAY CScript::Detach()
{
	if (NULL == m_pSA)
		return NULL;

	LPSAFEARRAY psa = m_pSA;
	m_pSA = NULL;
	return psa;
}

bool CScript::AttachFromVariant(VARIANT* pVariant)
{
	if (NULL != pVariant)
	{
		if (pVariant->vt & VT_ARRAY)
		{
			LPSAFEARRAY psa = pVariant->parray;
			if (pVariant->vt & VT_BYREF)	// VB use this...
				psa = *pVariant->pparray;
			return Attach( psa );
		}
	}
	return false;
}

VARIANT CScript::GetAsVariant()
{
	VARIANT var;
	VariantClear(&var);
	if (NULL != m_pSA)
	{
		var.vt = VT_ARRAY|VT_BYREF;
		var.pparray = &m_pSA;
		USHORT fFeatures = m_pSA->fFeatures;
		LONG cbElements = m_pSA->cbElements;
		if (fFeatures & FADF_BSTR)
			var.vt |= VT_BSTR;
		else if (fFeatures & FADF_UNKNOWN)
			var.vt |= VT_UNKNOWN;
		else if (fFeatures & FADF_DISPATCH)
			var.vt |= VT_DISPATCH;
		else if (fFeatures & FADF_VARIANT)
			var.vt |= VT_VARIANT;
		else if (fFeatures & FADF_RECORD)
			var.vt |= VT_RECORD;
		else if (fFeatures & FADF_HAVEVARTYPE)
		{
			// these are just guess based on size of element, may not be accurated...
			if (sizeof(char) == cbElements) // 1 byte
				var.vt |= VT_UI1;
			else if (sizeof(short) == cbElements) // 2 bytes
				var.vt |= VT_UI2;
			else if (sizeof(long) == cbElements) // 4 bytes -- or float (VT_R4)
				var.vt |= VT_UI4;
			else if (sizeof(double) == cbElements) // 8 bytes -- or Currency (VT_CY)
				var.vt |= VT_R8;
		}
	}
	return var;
}

bool CScript::AccessData(void FAR* FAR* pvData)
{
	if (NULL != m_pSA && NULL != pvData)
	{
		return (SafeArrayAccessData(m_pSA, pvData) == S_OK);
	}
	return false;
}

bool CScript::UnaccessData()
{
	if (NULL != m_pSA)
	{
		return (SafeArrayUnaccessData(m_pSA) == S_OK);
	}
	return false;
}

bool CScript::Lock()
{
	if (NULL != m_pSA)
	{
		return (SafeArrayLock(m_pSA) == S_OK);
	}
	return false;
}

bool CScript::Unlock()
{
	if (NULL != m_pSA)
	{
		return (SafeArrayUnlock(m_pSA) == S_OK);
	}
	return false;
}

bool CScript::PutElement(long lIndices, void FAR* vData)
{
	if (NULL != m_pSA)
	{
		return (SafeArrayPutElement(m_pSA, &lIndices, vData) == S_OK);
	}
	return false;
}

bool CScript::GetElement(long lIndices, void FAR* vData)
{
	if (NULL != m_pSA)
	{
		return (SafeArrayGetElement(m_pSA, &lIndices, vData) == S_OK);
	}
	return false;
}

int  CScript::GetMethodsCount() const
{
	return m_FunctionList.size();
}

LPCTSTR CScript::GetNameAt(int index)
{
	if( index >= 0 && index < (int)m_FunctionList.size())
	{
		stl_string_list::iterator iter = m_FunctionList.begin();
		while( index > 0)
		{
			iter++;
			index--;
		}
		return (*iter).c_str();
	}
	return TEXT("");
}

void CScript::Reset()
{
	if (m_pScript != NULL)
	{
		m_pScript->Reset();

		// empty list...
		m_FunctionList.clear();
	}
}

LPCTSTR CScript::GetErrorString()
{
	m_szError[0] = 0;
	if (m_pScript != NULL)
	{
		try{
			IScriptErrorPtr pError = m_pScript->GetError();
			if (pError != NULL)
			{
				_bstr_t desc  = _bstr_t("Error: ") + pError->GetDescription() + _bstr_t(", ");
				desc += pError->GetText() + _bstr_t("; in line ");
				desc += _bstr_t(pError->GetLine());
				int count = __min(desc.length(), ERROR_DESC_LEN); // string may be truncated...
				_tcsncpy_s(m_szError, (LPCTSTR) desc, count);
				m_szError[count] = 0;
				pError->Clear();
			}
		}
		catch(_com_error& e)
		{
			TRACE( (LPSTR)e.Description() );
			TRACE( (LPSTR)"\n" );
		}
	}
	return m_szError;
}

bool CScript::GetMethodsName()
{
	bool bResult = false;
	if (m_pScript != NULL)
	{
		IScriptProcedureCollectionPtr pIProcedures = m_pScript->GetProcedures();

		// empty list...
		m_FunctionList.clear();

		try{
			long count = pIProcedures->GetCount();
			for(long index=1; index <= count; index++)
			{
				IScriptProcedurePtr pIProcPtr = pIProcedures->GetItem( _variant_t(index) );
				_bstr_t name = pIProcPtr->GetName();
				m_FunctionList.insert(m_FunctionList.end(), (LPCTSTR) name );
				pIProcPtr = NULL;
			}

			bResult = true;
		}
		catch(...)
		{
			// Just catch the exception, call GetErrorString()
			// to retreive last error
		}

		pIProcedures = NULL;
	}
	return bResult;
}

LPCTSTR CScript::GetScriptFunction(LPCTSTR szName)
{
	stl_string_list::iterator iter = m_FunctionList.begin();
	while( iter != m_FunctionList.end() )
	{
		if ((*iter).compare(szName) == 0)
			return (*iter).c_str();
		iter++;
	}
	return TEXT("");
}

bool CScript::LoadScriptResource(LPCTSTR lpName, LPCTSTR lpType, HINSTANCE hInstance )
{
	try{
		if (m_pScript)
		{
			HRSRC res = ::FindResource(hInstance, lpName, lpType);
			ASSERT( res != NULL);
			BYTE* pbytes = (BYTE*) LockResource(LoadResource(hInstance, res ));
			ASSERT( pbytes != NULL);
			_bstr_t strCode = (LPCSTR) (pbytes);
			m_pScript->AddCode( strCode );
			GetMethodsName();
			return true;
		}
	}
	catch(...)
	{
		// Just catch the exception, call GetErrorString()
		// to retreive last error
	}
	return false;
}

bool CScript::LoadScript(LPCTSTR szFilename)
{
	HANDLE hFile = CreateFile(szFilename, GENERIC_READ, FILE_SHARE_READ,
		NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
	if (hFile != INVALID_HANDLE_VALUE)
	{
		DWORD dwSize = GetFileSize(hFile, NULL);
		if (0xFFFFFFFF != dwSize)
		{
			BYTE* pbytes = (BYTE*) GlobalAlloc(GPTR, dwSize+1);
			if (pbytes != NULL)
			{
				DWORD dwRead = 0;
				bool bResult = false;
				if (ReadFile(hFile, pbytes, dwSize, &dwRead, NULL))
				{
					try{
						if (m_pScript)
						{
							_bstr_t strCode = (LPCSTR) (pbytes);
							m_pScript->AddCode( strCode );
							GetMethodsName();
							bResult = true;
						}
					}
					catch(...)
					{
						// Just catch the exception, call GetErrorString()
						// to retreive last error
					}

					GlobalFree( (HGLOBAL) pbytes);
					CloseHandle(hFile);
					return bResult;
				}

				GlobalFree( (HGLOBAL) pbytes);
			}
		}

		CloseHandle(hFile);
		return false;
	}

	return false;
}

bool CScript::AddScript(LPCTSTR szCode)
{
	try {
		if (m_pScript != NULL)
		{
			ULONG ref = m_pScript->AddRef();
			_bstr_t strCode = szCode;
			m_pScript->AddCode( strCode );
			GetMethodsName();
			ref = m_pScript->Release();
			return true;
		}
	}
	catch(...)
	{
		// Just catch the exception, call GetErrorString()
		// to retreive last error
		ULONG ref = m_pScript->Release();
	}
	return false;
}

bool CScript::ExecuteStatement(LPCTSTR szStatement)
{
	try {
		if (m_pScript != NULL)
		{
			ULONG ref = m_pScript->AddRef();
			m_pScript->ExecuteStatement( _bstr_t(szStatement) );
			ref = m_pScript->Release();
			return true;
		}
	}
	catch(...)
	{
		// Just catch the exception, call GetErrorString()
		// to retreive last error
		ULONG ref = m_pScript->Release();
	}

	return false;
}

bool CScript::RunProcedure(LPCTSTR szProcName, SAFEARRAY** saParameters, VARIANT* varRet)
{
	// required argument
	ASSERT( saParameters != NULL);
	ASSERT( varRet  != NULL);

	try {
		if (m_pScript != NULL)
		{
			ULONG ref = m_pScript->AddRef();
			bool  bResult = false;
			_bstr_t szFunc  = GetScriptFunction(szProcName);
			if (szFunc.length() > 0)
			{
				*varRet = m_pScript->Run(szFunc, saParameters);
				bResult = true;
			}
			ref = m_pScript->Release();
			return bResult;
		}
	}
	catch(...)
	{
		// Just catch the exception, call GetErrorString()
		// to retreive last error
		ULONG ref = m_pScript->Release();
	}
	return false;
}


_variant_t CScript::ExecFunc(LPCTSTR lpfunc ,_variant_t varParam)
{
	try{
		_variant_t var;
		if (_tcsclen(lpfunc) <= 0)
			this->Create(VT_VARIANT, 1, 0, 0);	
		else
		{
			this->Create(VT_VARIANT, 1, 0, 1);	
			var = varParam;
		}
		this->PutElement(0, (void*)&var);// parameter1 -> index 0
		LPSAFEARRAY sa =  this->GetArray();
		_variant_t varRet;
		if (RunProcedure(lpfunc, &sa, &varRet))
			return varRet;
		else
		{
			return _bstr_t(GetErrorString());
		}
	}
	catch(...)
	{
		return _bstr_t(GetErrorString());
	}
}

LPCTSTR CScript::ExecFunc(__in LPCTSTR lpfunc ,__in LPCTSTR lpParam)
{
	try{
		_variant_t var;
		if (_tcsclen(lpfunc) <= 0)
			this->Create(VT_VARIANT, 1, 0, 0);	
		else
		{
			this->Create(VT_VARIANT, 1, 0, 1);	
			var = _bstr_t(lpParam);
		}
		this->PutElement(0, (void*)&var);// parameter1 -> index 0
		LPSAFEARRAY sa =  this->GetArray();
		_variant_t varRet;
		if (RunProcedure(lpfunc, &sa, &varRet))
			return (LPCTSTR)_bstr_t(varRet);
		else
		{
			return GetErrorString();
		}
	}
	catch(...)
	{
		return GetErrorString();
	}
}

调用sample：

CScript script;
        CString strpath = _T("C:\\encoding.js");
        script.LoadScript(strpath);
        CString strRet = script.ExecFunc(_T("encoding"),_T("测试项目"));


JS代码：

function encoding(str)
{
return encodeURI(str);
}


运行结果如下：

strRet = "%E6%B5%8B%E8%AF%95%E9%A1%B9%E7%9B%AE";


laobobo999
关注
专栏目录
MFC使用脚本
weixin_63701570的博客
07-31 133
MFC通用使用脚本，包括获取路径等等
JavaScript调用ActiveX
热门推荐
冷却
06-14 1万+
本文简单的演示和说明了ActiveX控件的编写以及与JavaScript的交互方法。
MFC调用脚本（javascript ，vbscript）的类
04-18
NULL 博文链接：https://liyuan66.iteye.com/blog/1837792
代码。动态脚本。MFC、VC中支持脚本程序。
songzd的专栏
12-11 832
可以模拟IE的动态对象树。用与MFC程序。示例脚本如下,EditBox1是加载完HTM才确定的。var now1  new Date document.all.EditBox1.value  now1.toLocaleStringMSN，song.z.d@hotmail.com。 
MFC 程序中调用 vbs 脚本文件
albon arith
03-13 2478
SHELLEXECUTEINFO shei; shei.cbSize = sizeof(shei); shei.fMask = SEE_MASK_INVOKEIDLIST; shei.lpFile = _T("001.vbs"); shei.lpVerb = _T("open"); ShellExecute(NULL,shei.lpVerb,
利用MFC快速高效开发窗体设计器(同时支持脚本)
06-03
开发窗体设计器并非易事,要求支持脚本也十分困难,但该程序利用MFC轻松实现了.该程序最大特点是简捷和结构清晰,充分利用了MS现有的技术,从中能了解到很多ms window程序内幕知识.
MFC下Js 脚本运行
07-01
简单的 MFC 下Js 脚本运行事例。大家可以参考一下。
一个MFC调用脚本的类（javascript ，vbscript）.txt
最新发布
08-28
一个MFC调用脚本的类（javascript ，vbscript）.txt
《为应用程序添加脚本支持》配套代码VC源代码
03-15
`ScriptControlMacroDispatch.cpp` 可能包含了脚本引擎的调度器实现，这是一个关键部分，因为它允许脚本调用应用程序的对象和方法。通过实现IDispatch接口，可以使得VBScript或JavaScript能够访问和操作C++对象。 `...
MFC通过脚本调用程序
a780902723的专栏
11-23 1120
1.TESTRunning(CString str) { CString str1 = str; int i = str1.Find("[Testitem]"); str1 = str1.Right(str1.GetLength()-i); int j = str1.Find(_T("\n\n")); str1 = str.Mid(i+11,j-10); wh
c/c++/MFC 调用 js 函数代码
ityezi_admin的专栏
06-09 772
调用函数代码和示例 1 首先 .h 文件中定义： CComPtr m_sphtmlWnd; CComPtr m_spHtmlDoc; //方法1 可以取得返回值。。。。。 //调用方法示例：stringArray为传入参数列表，getSum为js函数，pVarResult 为返回值 /* CStringArray stringArray; stringArray.Remove
MFC添加VBScript引擎
04-13
MFC添加VBScript引擎，在自己的mfc项目中可以执行vbscript脚本
为应用程序添加脚本支持
st780206的专栏
01-26 527
为应用程序添加脚本支持作者:Yuri Polyakov 翻译:PowerCPP下载本文示例代码代码运行效果图如下：  介绍有时我们并不需要提供完整的脚本支持,就像本文所要介绍的ActiveX脚本宿主(script hosting,可能称为脚本引擎更好理解),本文提供的ScriptControlMacro程序展示了使用Microsoft脚本控件简单地实现脚本支持功能,代码中还包括了以下一些技术:
为你的MFC程序添加宏脚本语言
gaoxiaowei的专栏
08-21 1137
 为你的MFC程序添加宏脚本语言请参阅http://www.vckbase.com/document/viewdoc/?id=920  我总是对脚本控件（msscript.ocx）如何使用和当需要使用的时候，C++ 开发者该如何应对感到惊奇。可能扩展名（.ocx）使他们觉得，那是vb！在本文中，我将解决这些界限，给出 C++ 开发者使用它的新的理由。 问题描述由于MS开发者的努力而
c++和MFC 交互通过lua脚本实例
时间溜走了的博客
11-12 1972
width = 600 height = 400 local pathdlg =1000 local contendlg = 1002 --alert(getText(1000)) function Load() local path = getText(pathdlg); --alert(txt); local inp = io.open(path, "rb") //去读
ScriptControl控件使用
haodawei123的博客
06-20 894
代码 Private Sub Command1_Click() On Error GoTo scError Dim strFun As String Dim a, b As Long x = 2 b = 3 strFun = “function Add(a,b)” & vbCrLf & “Add=a+b+s” & vbCrLf & “End Function” & vbCrLf ScriptControl1.Modules.Add “MyCode” ScriptCon
C++通过Microsoft Script Control控件调用JS脚本
一个博客
03-22 6666
有时在程序开发中，需要在程序中调用一些比如javascript这样的脚本，Microsoft为我们提供了Script Control组件即是用于实现这样的功能。 Script Control是一个ActiveX控件，它的函数都封装在了msscript.ocx文件中，我们可以直接下载该文件即可。ScriptControl接口属性： AllowUI 检测是否允许运行用户的接口元
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值