ATL 服务程序

1. 新建项目。

1-1. 启动Visual Studio 2008。选择File -> New -> Project...。

1-2. 在New Project 对话框中，选择Visual C++ 中的ATL Project 模板，写入项目名称：ShowjiSvc，点OK。

1-3. 在打开的ATL Project Wizard - ShowjiSvc 中，点Application Settings，选择Server type 为

Service(EXE)，点Finish。

2. 安装、卸载服务。

2-1. 编译项目。

2-2. 打开命令提示符，切换到编译后的目录，执行以下命令安装服务：

ShowjiSvc /Service

2-3. 打开服务管理，能找到一个名为ShowjiSvc 的服务，启动类型是Manual。可以启动服务、停止服务。2-4. 停止服务，然后用以下命令卸载服务：

ShowjiSvc /UnRegServer

3. 修改服务的配置。

3-1. 修改服务名称：

在Resource View 中打开String Table，修改IDS_SERVICENAME 的Caption 为服务的名称：Showji Mobile Service。

3-2. 修改服务的描述：

打开ShowjiSvc.cpp 文件，在CShowjiSvcModule 的声明中增加以下函数声明：

HRESULT RegisterAppId(bool bService);

再增加此函数的定义：

HRESULT CShowjiSvcModule::RegisterAppId(bool bService = false) throw()

{

HRESULT hr = S_OK;

BOOL res = __super::RegisterAppId(bService);

if (bService)

{

if (IsInstalled())

{

SC_HANDLE hSCM = ::OpenSCManagerW(NULL, NULL, SERVICE_CHANGE_CONFIG);

SC_HANDLE hService = NULL;

if (hSCM == NULL)

hr = AtlHresultFromLastError();

else

{

hService = ::OpenService(hSCM, m_szServiceName, SERVICE_CHANGE_CONFIG);

if (hService != NULL)

{

::ChangeServiceConfig(hService, SERVICE_NO_CHANGE,

SERVICE_AUTO_START,// 修改服务为自动启动

NULL, NULL, NULL, NULL, NULL, NULL, NULL,

m_szServiceName); // 通过修改资源IDS_SERVICENAME 修改服务的显示名字

SERVICE_DESCRIPTION Description;

TCHAR szDescription[1024];

ZeroMemory(szDescription, 1024);

ZeroMemory(&Description, sizeof(SERVICE_DESCRIPTION));

lstrcpy(szDescription, _T("https://www.360docs.net/doc/401097326.html,示例服务，by yangwei@https://www.360docs.net/doc/401097326.html,"));

Description.lpDescription = szDescription;

::ChangeServiceConfig2(hService, SERVICE_CONFIG_DESCRIPTION,

&Description);

::CloseServiceHandle(hService);

}

else

hr = AtlHresultFromLastError();

::CloseServiceHandle(hSCM);

}

}

}

return hr;

}

3-3. 测试修改后的服务。

重新注册服务，在服务管理器中可以看到服务的新名称和描述，并且启动状态已经修改为Automatic。

测试成功后，注销服务。

4. 修改服务的进程安全设置。

打开ShowjiSvc.cpp，在CShowjiSvcModule 的声明中，找到InitializeSecurity 函数，修改如下：HRESULT InitializeSecurity() throw()

{

return CoInitializeSecurity( NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_NONE,

RPC_C_IMP_LEVEL_IDENTIFY, NULL, EOAC_NONE, NULL );

}

要根据自己的情况，做相关的安全性设置。如果没有什么特殊的安全性要求，就按照上面的格式写就行了。如果没有设置进程安全性的代码，那么VC 客户端创建对象的时候，会返回E_ACCESSDENIED 的错误。VB 客户端的错误提示如下：

实时错误'70': 拒绝的权限（Run-time error '70': Permission denied）。

5. 增加服务的初始化和释放操作。

打开ShowjiSvc.cpp，在CShowjiSvcModule 的声明中，增加以下声明：HRESULT PreMessageLoop(int nShowCmd);

HRESULT PostMessageLoop();

增加以上声明的相关定义：

HRESULT CShowjiSvcModule::PreMessageLoop(int nShowCmd) throw() {

HRESULT hr = __super::PreMessageLoop(nShowCmd);

if (SUCCEEDED(hr))

{

// Add any custom code to initialize your service

}

return hr;

}

