Ｗｉｎｄｏｗｓ服務意外停止的對策

劉德軍

[摘要]針對Windows服務在運行過程中出現的意外停止的情況下實現無人值守定時檢測服務狀態，在服務停止后能自動啟動服務。

[關鍵詞]服務 意外停止 對策

中圖分類號：TP3文獻標識碼：A文章編號：1671－7597（2009）0520032－02

一、前言

系統服務，是指執行指定系統功能的程序、例程或進程，以便支持其他程序，尤其是低層(接近硬件)程序，它是Windows系統的一個重要組成部分。

我院在做醫院管理系統與醫療保險系統接口過程中使用到一個外加進系統的醫保服務,但該服務在實際使用過程中經常出現服務不定時的意外停止，該服務的停止必然導致門診住院醫保病員的就診不能正常進行，也給計算機中心的管理帶來了很大的挑戰，每次服務停止后都必須在服務器上用手工執行啟動后才能恢復正常，為恢復該服務必須到機房手工處理，有時甚至在深夜。針對這一情況，如何才能在無人值守的情況下實現對該服務做監視和啟動處理操作呢？經過多次摸索，終于成功地利用VB的API函數及系統的計劃任務配合實現在無人值守情況下服務的

自動監視和服務停止后的自動啟動。

二、方法簡介

要實現對停止的服務重新啟動，需要做到以下幾個功能：

1．定時處理：利用系統的任務計劃指定程序定時執行一次，執行處理完成后直接退出程序。

2．檢測服務狀態及重新啟動服務：利用API函數構建的類模塊實現對系統的服務狀態進行服務狀態的檢測及停止狀態下的再啟動操作。

3．文件的讀寫功能：用API函數實現對配置文件的讀取，用write函數實現將啟動服務事件以追加方式寫入到歷史

文件中。

三、程序實現

（一）準備工作

新建一個標準工程，名稱為[服務類]，在工程中創建一個窗體，名稱為[frmService]；在工程資源管理器中新建一個模塊，名稱為[mdlService]；在工程資源管理器中新建一個類模塊，名稱為[clsService]。如圖1所示。

（二）程序代碼

1．窗體代碼

Option Explicit

Private Sub Form_Load()

iniPath = App.Path + "service.ini"

Dim mySrv As New clsService

Dim tService As String

'取需處理的服務

tService = GetFromINI("需監控服務", "名稱", iniPath)

mySrv.Name = tService

'當前服務狀態，如處理停止狀態則做啟動處理，否則退出程序

If mySrv.GetServiceStatus = SERVICE_STOPPED Then

'如啟動服務正常，則寫入歷史文件中備查

If mySrv.StartNTService = 0 Then

Open App.Path + "服務歷史.txt" For Append Shared As #1

Write #1, Format(Now, "yyyy-mm-dd hh:mm:ss") & "-" & tService & "服務意外停止，已重新執行了啟動。"

Close #1

End If

End If

End

End Sub

2．模塊代碼

Option Explicit

Public iniPath As String

Public ServiceName As String

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

'取配置文件參數

Public Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String

Dim RetStr As String

RetStr = String(255, Chr(0))

GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))

End Function

3．類模塊代碼

Option Explicit

Private Const SC_MANAGER_CONNECT = &H1&

Private Const SERVICE_QUERY_STATUS = &H4&

Private Const SERVICE_START = &H10&

Public Enum SERVICE_START_TYPE

SERVICE_AUTO_START = 2&

SERVICE_DEMAND_START = 3&

SERVICE_DISABLED = &H4

End Enum

Public Enum SERVICE_STATE

SERVICE_STOPPED = &H1

SERVICE_START_PENDING = &H2

SERVICE_STOP_PENDING = &H3

SERVICE_RUNNING = &H4

SERVICE_CONTINUE_PENDING = &H5

SERVICE_PAUSE_PENDING = &H6

SERVICE_PAUSED = &H7

End Enum

Private Type SERVICE_STATUS

dwServiceType As Long

dwCurrentState As Long

dwControlsAccepted As Long

dwWin32ExitCode As Long

dwServiceSpecificExitCode As Long

dwCheckPoint As Long

dwWaitHint As Long

End Type

Private Declare Function OpenSCManager Lib "advapi32" Alias "OpenSCManagerW" _

(ByVal lpMachineName As Long, ByVal lpDatabaseName As Long, _

ByVal dwDesiredAccess As Long) As Long

Private Declare Function OpenService Lib "advapi32" Alias "OpenServiceW" _

(ByVal hSCManager As Long, ByVal lpServiceName As Long, _

ByVal dwDesiredAccess As Long) As Long

Private Declare Function QueryServiceStatus Lib "advapi32" (ByVal hService _

As Long, lpServiceStatus As SERVICE_STATUS) As Long

Private Declare Function CloseServiceHandle Lib "advapi32" _

(ByVal hSCObject As Long) As Long

Private Declare Function StartService Lib "advapi32" Alias "StartServiceW" _

(ByVal hService As Long, ByVal dwNumServiceArgs As Long, _

ByVal lpServiceArgVectors As Long) As Long

Private Service_Name As String

'查詢服務運行狀態,4運行，1停止

Public Function GetServiceStatus() As SERVICE_STATE

Dim hSCManager As Long, hService As Long, Status As SERVICE_STATUS

hSCManager = OpenSCManager(0&, 0&, SC_MANAGER_CONNECT)

If hSCManager Then

hService = OpenService(hSCManager, StrPtr(Service_Name), SERVICE_QUERY_STATUS)

If hService Then

If QueryServiceStatus(hService, Status) Then

GetServiceStatus = Status.dwCurrentState

End If

CloseServiceHandle hService

End If

CloseServiceHandle hSCManager

End If

End Function

'開始服務

Public Function StartNTService() As Long

Dim hSCManager As Long, hService As Long

hSCManager = OpenSCManager(0&, 0&, SC_MANAGER_CONNECT)

If hSCManager Then

hService = OpenService(hSCManager, StrPtr(Service_Name), SERVICE_START)

If hService Then

If StartService(hService, 0, 0) = 0 Then

StartNTService = Err.LastDllError

End If

CloseServiceHandle hService

Else

StartNTService = Err.LastDllError

End If

CloseServiceHandle hSCManager

Else

StartNTService = Err.LastDllError

End If

End Function

'服務名稱

Public Property Let Name(ByVal sSrvName As String)

Service_Name = sSrvName

End Property

（三）文件處理

新建一文本文件，改名為[Service.ini]，且[Service.ini]要與[服務類.exe]文件放在同一個目錄下，打開[Service.ini]文件在其中輸入如下內容（注：此處用Alerter代替）：

[需監控服務]

名稱=Alerter

（四）任務計劃處理

在“控制面板”中的“任務計劃”中添加該可執行文件[服務類.exe]即可，按提示設定完成后，再在新增的任務計劃中選擇“高級計劃選項”中選擇“重復任務”，指定每隔多長時間即運行一次即可。若業務要求響應快，時間間隔就小一些，否則就長一些，時間間隔可根據需要自定。

四、編程后記

通過上述程序，能自動實現服務意外停止后的啟動功能。該軟件在Windows XP+VB6(SP6)環境下調試運行通運行。