Un mot de passe obligatoire avant d'arriver sur windows

Soyez le premier à donner votre avis sur cette source.

Vue 4 195 fois - Téléchargée 280 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.

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

Ajouter un commentaire

Commentaires

Messages postés
13
Date d'inscription
samedi 9 novembre 2002
Statut
Membre
Dernière intervention
29 juillet 2003

par défaut je crois que les autorun ne sont pris en compte que sur les disques amovibles ou les lecteurs virtuels. Pour le reste il doit yavoir un option a activer, de tete je sais plus trop ou c'est
Messages postés
53
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2005

tu peux paramétrer un autorun pour les dossier, comme pour les CD... donc c'est possible.
Messages postés
12
Date d'inscription
mardi 29 juillet 2003
Statut
Membre
Dernière intervention
6 août 2003

merci à tous de vos conseils...(surtout chi7)je vais me mettre au boulot pour l'améliorer...une derniere chtite quesyion:est-il possible de lancer le prog a l'ouverture d'un dossier???
Messages postés
57
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
31 juillet 2003

Fonction API :
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
Messages postés
53
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2005

shutdown marche sous XP en tout cas mais pas sous 98 je crois... mais bon sous XP l'ordinateur est déja protégé....
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 -).
Afficher les 8 commentaires

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.