edv/TSAnmeldung
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Meh

Browse Source
This commit is contained in:
ms
2019-12-05 08:39:10 +01:00
parent f704d3b440
commit 4a982be285
5 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
TSAnmeldung/Form1.Designer.vb generated
View File

@@ -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

3
TSAnmeldung/Form1.resx
View File

@@ -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>

4
TSAnmeldung/Form1.vb
View File

@@ -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

2
TSAnmeldung/My Project/Resources.Designer.vb generated
View File

@@ -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

2
TSAnmeldung/My Project/Resources.resx
View File

@@ -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>