HRESULT CShowjiSvcModule::PostMessageLoop() throw()

{

HRESULT hr = __super::PostMessageLoop();

if (SUCCEEDED(hr))

{

// Add any custom code to uninitialize your service

}

return hr;

}

在相关的描述位置增加自己的代码即可。

6. 为服务增加一个叫做MyMath 的示例组件。

6-1. 选中ShowjiSvc 项目，点菜单Project -> Add Class...，选择ATL 中的ATL Simple Object，点Add。6-2. 在打开的ATL Simple Object Wizard - ShowjiSvc 对话框的Short name 中写入组件名称：MyMath。其它名称会自动填好（当然您也可以修改）。

6-3. 在Option 中可以看到许多选项。如果您搞不懂这些，就保留默认值吧（建议看一下COM 的相关书籍）。

6-4. 打开MyMath.rgs，为组件增加服务程序的ID(代码中的红色粗体部分)：

HKCR

{

ShowjiSvc.MyMath.1 = s 'M yMath Class'

{

CLSID = s '{37F47E87-7D33-43CD-B591-DA01023F90BC}'

}

ShowjiSvc.MyMath = s 'M yMath Class'

{

CLSID = s '{37F47E87-7D33-43CD-B591-DA01023F90BC}'

CurVer = s 'ShowjiSvc.MyMath.1'

}

NoRemove CLSID

{

ForceRemove {37F47E87-7D33-43CD-B591-DA01023F90BC} = s 'M yMath Class'

{

ProgID = s 'ShowjiSvc.MyMath.1'

VersionIndependentProgID = s 'ShowjiSvc.MyMath'

ForceRemove 'Programmable'

LocalServer32 = s '%MODULE%'

val AppID = s '%APPID%'

'TypeLib' = s '{55E58774-E86F-4482-A521-38AE8C85FD1D}'

}

}

}

AppID 必须设置，否则客户端创建对象的时候会超时并报错误：80080005 server execution failed。

并且，系统日志中会出现一个错误：The server {uuid} did not register with DCOM within the required timeout. VB 客户端的错误提示如下：

实时错误'429': ActiveX 部件不能创建对象（Run-time error '429': ActiveX component can't create object）。

7. 为MyMath 组件增加一个方法。

7-1. 在Class View 中，右击IMyMath，选择Add -> Add Method...。

7-2. 在打开的Add Method Wizard - ShowjiSvc 对话框中，输入Method name: Sum；

Parameter type 选择LONG，Parameter name 写a，Parameter attributes 选择in，点一下Add；Parameter type 选择LONG，Parameter name 写b，Parameter attributes 选择in，点一下Add；Parameter type 选择LONG*，Parameter name 写s，Parameter attributes 选择retval，点一下Add；

点Finish 添加这个方法。

7-3. 打开MyMath.cpp 文件，找到Sum 方法，修改如下：

STDMETHODIMP CMyMath::Sum(LONG a, LONG b, LONG* s)

{

*s = a + b;

return S_OK;

}

8. 编译、注册、启动服务。

8-1. 编译代码。

8-2. 注册服务，执行以下命令行代码：

ShowjiSvc /Service

8-3. 启动服务，执行以下命令行代码：

net start "Showji Mobile Service"

当然，也可以在服务管理器中启动服务。

相对应的停止服务的命令是：

net stop "Showji Mobile Service"

9. 客户端访问测试（用VB6 举例）。

9-1. 打开Visual Basic 6.0。

9-2. 新建“标准EXE”工程。

9-3. 点菜单：工程-> 引用...，找到ShowjiSvc 1.0 Type Library 并勾选，点确定。

9-4. 双击Form1 窗体，进入代码模式，输入以下代码：

Private Sub Form_Load()

Dim math As ShowjiSvcLib.MyMath

Set math = New ShowjiSvcLib.MyMath

MsgBox math.Sum(10, 19)

Set math = Nothing

End Sub

执行后可以看到，VB 正常初始化了系统服务中的COM 对象，并调用了其中的方法。

10. 部署。

要将项目部署到其它电脑，需要安装Microsoft Visual C++ 2008 Redistributable Package，否则会提示错误：系统无法执行指定的程序（The system cannot execute the specified program.）。

安装“-service”的，卸载用“-UnRegServer”

下面介绍使用VC++开发Windows服务程序。

