diff --git a/TSAnmeldung/Form1.Designer.vb b/TSAnmeldung/Form1.Designer.vb
index 22bfc6c..307a354 100644
--- a/TSAnmeldung/Form1.Designer.vb
+++ b/TSAnmeldung/Form1.Designer.vb
@@ -30,6 +30,7 @@ Partial Class Main
Me.btnShutdown = New System.Windows.Forms.Button()
Me.cboxStandort = New System.Windows.Forms.ComboBox()
Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
+ Me.TimerReport = New System.Windows.Forms.Timer(Me.components)
Me.SuspendLayout()
'
'btnLogOFF
@@ -88,6 +89,11 @@ Partial Class Main
'
Me.Timer2.Interval = 5000
'
+ 'TimerReport
+ '
+ Me.TimerReport.Enabled = True
+ Me.TimerReport.Interval = 300000
+ '
'Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -116,4 +122,5 @@ Partial Class Main
Friend WithEvents btnShutdown As Button
Friend WithEvents cboxStandort As ComboBox
Friend WithEvents Timer2 As Timer
+ Friend WithEvents TimerReport As Timer
End Class
diff --git a/TSAnmeldung/Form1.resx b/TSAnmeldung/Form1.resx
index b85b40e..9a1e0ca 100644
--- a/TSAnmeldung/Form1.resx
+++ b/TSAnmeldung/Form1.resx
@@ -123,6 +123,9 @@
106, 17
+
+ 195, 17
+
diff --git a/TSAnmeldung/Form1.vb b/TSAnmeldung/Form1.vb
index 58fef8a..c07246b 100644
--- a/TSAnmeldung/Form1.vb
+++ b/TSAnmeldung/Form1.vb
@@ -276,6 +276,10 @@ Public Class Main
End Function
+ Private Sub TimerReport_Tick(sender As Object, e As EventArgs) Handles TimerReport.Tick
+ Report()
+ End Sub
+
Function getTeamViewerID()
Dim Reg As String = Nothing
If My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\TeamViewer", "ClientIDOfTSUser", Nothing) Is Nothing Then
diff --git a/TSAnmeldung/My Project/Resources.Designer.vb b/TSAnmeldung/My Project/Resources.Designer.vb
index bdc72fd..3507901 100644
--- a/TSAnmeldung/My Project/Resources.Designer.vb
+++ b/TSAnmeldung/My Project/Resources.Designer.vb
@@ -71,7 +71,7 @@ Namespace My.Resources
End Property
'''
- ''' Sucht eine lokalisierte Zeichenfolge, die 1.0.1.0 ähnelt.
+ ''' Sucht eine lokalisierte Zeichenfolge, die 1.0.1.2 ähnelt.
'''
Public ReadOnly Property ProgVersion() As String
Get
diff --git a/TSAnmeldung/My Project/Resources.resx b/TSAnmeldung/My Project/Resources.resx
index 5577cac..9bebec7 100644
--- a/TSAnmeldung/My Project/Resources.resx
+++ b/TSAnmeldung/My Project/Resources.resx
@@ -122,7 +122,7 @@
..\Resources\LogOff20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
- 1.0.1.0
+ 1.0.1.2
..\Resources\Reload20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a