From 4a982be285e526bd58bc314519182083cd40b1f9 Mon Sep 17 00:00:00 2001 From: ms Date: Thu, 5 Dec 2019 08:39:10 +0100 Subject: [PATCH] Meh --- TSAnmeldung/Form1.Designer.vb | 7 +++++++ TSAnmeldung/Form1.resx | 3 +++ TSAnmeldung/Form1.vb | 4 ++++ TSAnmeldung/My Project/Resources.Designer.vb | 2 +- TSAnmeldung/My Project/Resources.resx | 2 +- 5 files changed, 16 insertions(+), 2 deletions(-) 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