VB.NET编写的Windows服务带服务说明:

我们需要重写install函数:

 Public Overrides Sub install(ByVal statesaver As System.collections.IDictionary)

        MyBase.Install(statesaver)
        Dim sk As RegistryKey, ccsk As RegistryKey
        Dim ssk As RegistryKey, dk As RegistryKey
        sk = Registry.LocalMachine.OpenSubKey("system")
        ccsk = sk.opensubkey("currentcontrolset")
        ssk = ccsk.opensubkey("services")
        dk = ssk.opensubkey(Me.serviceinstaller1.servicename, True)
        dk.SetValue("description", "服务器自动数据监测组件，可以发送Email,监测主机的状态。接受远程重新启动命令！Create by CareF")
        dk.Close()
        ssk.close()
        ccsk.close()
        sk.close()
    End Sub