一个定时网络唤醒的Windows 2000服务（Service）程序

本文链接：https://blog.csdn.net/ilittlefat/article/details/17975

单位有两台服务器，一台的Bios中有定时启动的功能，而另外一台没有。所以每天早上到单位后第一件事情就是要去按一下这台服务器的电源开关来开机，不甚其烦！今天编写了一个定时网络唤醒的服务（Service）程序，安装在第一台服务器上，这样当第一台服务器启动后，如果到了时间，就会自动通过网络发送WakeOnLine（WOL）的广播包来唤醒另外一台服务器。

步骤：

启动Delphi，File－New－Other－Server Application，然后定义该Service的属性，如图：

保存文件名称为WakeOnlineSrv.pas，该单元的代码如下：

unit WakeOnlineSrv;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
WakeOnlineExecuteThread;

type
TWakeOnLineServer = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
    procedure ServicePause(Sender: TService; var Paused: Boolean);
    procedure ServiceContinue(Sender: TService; var Continued: Boolean);
private
    { Private declarations }
    ThdWakeOnline:TWakeOnline;
public
    function GetServiceController: TServiceController; override;
    { Public declarations }
end;

var
WakeOnLineServer: TWakeOnLineServer;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
WakeOnLineServer.Controller(CtrlCode);
end;

function TWakeOnLineServer.GetServiceController: TServiceController;
begin
Result:=ServiceController;
end;

procedure TWakeOnLineServer.ServiceStart(Sender: TService;
var Started: Boolean);
begin
//启动服务
ThdWakeOnline:=TWakeOnline.Create(False);
Started:=True;
end;

procedure TWakeOnLineServer.ServiceStop(Sender: TService;
var Stopped: Boolean);
begin
//停止服务
ThdWakeOnline.Terminate;
Stopped:=True;
end;

procedure TWakeOnLineServer.ServicePause(Sender: TService;
var Paused: Boolean);
begin
//暂停服务
ThdWakeOnline.Suspend;
Paused:=True;
end;

procedure TWakeOnLineServer.ServiceContinue(Sender: TService;
var Continued: Boolean);
begin
//恢复服务
ThdWakeOnline.Resume;
Continued:=True;
end;

end.

再从File－New－Other－Thread Object，新建一个单元文件，保存文件名称为WakeOnlineExecuteThread.pas，代码如下：

unit WakeOnlineExecuteThread;

interface

uses
Classes, IdUDPClient, SysUtils;

Const
WakeUpTime='07:50'; //Notice that Not 7:50!
StopSendTime='07:51';
TargetComputerMacAddress='00025556E5C5';

type
TWakeOnLine = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

var Sent:Boolean=False;

implementation

{ Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example,

Synchronize(UpdateCaption);

and UpdateCaption could look like,

    procedure WakeOnLine.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ WakeOnLine }

procedure TWakeOnLine.Execute;
var
MacAddr:String;
FUDP: TIdUDPClient;
SendCode:string;
I,J: Integer;
Bin: String[6];
begin
{ Place thread code here }
//线程终止时自动释放
Self.FreeOnTerminate:=True;
//发送标志
Sent:=False;
//如果线程没有被终止则运行下面的循环
while not Terminated do
begin
    //如果没有发送，并且已经到了发送的时间
    if (not Sent) and (Copy(FormatDateTime('hh:mm:ss',Now),1,5)=WakeUpTime) then
    begin
      //开始发送
      MacAddr:=TargetComputerMacAddress;

      FUDP:=TIdUDPClient.Create(nil);
      try
        FUDP.Port:=7;
        FUDP.Host:='10.10.10.2';
        FUDP.Active:=True;

HextoBin(PChar(MacAddr),@Bin,6);
SendCode:=StringofChar(#255,6);

        //填充缓冲区
        for I:=0 to 15 do
          for J:=0 to 5 do
            SendCode:=SendCode+Bin[J];

        //连续发送6次，保险啊。。。
        for I:=0 to 5 do
          FUDP.Broadcast(SendCode,7);

      finally
        FUDP.Free;
      end;

Sent:=True;

end else

    begin
      //如果已经发送，并且已经到了发送时间的下一分钟，则重置发送标志以备下一天还能发送
      if Sent and (Copy(FormatDateTime('hh:mm:ss',Now),1,5)=StopSendTime) then
         Sent:=False;

      //休息30秒，避免浪费资源
      Sleep(30000);
    end;

//如果有终止信号则终止
if Terminated then Break;

end;

end.

最后保存工程文件名称为WakeOnline.dpr，内容如下：

program WakeOnline;

uses
SvcMgr,
WakeOnlineSrv in 'WakeOnlineSrv.pas' {WakeOnLineServer: TService},
WakeOnlineExecuteThread in 'WakeOnlineExecuteThread.pas';

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TWakeOnLineServer, WakeOnLineServer);
Application.Run;
end.

给这个服务程序选择一个合适的图标，最后编译生成一个名称为WakeOnLine.Exe可执行文件。

到Cmd窗口去安装该服务程序：执行：WakeOnLine -install，会提示服务已经成功安装：