如何在MSWord中加入MSAgent

一起学习

如何在MSWord中加入MSAgent

作者：赖锋

下载源代码

　　在每天的工作中使用Word是必须的工作，在使用MSWord的时候，使用帮助能帮助我们省下不少的时间，可是每天使用Word的时候都是对着限定的几个Assistant， 感觉有点闷 ，当我在网上看到微软推出的MSAgent技术时，我想，为何不可以有这些角色用到MSWord中去呢? 虽然不可能做到MSWord中的所有功能，不过，我想在MSWord中加入一些MSWord中的Assistant所没有的功能提示也不错。

使用 钩子技术， COM。就可以帮助实现这个功能。
实现工具 VC 6。0， 辅助工具 Spy 。
步骤：

1. 建立DLL，使用该DLL设置钩子
2. 建立钩子函数处理消息
3. 利用MSAgent处理相应的消息

程序的源代码说明，HookMsg.cpp：

#pragma data_seg( ".SHARED" )



HWND              gs_hClient = NULL; // Globle shared variable。

			          // It''s the dealing message window

HWND		gs_hServer = NULL;

HINSTANCE	g_hInst;

HHOOK		g_hHook;



#pragma data_seg()

#pragma comment( linker, "/SECTION:.SHARED,RWS")

gs_hClient 为监视的程序句柄，其所产生的消息将会由 gs_hSever 的消息处理程序句柄处理，
g_hInst 为钩子所在的dll 的Module 中。 g_hHook 为钩子句柄。

主要是在SetHook 和 MsgHookProc 中。

SetHook 中

	g_hHook = ::SetWindowsHookEx(

				WH_CALLWNDPROC,

				(HOOKPROC) MsgHookProc,

				g_hInst,

				::GetWindowThreadProcessId( gs_hClient, NULL ) );

为指定监视的进程设置钩子。
钩子消息处理函数：

MsgHookProc( int nCode，  WPARAM wParam， LPARAM lParam )

其中lParam是一个指向 MSG 结构的指针。
MSG的结构在MSDN的描述为：

typedef struct tagMSG {     // msg 

    HWND   hwnd;     

    UINT   message; 

    WPARAM wParam; 

    LPARAM lParam; 

    DWORD  time; 

    POINT  pt; 

} MSG;

这时我们就可以对我们感兴趣的消息进行处理了：

	LPMSG pMsg = (LPMSG) lParam;

	if ( pMsg->message == WM_DESTROY )

		::SendMessage( gs_hServer, pMsg->message, pMsg->wParam, pMsg->lParam );

在消息处理的程序：
创建MSAgent的接口，你要对COM的基本知识有一点理解才行哦。
我在这里只是说出简短的创建步骤，详细建立过程请阅读源代码：

1. 初始化COM CoInitialize( NULL )
2. 创造实例 CoCreateInstance()
3. 利用 IUnknown 指针访问接口 PUnk->QueryInterface()
4. 使用COM对象中的功能
5. 关闭COM

好了，我已经建立了主要的框架，剩下来的我只要处理我想要感兴趣的消息就可以了，建立步骤为：
　

1. 在处理消息的主程序中加入消息映谢宏。
2. 建立处理消息的函数。

　　 我利用的是VC 所附带的Spy 工具，它可以帮我截取我所想要的所有消息，详细的使用可以查一查MSDN， 没有MSDN 可真的是寸步难行的。
　　 我的程序中只是截取窗口的关闭消息，之后弹出一个对话框，而MSAgent 的反应就由你来决定吧， (注：请先运行MSWord后再运行程序。)
所附程序中有MSAgent 的动作说明。

图一 图像描述

有什么问题请与我联系，别人的鼓励是我的进步动力!
　

下载本文示例代码


如何在MSWord中加入MSAgent如何在MSWord中加入MSAgent如何在MSWord中加入MSAgent如何在MSWord中加入MSAgent如何在MSWord中加入MSAgent如何在MSWord中加入MSAgent如何在MSWord中加入MSAgent如何在MSWord中加入MSAgent如何在MSWord中加入MSAgent如何在MSWord中加入MSAgent如何在MSWord中加入MSAgent如何在MSWord中加入MSAgent