Un mot de passe obligatoire avant d'arriver sur windows

Soyez le premier à donner votre avis sur cette source.

Vue 4 333 fois - Téléchargée 284 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
Cho7Kipu Messages postés 13 Date d'inscription samedi 9 novembre 2002 Statut Membre Dernière intervention 29 juillet 2003
31 juil. 2003 à 00:44
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
Tellmarch Messages postés 53 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 27 septembre 2005
30 juil. 2003 à 16:05
tu peux paramétrer un autorun pour les dossier, comme pour les CD... donc c'est possible.
cs_gerardlambert Messages postés 12 Date d'inscription mardi 29 juillet 2003 Statut Membre Dernière intervention 6 août 2003
30 juil. 2003 à 13:32
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???
cs_jmluc Messages postés 57 Date d'inscription mercredi 19 décembre 2001 Statut Membre Dernière intervention 31 juillet 2003
30 juil. 2003 à 13:30
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
Tellmarch Messages postés 53 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 27 septembre 2005
30 juil. 2003 à 12:31
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.