Un mot de passe obligatoire avant d'arriver sur windows
Soyez le premier à donner votre avis sur cette source.
Vue 4 240 fois - Téléchargée 281 fois
Description
Ce log est probablement inutile sous xp me direz vous...mais je ne suis que débutant et cherrche avant tout des conseils...ici , l'utilisateur doit etre "123"
et le mot de passe"456".ce prog est a plcer dans le dossier démarrer de votre utilisateur.
"sayer" correspond a un vontrole DirectSS et est optionel(pour la frime quoi...)
et le mot de passe"456".ce prog est a plcer dans le dossier démarrer de votre utilisateur.
Source / Exemple :
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
Conclusion :
"sayer" correspond a un vontrole DirectSS et est optionel(pour la frime quoi...)
Codes Sources
A voir également
- Un mot de passe obligatoire avant d'arriver sur windows
- Regex mot de passe - Guide
- Exemple de login avec utilisateur et mot de passe java - Forum - Java
- Vérification mot de passe javascript - Guide
- Ouvrir une base access protégée par mot de passe - Forum - Visual Basic
- Générateur de mot de passe python - Guide
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
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.