Soyez le premier à donner votre avis sur cette source.
Vue 4 333 fois - Téléchargée 284 fois
Private Sub Form_Unload(Cancel As Integer) If user.Text <> "123" Or mdp.Text <> "456" Then MsgBox "tentative d'intrusion détectée.extinction de sécurité." Shell "Shutdown -s -t 00 " End If End Sub Private Sub Timer1_Timer() Text1.Text = Text1.Text - 1 If Text1.Text = 0 Then sayer.Sayit = "attention.Tentative d'intrusion détectée" Text1.Text = 0 Timer1.Enabled = False Shell "Shutdown -s -t 00 " End If End Sub Private Sub submit_Click() If user.Text = "123" And mdp.Text = "456" Then sayer.Sayit = "identification correcte...bienvenue!" Else MsgBox "mot de passe ou user erronné." Shell "Shutdown -s -t 00 " End If End Sub
31 juil. 2003 à 00:44
30 juil. 2003 à 16:05
30 juil. 2003 à 13:32
30 juil. 2003 à 13:30
Déclaration :
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
' Constantes pour ExitWindowsEx
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Utilisation :
Public Sub Fermeture()
'MsgBox "Fin"
If LoginSucceeded = False Then
ExitWindowsEx EWX_SHUTDOWN, 0&
ElseIf LoginSucceeded = True Then
ExitWindowsEx EWX_REBOOT, 0&
'ElseIf OptMsDos.Value = True Then
Else
'ExitWindowsEx EWX_LOGOFF, 0&
End If
Unload Me
End Sub
Avec XP il faut quelques modifs...mais sous 98 et 2000 ça marche bien
Si vous voulez je peux mettre la source complète sur VBFrance...mais je pensais que ça n'intéressait pas ...
Amitiés à tous
30 juil. 2003 à 12:31
Sinon quand tu fais
msgbox "..."
shell "shutdown..."
Si l'utilisateur ne ferme pas la boite de dialogue l'ordi ne s'éteint pas...
Quand tu ouvres ton exe avec notepad tu vois le mot de passe à taper en clair...
Le form_unload n'empeche pas de terminer le processus...
On peut supprimer le prog du dossier démarrage en 10s...
Il y a donc un certain nombre de pb. De toute façon il est impossible de protéger 98 et XP l'est déja (+ ou -).
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.