首先运行VC++6，选择新建工程，在出现的下面窗口中选择”A TL COM AppWizard“，并选择工程放置位置和相应的工程名，然后选择确定按钮。

此时出现如下图窗口界面，在此界面中选择”服务（EXE）“，然后选择完成按钮。

在接下来的窗口中选择确定按钮。

则VC完成向导并生成相应代码（效果如下）。

程序的进入点是全局函数_tWinMain, 仔细看一下这个函数,我们会发现当我们运行程序时,可以加上参数,例如: winsvr /RegServer 或者winsvr -RegServer，这个是用来本地服务器注册（Register as Local S Register as Service erver）。

其中winsvr / Service 或者winsvr -Service，这个是服务的注册（Register as Service）；winsvr /UnRegServer 或者winsvr -UnRegServer ，这个是服务的删除。

所以，当我们写好了服务程序，只要运行的时候加上参数Service ,这个时候在SCM中就会看到我们的服务了。

每次编码后测试都要在命令行中加参数运行服务才可以在SCM中列出来这样很麻烦，因此可以采用如下方式来处理：选择VC IDE的菜单工程-> 设置, 再选择自定义组建面板（如下图所示）

在"$(TargetPath)" /RegServer的下面加上："$(TargetPath)" /Service，这样当我们每次编码后编译程序，就不用再在命令行中去加参数执行我们的服务程序完成服务的注册了。

同时通过界面我们也看到，向导为我们建立了一个类：CServiceModule，全局变量_Module就是这个类的实例。

Init()：这个函数用于完成一些初始化工作；

Run()：这个函数就是服务开始运行后的内容，我们接下来要修改的内容也就是从这里入手。

Install()：有如下一段代码

SC_HANDLE hService = ::CreateService(

hSCM, m_szServiceName, m_szServiceName,

SERVICE_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS,

SERVICE_DEMAND_START, SERVICE_ERROR_NORMAL,

szFilePath, NULL, NULL, _T("RPCSS\0"), NULL, NULL);

注意：如果服务中启动的程序具有窗口（即具有交互功能则要求使用如下代码）

SC_HANDLE hService = ::CreateService(

hSCM, m_szServiceName, m_szServiceName,

SERVICE_ALL_ACCESS, SERVICE_WIN32_SHARE_PROCESS | SERVICE_INTERACTIVE_PROCESS,

SERVICE_AUTO_START, SERVICE_ERROR_NORMAL,

szFilePath, NULL, NULL, _T("RPCSS\0"), NULL, NULL);

这个CreateService函数原先如下：

SC_HANDLE CreateService(

SC_HANDLE hSCManager, // handle to SCM database

LPCTSTR lpServiceName, // name of service to start

LPCTSTR lpDisplayName, // display name

DWORD dwDesiredAccess, // type of access to service

DWORD dwServiceType, // type of service

DWORD dwStartType, // when to start service

DWORD dwErrorControl, // severity of service failure

LPCTSTR lpBinaryPathName, // name of binary file

LPCTSTR lpLoadOrderGroup, // name of load ordering group

LPDWORD lpdwTagId, // tag identifier

LPCTSTR lpDependencies, // array of dependency names

LPCTSTR lpServiceStartName, // account name

LPCTSTR lpPassword // account password

);

第六个参数是服务的启动类型。

SERVICE_DEMAND_START是手动启动，SERVICE_AUTO_START是自动启动。

第十一个参数是服务的依存关系，比如说服务的启动想要依存SQL Server的启动，那我们可以把这个参数写成：

_T("MSSQLSERVER\0")；

如果我们写的服务不依存于其他的任何服务，那我们就将此参数设置为NULL就可以了。

接下来我们实现我们需要实现的业务。

首先，我们在类CServiceModule中找到Run函数，并在Run函数中找到以下代码：MSG msg;

while (GetMessage(&msg, 0, 0, 0))

DispatchMessage(&msg);

并在此代码前加入自己的代码，我这里加入的代码：CustomFunc1（）。

这里对应不同应用有不同写法：

1、如果要启动一个窗口进行交互，则代码如下：

定义两个成员函数CustomFunc1和CustomFunc2

void CServiceModule::CustomFunc1()

