18 lines
650 B
VB.net
18 lines
650 B
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
|
|
Public Class Form44
|
|
Dim fermeture As Integer = 0
|
|
Private Sub Form44_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
If fermeture = 0 Then
|
|
Text = "avertisement"
|
|
e.Cancel = True
|
|
Label2.Text = "attention les fichier envoyer sur le comunautaire ne sont pas vérifier par l'êquipe d'Extrème downloaders, il peuvent contenir des fichiers malveillant"
|
|
fermeture = 1
|
|
Else
|
|
Dim sw1 As New StreamWriter(startpage2)
|
|
sw1.WriteLine(1)
|
|
sw1.Close()
|
|
End If
|
|
End Sub
|
|
End Class |