VBS调用ATL编写的COM组件

最新推荐文章于 2024-04-23 15:29:06 发布

huyinhou

最新推荐文章于 2024-04-23 15:29:06 发布

阅读量3.7k

点赞数

文章标签： vbs atl com

本文链接：https://blog.csdn.net/hyhnoproblem/article/details/42129293

版权

参考文章：http://blog.csdn.net/collin1211/article/details/1864624

不使用连接点，而是使用属性来处理事件回调。

IDL文件

import "oaidl.idl";
import "ocidl.idl";

[
	object,
	uuid(7E153966-BF67-4F02-BE64-80CB780A2EEF),
	dual,
	nonextensible,
	helpstring("IComVBSDllExample Interface"),
	pointer_default(unique)
]
interface IComVBSDllExample : IDispatch{
	[id(1), helpstring("method Method1")] HRESULT Method1(void);
	[propget, id(2), helpstring("property OnEvent1")] HRESULT OnEvent1([out, retval] IDispatch** pVal);
	[propput, id(2), helpstring("property OnEvent1")] HRESULT OnEvent1([in] IDispatch* newVal);
};
[
	uuid(08476D23-AECC-4CFF-9473-9C388E6AB86A),
	version(1.0),
	helpstring("ComVBSDll 1.0 Type Library")
]
library ComVBSDllLib
{
	importlib("stdole2.tlb");
	[
		uuid(F44D811E-74ED-472A-8BAB-8FFC8AB07BE4),
		helpstring("ComVBSDllExample Class")
	]
	coclass ComVBSDllExample
	{
		[default] interface IComVBSDllExample;
	};
};

部分实现代码

STDMETHODIMP CComVBSDllExample::Method1(void)
{
	// TODO: Add your implementation code here
	OnEvent1(20);
	return S_OK;
}
STDMETHODIMP CComVBSDllExample::get_OnEvent1(IDispatch** pVal)
{
	// TODO: Add your implementation code here
	*pVal = m_onEvent1;
	return S_OK;
}

STDMETHODIMP CComVBSDllExample::put_OnEvent1(IDispatch* newVal)
{
	// TODO: Add your implementation code here
	m_onEvent1 = newVal;
	return S_OK;
}

int CComVBSDllExample::OnEvent1(int arg1)
{
	if (m_onEvent1) {
		_variant_t vaResult;
		_variant_t vaArg1(arg1);
		DISPPARAMS disParams = {&vaArg1, NULL, 1, 0};
		m_onEvent1->Invoke(0, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &disParams, &vaResult, NULL, NULL);
		return (int)vaResult;
	}
	return 0;
}

VBS调用代码

dim comDll
set comDll = CreateObject("ComVBSDll.ComVBSDllExample")
comDll.OnEvent1 = GetRef("ComDll_Event1")
comDll.Method1()

Sub ComDll_Event1(ByVal arg1)
	WScript.Echo(arg1)
end Sub