86 lines
3.0 KiB
VB.net
86 lines
3.0 KiB
VB.net
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
|