vb.net中windows服務的創建

2019-11-17 05:25:12

字體：大中小

來源：轉載

供稿：網友

無論windows服務執行什么樣的處理,創建與安裝服務的步驟都十分相似.visual studio提供了windows services項目類型,利用它可以迅速創建windows服務,一下介紹簡單的步驟:1)新建項目,在new PRoject對話框中,選擇windows服務圖標,在對話框name字段輸入服務名稱,確定.visual studio將顯示服務的設計視圖.2)在服務屬性里面進行設置:servicebase類的屬性如下:              a.autolog 獲得或設置指定服務是否在時間日志中自動報告start,stop,pause和contunue操作的布爾值              b.canhandlepowerevent 獲得或設置指定服務是否可以對應于電源狀態變化的布爾值,假如服務提供了onpowreevent方法,該屬性應設置為true,              c.canstop 獲得或設置服務是否可以停止的布爾值,假如提供了onstop方法,則設置為true              d.servicename 獲得或設置使系統識別服務的名稱編寫你的服務信息,例如:Imports System.ServiceProcess
Imports System.Threading
Imports System.Data.SqlClientPublic Class Service1
    Inherits System.ServiceProcess.ServiceBase
    Private Shared bstop As Boolean
    Private mythread As Thread
#Region " 組件設計器生成的代碼 "        '組件設計器所必需的
    Private components As System.ComponentModel.IContainer    '注重: 以下過程是組件設計器所必需的
    ' 可以使用組件設計器修改此過程。
    ' 不要使用代碼編輯器修改它。

    Private Sub startserver()
        bstop = False
        Dim OrderForm, ddh, matnrh As String
        Dim MyLocalDataReader As SqlDataReader
        Dim MyprdDataReader As SqlDataReader
        Dim mykc As SqlDataReader
        Dim kcsl, prdsl, tempsl As Long
        Dim flag As Boolean = False
        Dim mat As String
        Dim vrm As Long
        While Not bstop
            Try
                SqlCMDtemp.CommandText = "delete from tb_ty_cctemp"
                SqlCMDtemp.Connection = SqlConnection_local
                SqlCMDtemp.ExecuteNonQuery()
                If SqlCMDtemp.ExecuteNonQuery() = 0 Then
                    mythread.Sleep(180000)
                End If
          End While
                mythread.Sleep(180000)
            Catch ex As Exception
                bstop = True
            End Try
        End While
    End Sub
    Private Sub stopserver()
        Dim i As Integer = 0
        bstop = True
        Try
            SqlConnection_local.Close()
            SCMlocal.CommandText = "insert into MyServiceLog(vc_status,dt_created) values('服務關閉',getdate())"
            SqlConnection_local.Open()
            SCMlocal.Connection = SqlConnection_local
            i = SCMlocal.ExecuteNonQuery
        Catch ex As Exception
            bstop = True
        End Try
    End Sub
    Protected Overrides Sub OnStart(ByVal args() As String)
        ' 在此處添加啟動服務的代碼。此方法應設置具體的操作
        ' 以便服務可以執行它的工作。
        Dim i As Integer
        Try
            SqlConnection_local.Close()
            SCMlocal.CommandText = ""
            SCMlocal.CommandText = "insert into MyServiceLog(vc_status,dt_created) values('服務啟動',getdate())"
            SqlConnection_local.Open()
            SCMlocal.Connection = SqlConnection_local
            i = SCMlocal.ExecuteNonQuery
        Catch ex As Exception
            bstop = True
        End Try
        mythread = New Thread(AddressOf startserver)
        mythread.Start()
    End Sub
    Protected Overrides Sub OnPause()
        mythread.Suspend()
    End Sub
    Protected Overrides Sub OnContinue()
        mythread.Resume()
    End Sub
    Protected Overrides Sub OnStop()
        ' 在此處添加代碼以執行停止服務所需的關閉操作。
        Me.stopserver()
    End SubEnd Class假如需要把服務時間寫入windows事件日志,以下的代碼片斷使用eventlog對象把一個項放入application日志中:dim log as new eventlog("application")log.source="program name"log.writeentry("message to place into the event log")log.close添加安裝在設計視圖右擊,選擇添加安裝程序并進行相應的設置使用installutil程序進行安裝

上一篇：Asp.net定時控件

下一篇：vb.net實現一個自定義類數組的排序