{

TCHAR szFilePath[MAX_PA TH + 1];

GetModuleFileName(NULL, szFilePath, MAX_PA TH);

(_tcsrchr(szFilePath, _T('\\')))[1] = 0; //删除文件名，只获得路径

CString str_url = szFilePath;

str_url=str_url+"B.exe";

LogEvent("运行程序："+str_url);

UINT rtn=WinExec(str_url,SW_SHOW );

//UINT rtn=WinExec("c:\\windows\\system32\\cmd.exe",SW_SHOWNORMAL);

if(rtn>31){

LogEvent("调用成功");

}

else{

if(rtn==0){

LogEvent("内存不足");

}

else{

if(rtn==ERROR_BAD_FORMA T){ //ERROR_BAD_FORMA T = 11

LogEvent("EXE 文件无效");

}

else{

if(rtn==ERROR_FILE_NOT_FOUND){ //ERROR_FILE_NOT_FOUND = 2 LogEvent("文件名错误");

}

else{

if(rtn==ERROR_PATH_NOT_FOUND){ //ERROR_PA TH_NOT_FOUND = 3 LogEvent("路径名错误");

}

else{

LogEvent("发生其它错误");

}

}

}

}

}

}

BOOL CServiceModule::CustomFunc2()

{

HDESK hdeskCurrent;

HDESK hdesk;

HWINSTA hwinstaCurrent;

HWINSTA hwinsta;

hwinstaCurrent = GetProcessWindowStation();

if (hwinstaCurrent == NULL){

LogEvent(_T("get window station err"));

return FALSE;

}

hdeskCurrent = GetThreadDesktop(GetCurrentThreadId());

if (hdeskCurrent == NULL){

LogEvent(_T("get window desktop err"));

return FALSE;

}

//打开winsta0

hwinsta = OpenWindowStation("winsta0", FALSE,

WINSTA_ACCESSCLIPBOARD |

WINSTA_ACCESSGLOBALA TOMS |

WINSTA_CREA TEDESKTOP |

WINSTA_ENUMDESKTOPS |

WINSTA_ENUMERA TE |

WINSTA_EXITWINDOWS |

WINSTA_READA TTRIBUTES |

WINSTA_READSCREEN |

WINSTA_WRITEATTRIBUTES);

if (hwinsta == NULL){

LogEvent(_T("open window station err"));

return FALSE;

}

if (!SetProcessWindowStation(hwinsta)){

LogEvent(_T("Set window station err"));

return FALSE;

}

//打开desktop

hdesk = OpenDesktop("default", 0, FALSE,

DESKTOP_CREATEMENU |

DESKTOP_CREATEWINDOW |

DESKTOP_ENUMERA TE |

DESKTOP_HOOKCONTROL |

DESKTOP_JOURNALPLAYBACK |

DESKTOP_JOURNALRECORD |

DESKTOP_READOBJECTS |

DESKTOP_SWITCHDESKTOP |

DESKTOP_WRITEOBJECTS);

if (hdesk == NULL){

LogEvent(_T("Open desktop err"));

return FALSE;

}

SetThreadDesktop(hdesk);

CustomFunc1();

if (!SetProcessWindowStation(hwinstaCurrent)) return FALSE;

if (!SetThreadDesktop(hdeskCurrent))

return FALSE;

if (!CloseWindowStation(hwinsta))

return FALSE;

if (!CloseDesktop(hdesk))

return FALSE;

return TRUE;

}

2、无交互窗口，则代码如下：

void CServiceModule::CustomFunc1(){

LogEvent(_T("Custorm Function Invoked")); //这里可以改成任何你需要的代码，当然不能有显示窗口之内的代码，要显示窗口之内代码请采用上面方法1。

}

现在可以编译并执行程序了。

此时会编译时会报告一个错误：'CString' : undeclared identifier。

这时需要查看工程的一些设置：

菜单工程->设置，常规面板，默认的设置是：使用MFC作为静态连接库。如果是这个设置则做如下工作：然后我们打开StdAfx.h文件，并找到#include 位置，并在它之前加入#include 。重新编译可以了。

如果需要修改出现在scm中的服务名，可以在工程中找到资源文件中的IDS_SERVICENAME项的内容就可以了。

注意：编译好了的程序需要在控制台中输入如下指令

1、注册服务

winsvr /regserver

winsvr /service //此条指令十分重要，如果不执行则在scm中是看不到此服务的

2、注销服务

winsvr /unregserver