You've already forked EventLogLoader
							
							
				mirror of
				https://github.com/romanlryji/EventLogLoader.git
				synced 2025-10-30 23:47:41 +02:00 
			
		
		
		
	
		
			
				
	
	
		
			49 lines
		
	
	
		
			2.2 KiB
		
	
	
	
		
			VB.net
		
	
	
	
	
	
			
		
		
	
	
			49 lines
		
	
	
		
			2.2 KiB
		
	
	
	
		
			VB.net
		
	
	
	
	
	
| Imports System.ServiceProcess
 | |
| 
 | |
| <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 | |
| Partial Class EventLogLoaderService
 | |
|     Inherits System.ServiceProcess.ServiceBase
 | |
| 
 | |
|     'UserService переопределяет метод Dispose для очистки списка компонентов.
 | |
|     <System.Diagnostics.DebuggerNonUserCode()> _
 | |
|     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
 | |
|         Try
 | |
|             If disposing AndAlso components IsNot Nothing Then
 | |
|                 components.Dispose()
 | |
|             End If
 | |
|         Finally
 | |
|             MyBase.Dispose(disposing)
 | |
|         End Try
 | |
|     End Sub
 | |
| 
 | |
|     ' Главная точка входа процесса
 | |
|     <MTAThread()> _
 | |
|     <System.Diagnostics.DebuggerNonUserCode()> _
 | |
|     Shared Sub Main()
 | |
|         Dim ServicesToRun() As System.ServiceProcess.ServiceBase
 | |
| 
 | |
|         ' В одном процессе может выполняться несколько служб NT. Для добавления
 | |
|         ' службы в процесс измените следующую строку,
 | |
|         ' чтобы создавался второй объект службы. Например,
 | |
|         '
 | |
|         '   ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
 | |
|         '
 | |
|         ServicesToRun = New System.ServiceProcess.ServiceBase() {New EventLogLoaderService}
 | |
| 
 | |
|         System.ServiceProcess.ServiceBase.Run(ServicesToRun)
 | |
|     End Sub
 | |
| 
 | |
|     'Является обязательной для конструктора компонентов
 | |
|     Private components As System.ComponentModel.IContainer
 | |
| 
 | |
|     ' Примечание: следующая процедура является обязательной для конструктора компонентов
 | |
|     ' Для ее изменения используйте конструктор компонентов.  
 | |
|     ' Не изменяйте ее в редакторе исходного кода.
 | |
|     <System.Diagnostics.DebuggerStepThrough()> _
 | |
|     Private Sub InitializeComponent()
 | |
|         components = New System.ComponentModel.Container()
 | |
|         Me.ServiceName = "EventLog loader service"
 | |
|     End Sub
 | |
| 
 | |
| End Class
 |