Find all our projects in development below.
All source code is GNU General Public License (GPL)
Browsing svcMain.Designer.vb (2.70 KB)
Imports System.ServiceProcess
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class svcMain
Inherits System.ServiceProcess.ServiceBase
'UserService overrides dispose to clean up the component list.
<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
' The main entry point for the process
<MTAThread()> _
<System.Diagnostics.DebuggerNonUserCode()> _
Shared Sub Main()
Dim ServicesToRun() As System.ServiceProcess.ServiceBase
' More than one NT Service may run within the same process. To add
' another service to this process, change the following line to
' create a second service object. For example,
'
' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
'
ServicesToRun = New System.ServiceProcess.ServiceBase() {New svcMain}
System.ServiceProcess.ServiceBase.Run(ServicesToRun)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
' NOTE: The following procedure is required by the Component Designer
' It can be modified using the Component Designer.
' Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.timerMain = New System.Timers.Timer
Me.timerReport = New System.Timers.Timer
CType(Me.timerMain, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.timerReport, System.ComponentModel.ISupportInitialize).BeginInit()
'
'timerMain
'
Me.timerMain.Interval = 1000
'
'timerReport
'
Me.timerReport.Interval = 3600000
'
'svcMain
'
Me.ServiceName = "javaCron"
CType(Me.timerMain, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.timerReport, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Friend WithEvents timerMain As System.Timers.Timer
Public Sub New()
' This call is required by the Windows Form Designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
End Sub
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
Friend WithEvents timerReport As System.Timers.Timer
End Class