Je suis bien d'accord tellmarch  mais :
Si tu as essayé d'ouvrir windows en passant par mode sans echec, tu n'as pas besoin de te soucier de la valeur du mot de passe
Si tu as essayé d'ouvrir normalement le poste, tu as été éjecté avant d'avoir pu utiliser notePad.
Enfin si tu veux compliquer les choses (mais là je rappelle que je n'ai pas mis ce code pour la partie mot de passe mais surtout pour l'explication de quelques API intéressantes), tu remplace les mdp en dur par des variables qui peuvent être le nom d'utilisateur du poste récupéré par la focntion :
GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Et le mdp par un truc du style date du jour reformatée...
mdp=Cstr(Format(date,"ddmmaa"))
Enfin bon ça reste des trucs simples pas pour faire une protection générale...juste pour apprendre certaines API...

J'ai pas mis l'exe...mais bon y'a la source donc...y'a qu'à...

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

Si tu veux faire un truc simple, en considérant que tes utilisateurs non autorisés ne sauront pas ouvrir en mode sans échec, (et y'a en plus qu'on croit qui sont dans ce cas parce que dans ma boite de 400 personnes y'a pas un utilisateur -hormi les informaticiens et encotre pas tous! - qui a su trouver la parade), donc tu fais un truc comme tu as dis, mais sur ta form tu mets un timer que tu règles sur 10 secondes.
Ensuite tu utilises les API de fermeture automatique de Windows...
Et là déjà tu compliques la tache fortement pour une intrusion d'un quidam de ton service...
Bon ce que j'en dis...mais en attendant mon petit prog est efficace pour 99% des cas...Les hackers eux peuvent venir de toute façon y'a rien d'intéressant sur mon poste Hi-Hi...

Set rs=db.open recordset("client",dbopentable)

rs.moveFirst '(Excuse c'était movefirst)

rs.seek=","text1.text

Seek c'est une méthode de recherche.
Juste une remarque, il faut toujours faire un :
rs.movenext
Sinon tu risques de sauter les premiers enregistrements...dans certains cas
JM

Petite variante que m'a proposé un collègue pour la création de mot de passe pour un login en ASP :

Intégré dans une fonction :
<%
function gen_password()
     mot = ""
     er = 0
for cpt = 1 to 8
     do while er <> 1
     randomize
     x = int((122 - 48 +1) * Rnd + 48)       '--- produit des entier compris entre 48 et 122
          if x > 57 and x < 65 then                      '--- test si chiffre ds interval non désiré
               er = 0
               else if x > 90 and x < 97 then               '--- test si chiffre ds interval non désiré
               er = 0
          else er = 1                                           '--- chiffre pas ds interval non désiré
               end if
          end if
     loop
     y = chr(x)                                              '--- converti un chiffre en caractère
     mot = mot & y                                      '--- concaténation des caractères créer
     er=0
next
gen_password = mot                          ' --- renvoie du mot password
end function
%>

Ca marche bien...(Merci à Sylvain LECOMTE)

Impressionnant........10/10

Dommage...bon je verrai ce soir chez moi .
J'ai les deux OS sur mon poste...merci

Travail remarquable...10/10