diff --git a/DDTestService/App.config b/DDTestService/App.config deleted file mode 100644 index 731f6de6..00000000 --- a/DDTestService/App.config +++ /dev/null @@ -1,6 +0,0 @@ - - - - - - \ No newline at end of file diff --git a/DDTestService/DDTestService.vbproj b/DDTestService/DDTestService.vbproj deleted file mode 100644 index a0c8dbf5..00000000 --- a/DDTestService/DDTestService.vbproj +++ /dev/null @@ -1,141 +0,0 @@ - - - - - Debug - AnyCPU - {63B0EAA3-8BF5-46DA-9040-15E781F4C3B1} - WinExe - DDTestService.MyNewService - DDTestService - DDTestService - 512 - Console - v4.6.1 - true - - - AnyCPU - true - full - true - true - bin\Debug\ - DDTestService.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - AnyCPU - pdbonly - false - true - true - bin\Release\ - DDTestService.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - On - - - Binary - - - Off - - - On - - - - ..\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll - - - - ..\packages\NLog.4.6.7\lib\net45\NLog.dll - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - True - Application.myapp - - - Component - - - MyNewService.vb - - - - True - True - Resources.resx - - - True - Settings.settings - True - - - ProjectInstaller.vb - - - Component - - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - MyNewService.vb - - - ProjectInstaller.vb - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - - - - \ No newline at end of file diff --git a/DDTestService/My Project/Application.Designer.vb b/DDTestService/My Project/Application.Designer.vb deleted file mode 100644 index 88dd01c7..00000000 --- a/DDTestService/My Project/Application.Designer.vb +++ /dev/null @@ -1,13 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - diff --git a/DDTestService/My Project/Application.myapp b/DDTestService/My Project/Application.myapp deleted file mode 100644 index 602de37e..00000000 --- a/DDTestService/My Project/Application.myapp +++ /dev/null @@ -1,10 +0,0 @@ - - - false - false - 0 - true - 0 - 3 - true - diff --git a/DDTestService/My Project/AssemblyInfo.vb b/DDTestService/My Project/AssemblyInfo.vb deleted file mode 100644 index 4df2c474..00000000 --- a/DDTestService/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,35 +0,0 @@ -Imports System -Imports System.Reflection -Imports System.Runtime.InteropServices - -' Allgemeine Informationen über eine Assembly werden über die folgenden -' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, -' die einer Assembly zugeordnet sind. - -' Werte der Assemblyattribute überprüfen - - - - - - - - - - -'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird. - - -' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: -' -' Hauptversion -' Nebenversion -' Buildnummer -' Revision -' -' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden, -' übernehmen, indem Sie "*" eingeben: -' - - - diff --git a/DDTestService/My Project/Resources.Designer.vb b/DDTestService/My Project/Resources.Designer.vb deleted file mode 100644 index 661e32fb..00000000 --- a/DDTestService/My Project/Resources.Designer.vb +++ /dev/null @@ -1,62 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My.Resources - - 'This class was auto-generated by the StronglyTypedResourceBuilder - 'class via a tool like ResGen or Visual Studio. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. - ''' - ''' A strongly-typed resource class, for looking up localized strings, etc. - ''' - _ - Friend Module Resources - - Private resourceMan As Global.System.Resources.ResourceManager - - Private resourceCulture As Global.System.Globalization.CultureInfo - - ''' - ''' Returns the cached ResourceManager instance used by this class. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DDTestService.Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Overrides the current thread's CurrentUICulture property for all - ''' resource lookups using this strongly typed resource class. - ''' - _ - Friend Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set(ByVal value As Global.System.Globalization.CultureInfo) - resourceCulture = value - End Set - End Property - End Module -End Namespace diff --git a/DDTestService/My Project/Resources.resx b/DDTestService/My Project/Resources.resx deleted file mode 100644 index af7dbebb..00000000 --- a/DDTestService/My Project/Resources.resx +++ /dev/null @@ -1,117 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/DDTestService/My Project/Settings.Designer.vb b/DDTestService/My Project/Settings.Designer.vb deleted file mode 100644 index eea8050b..00000000 --- a/DDTestService/My Project/Settings.Designer.vb +++ /dev/null @@ -1,73 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - - -Namespace My - - _ - Partial Friend NotInheritable Class MySettings - Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) - -#Region "My.Settings Auto-Save Functionality" -#If _MyType = "WindowsForms" Then - Private Shared addedHandler As Boolean - - Private Shared addedHandlerLockObject As New Object - - _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) - If My.Application.SaveMySettingsOnExit Then - My.Settings.Save() - End If - End Sub -#End If -#End Region - - Public Shared ReadOnly Property [Default]() As MySettings - Get - -#If _MyType = "WindowsForms" Then - If Not addedHandler Then - SyncLock addedHandlerLockObject - If Not addedHandler Then - AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings - addedHandler = True - End If - End SyncLock - End If -#End If - Return defaultInstance - End Get - End Property - End Class -End Namespace - -Namespace My - - _ - Friend Module MySettingsProperty - - _ - Friend ReadOnly Property Settings() As Global.DDTestService.My.MySettings - Get - Return Global.DDTestService.My.MySettings.Default - End Get - End Property - End Module -End Namespace diff --git a/DDTestService/My Project/Settings.settings b/DDTestService/My Project/Settings.settings deleted file mode 100644 index 85b890b3..00000000 --- a/DDTestService/My Project/Settings.settings +++ /dev/null @@ -1,7 +0,0 @@ - - - - - - - diff --git a/DDTestService/MyNewService.Designer.vb b/DDTestService/MyNewService.Designer.vb deleted file mode 100644 index 8a6ac129..00000000 --- a/DDTestService/MyNewService.Designer.vb +++ /dev/null @@ -1,53 +0,0 @@ -Imports System.ServiceProcess - - -Partial Class MyNewService - Inherits System.ServiceProcess.ServiceBase - - 'UserService überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - - 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 - - ' Der Haupteinstiegspunkt für den Prozess - - - Shared Sub Main() - Dim ServicesToRun() As System.ServiceProcess.ServiceBase - - ' Innerhalb eines Prozesses können mehrere NT-Dienste ausgeführt werden. Um einen - ' weiteren Dienst zu diesem Prozess hinzuzufügen, ändern Sie die folgende Zeile, - ' um ein zweites Dienstobjekt zu erstellen. Zum Beispiel - ' - ' ServicesToRun = New System.ServiceProcess.ServiceBase () {New MyNewService, New MySecondUserService} - ' - ServicesToRun = New System.ServiceProcess.ServiceBase() {New MyNewService} - - System.ServiceProcess.ServiceBase.Run(ServicesToRun) - End Sub - - 'Wird vom Komponenten-Designer benötigt. - Private components As System.ComponentModel.IContainer - - ' Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. - ' Das Bearbeiten ist mit dem Komponenten-Designer möglich. - ' Das Bearbeiten mit dem Code-Editor ist nicht möglich. - - Private Sub InitializeComponent() - ' - 'MyNewService - ' - Me.CanPauseAndContinue = True - Me.CanShutdown = True - Me.ServiceName = "MyNewService" - - End Sub - -End Class diff --git a/DDTestService/MyNewService.resx b/DDTestService/MyNewService.resx deleted file mode 100644 index e5858cc2..00000000 --- a/DDTestService/MyNewService.resx +++ /dev/null @@ -1,123 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - False - - \ No newline at end of file diff --git a/DDTestService/MyNewService.vb b/DDTestService/MyNewService.vb deleted file mode 100644 index b0e63eb7..00000000 --- a/DDTestService/MyNewService.vb +++ /dev/null @@ -1,95 +0,0 @@ -Imports System.ComponentModel -Imports DigitalData.Modules.Logging -Imports NLog -Public Class MyNewService - Dim MyLogger1 As LogConfig - Shared Logger1 As NLog.Logger - Dim MyLogger2 As LogConfig - Shared Logger2 As NLog.Logger - Public Shared threadRunner1 As BackgroundWorker - - Private eventId As Integer = 1 - Protected Overrides Sub OnStart(ByVal args() As String) - - - - ' '#Thread für Durchlauf generieren - threadRunner1 = New BackgroundWorker() - threadRunner1.WorkerReportsProgress = True - threadRunner1.WorkerSupportsCancellation = True - AddHandler threadRunner1.DoWork, AddressOf RUN_THREAD - AddHandler threadRunner1.RunWorkerCompleted, AddressOf Thread_Completed - - ' '### Den Timer generieren - Dim Timer1 As New System.Timers.Timer() - 'Das Event hinterlegen welches bei "Tick" ausgelöst wird - AddHandler Timer1.Elapsed, AddressOf Thread1_Run - ' Set the Interval - Timer1.Interval = 10000 - 'ClassLogger.Add("Timer - Intervall: " & clsSQLITE.konf_intervall & " Minuten", False) - Timer1.Enabled = True - MyLogger1 = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "Log1") - Logger1 = MyLogger1.LogFactory.GetCurrentClassLogger() - MyLogger2 = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "Log2") - Logger2 = MyLogger2.LogFactory.GetCurrentClassLogger() - Logger1.Info("Timer gestartet") - ' Und den Durchlauf das erste Mal starten - threadRunner1.RunWorkerAsync() - - ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge - ' ausführen, damit der Dienst gestartet werden kann. - - - ' clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler") - Logger1.Info("Service started") - Logger2.Info("Service started") - ' Set up a timer to trigger every minute. - Dim timer As System.Timers.Timer = New System.Timers.Timer() - timer.Interval = 12000 ' 12 seconds - AddHandler timer.Elapsed, AddressOf Me.OnTimer1 - timer.Start() - - End Sub - Private Sub RUN_THREAD() - ' TODO: Insert monitoring activities here. - Logger1.Info("RUN_THREAD - Monitoring the System - eventId: " & eventId) - End Sub - Public Shared Sub Thread1_Run() - If Not threadRunner1.IsBusy Then - threadRunner1.RunWorkerAsync() - End If - End Sub - Private Shared Sub Thread_Completed(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted - ' This event fires when the DoWork event completes - Try - Dim result As String = "" - If e.Cancelled Then - Logger1.Warn("Der Process wurde durch den Anwender abgebrochen") - ElseIf e.Error IsNot Nothing Then - Logger1.Warn("Fehler bei Durchlauf. Der Vorgang wird abgebrochen: " & e.Error.Message) - End If - - Catch ex As Exception - EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in Thread_Completed: " & ex.ToString(), EventLogEntryType.Error) - End Try - End Sub - Private Sub OnTimer1(sender As Object, e As Timers.ElapsedEventArgs) - ' TODO: Insert monitoring activities here. - Logger2.Info("OnTimer1 - Monitoring the System - eventId: " & eventId) - eventId = eventId + 1 - End Sub - - Protected Overrides Sub OnStop() - ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen. - Logger1.Info("Service stopped") - Logger2.Info("Service stopped") - End Sub - Protected Overrides Sub OnPause() - Logger1.Info("In OnPause...") - Logger2.Info("In OnPause...") - End Sub - Protected Overrides Sub OnContinue() - Logger1.Info("In OnContinue...") - Logger2.Info("In OnContinue...") - End Sub -End Class diff --git a/DDTestService/ProjectInstaller.Designer.vb b/DDTestService/ProjectInstaller.Designer.vb deleted file mode 100644 index 86fb8200..00000000 --- a/DDTestService/ProjectInstaller.Designer.vb +++ /dev/null @@ -1,46 +0,0 @@ - Partial Class ProjectInstaller - Inherits System.Configuration.Install.Installer - - 'Installer überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. - _ - 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 - - 'Wird vom Komponenten-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. - 'Das Bearbeiten ist mit dem Komponenten-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller() - Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller() - ' - 'ServiceProcessInstaller1 - ' - Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalService - Me.ServiceProcessInstaller1.Password = Nothing - Me.ServiceProcessInstaller1.Username = Nothing - ' - 'ServiceInstaller1 - ' - Me.ServiceInstaller1.Description = "TestService für testzwecke" - Me.ServiceInstaller1.ServiceName = "MyNewService" - ' - 'ProjectInstaller - ' - Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1}) - - End Sub - - Friend WithEvents ServiceProcessInstaller1 As ServiceProcess.ServiceProcessInstaller - Friend WithEvents ServiceInstaller1 As ServiceProcess.ServiceInstaller -End Class diff --git a/DDTestService/ProjectInstaller.resx b/DDTestService/ProjectInstaller.resx deleted file mode 100644 index 323abb16..00000000 --- a/DDTestService/ProjectInstaller.resx +++ /dev/null @@ -1,129 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 17, 17 - - - 197, 17 - - - False - - \ No newline at end of file diff --git a/DDTestService/ProjectInstaller.vb b/DDTestService/ProjectInstaller.vb deleted file mode 100644 index 733dfc0c..00000000 --- a/DDTestService/ProjectInstaller.vb +++ /dev/null @@ -1,16 +0,0 @@ -Imports System.ComponentModel -Imports System.Configuration.Install - -Public Class ProjectInstaller - - Public Sub New() - MyBase.New() - - 'Dieser Aufruf ist für den Komponenten-Designer erforderlich. - InitializeComponent() - - 'Initialisierungscode nach dem Aufruf von InitializeComponent hinzufügen - - End Sub - -End Class diff --git a/DDTestService/packages.config b/DDTestService/packages.config deleted file mode 100644 index 99e34262..00000000 --- a/DDTestService/packages.config +++ /dev/null @@ -1,4 +0,0 @@ - - - - \ No newline at end of file