LogON LogOFF werden protokoliert
This commit is contained in:
28
frmLogOff.vb
Normal file
28
frmLogOff.vb
Normal file
@@ -0,0 +1,28 @@
|
||||
Public Class frmLogOff
|
||||
|
||||
Dim FinalCountdown As Integer = 30
|
||||
Private Sub frmLogOff_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Label2.Text = FinalCountdown.ToString
|
||||
Timer1.Start()
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||||
If FinalCountdown > 0 Then
|
||||
FinalCountdown = FinalCountdown - 1
|
||||
Label2.Text = FinalCountdown.ToString
|
||||
Else
|
||||
Timer1.Stop()
|
||||
Process.Start("shutdown", "-l")
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAbbrechen_Click(sender As Object, e As EventArgs) Handles BtnAbbrechen.Click
|
||||
Timer1.Stop()
|
||||
cRes.DisableAutoLogoff = True
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user