47 lines
1.4 KiB
VB.net
47 lines
1.4 KiB
VB.net
Public Class Form37
|
|
Public va As Integer = 0
|
|
Private Sub Form37_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If va = 3 Then
|
|
Label1.Text = "verrouillage de la session dans:"
|
|
ElseIf va = 4 Then
|
|
Label1.Text = "Fermeture de extrème downloaders dans:"
|
|
ElseIf va = 5 Then
|
|
Label1.Text = "Arrêt de l'ordinateur dans:"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
If Label2.Text = 0 Then
|
|
Timer1.Stop()
|
|
If va = 3 Then
|
|
Shell("rundll32.exe user32.dll, LockWorkStation")
|
|
Close()
|
|
ElseIf va = 4 Then
|
|
End
|
|
ElseIf va = 5 Then
|
|
Shell("shutdown /p /f")
|
|
End If
|
|
Else
|
|
Label2.Text = Label2.Text - 1
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Timer1.Stop()
|
|
Label2.Text = "90"
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Timer1.Stop()
|
|
Label2.Text = "90"
|
|
If va = 3 Then
|
|
Shell("rundll32.exe user32.dll, LockWorkStation")
|
|
Close()
|
|
ElseIf va = 4 Then
|
|
End
|
|
ElseIf va = 5 Then
|
|
Shell("shutdown /p /f")
|
|
End If
|
|
End Sub
|
|
End Class |