Meh

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

TSAnmeldung/Form1.resx

@@ -123,6 +123,9 @@
   <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>106, 17</value>
   </metadata>
+  <metadata name="TimerReport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>195, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

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

TSAnmeldung/My Project/Resources.Designer.vb

@@ -71,7 +71,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.0.1.0 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.0.1.2 ähnelt.
         '''</summary>
         Public ReadOnly Property ProgVersion() As String
             Get

TSAnmeldung/My Project/Resources.resx

@@ -122,7 +122,7 @@
     <value>..\Resources\LogOff20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ProgVersion" xml:space="preserve">
-    <value>1.0.1.0</value>
+    <value>1.0.1.2</value>
   </data>
   <data name="Reload20" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Reload20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>