01

2019-10-24 16:47:06 +02:00
parent d3f95ae877
commit 18e00e475d
18 changed files with 3423 additions and 0 deletions
--- a/Main.vb
+++ b/Main.vb
@@ -0,0 +1,85 @@
+Public Class TSUserReporter
+
+    Dim lastupdate As DateTime
+
+    Private Sub TSUserReporter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Routine()
+        FillLabel()
+    End Sub
+
+    Private Sub cmdGetLocalUser_Click(sender As Object, e As EventArgs) Handles cmdGetLocalUser.Click
+        Routine()
+    End Sub
+
+    Sub Routine()
+        cRes.LocalUser.FillWithLoggedOnUser()
+        cRes.LocalTeamviewerID = getregkey()
+
+        Report()
+        FillLabel()
+    End Sub
+
+    Function getregkey()
+        Dim Reg As String = Nothing
+        If My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\TeamViewer", "ClientIDOfTSUser", Nothing) Is Nothing Then
+            Reg = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\TeamViewer", "ClientID", Nothing)
+        Else
+            Reg = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\TeamViewer", "ClientIDOfTSUser", Nothing)
+        End If
+
+        Return Reg
+    End Function
+
+    Function Report()
+        lastupdate = Date.Now
+        Dim ds As New DataSet
+        cSQL.SQL2DS("select * from TbL_TSSitzungen where Benutzeranmeldename = '" & cRes.LocalUser.BenutzeranmeldeName & " ' ", ds)
+        If Not ds.Tables(0).Rows.Count = 0 Then
+            RemoveSitzung()
+        End If
+        cSQL.InsertSQL("TbL_TSSitzungen", "(Benutzeranmeldename, Name, TeamviewerID, LastReport, TSServer) VALUES (
+'" & cRes.LocalUser.BenutzeranmeldeName & "', 
+'" & cRes.LocalUser.Name & "',
+'" & cRes.LocalTeamviewerID & "',
+'" & Date.Now & "',
+'" & cRes.LocalUser.Hostname & "')")
+    End Function
+
+    Function FillLabel()
+        Label1.Text = ""
+        Label1.Text &= cRes.LocalUser.BenutzeranmeldeName & vbCrLf
+        Label1.Text &= cRes.LocalUser.Name & vbCrLf
+        Label1.Text &= cRes.LocalUser.Hostname & vbCrLf
+        Label1.Text &= "TeamviewerID: " & cRes.LocalTeamviewerID & vbCrLf
+        Label1.Text &= vbCrLf
+        Label1.Text &= "Letzte Aktualisierung:" & vbCrLf
+        Label1.Text &= lastupdate
+    End Function
+
+    Sub RemoveSitzung()
+        cSQL.DeleteSQL("TbL_TSSitzungen", "Benutzeranmeldename = '" & cRes.LocalUser.BenutzeranmeldeName & " ' ")
+    End Sub
+
+    Private Sub TSUserReporter_Closed(sender As Object, e As EventArgs) Handles Me.Closed
+        RemoveSitzung()
+    End Sub
+
+    Private Sub ReportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReportToolStripMenuItem.Click
+        Routine()
+    End Sub
+
+    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub ReporterAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReporterAnzeigenToolStripMenuItem.Click
+        Me.Show()
+        Me.WindowState = WindowState.Normal
+        Me.Show()
+    End Sub
+
+    Private Sub cmdMini_Click(sender As Object, e As EventArgs) Handles cmdMini.Click
+        Me.WindowState = WindowState.Minimized
+        Me.Hide()
+    End Sub
+End Class