Vbs aide

Signaler
Messages postés
28
Date d'inscription
lundi 6 février 2006
Statut
Membre
Dernière intervention
16 avril 2009
-
Messages postés
28
Date d'inscription
lundi 6 février 2006
Statut
Membre
Dernière intervention
16 avril 2009
-
Salut tout le monde voila depuis peu je me suis mis a faire du vbs je
trouve ca marrant ^^ :) mais voila je cherche un équivalant aux goto
comme sur le batch quoi ^^ :) voici mon code
pass=inputbox("Tapez le mot de pass pour arreter le programme", "Touche bloqué " , pass)
if pass="c4d" then
msgbox"Bravo vous avez trouve le bon mot de passe"
Wscript.quit
else
msgbox"Ce n'est pas le bon mot de passe"
for i = 1 to 10
Set WshShell = WScript.CreateObject("WScript.Shell")
   WScript.Sleep 1000
   WshShell.SendKeys "{CAPSLOCK}"
Set WshShell = WScript.CreateObject("WScript.Shell")
   WScript.Sleep 1000
   WshShell.SendKeys "{CAPSLOCK}"
next
end if
Bon
c'est juste un prog pour débuter quoi bon voila en fait je voudrais
juste savoir si le mot de pass je met un msgbox"veut tu ressayer,
vbyesno ..."
et que ceci retourne au début du code... Voila ^^ :)

10 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour,

Une petite boucle

do
   reponse=inputbox("Entrez votre Password")
   select case reponse
       case "OUI" msgbox("Password correct"),VbExclamation
       exit do
       case else  msgbox("Password incorrect"),VbCritical
   end select
loop

jean-marc
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
37
hihi, on a pas le droit à l'erreur avec toi JMO ^^
ni même de ne plus vouloir exécuter ton code, çà fidélise la clientèle

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Messages postés
28
Date d'inscription
lundi 6 février 2006
Statut
Membre
Dernière intervention
16 avril 2009

Ok merci ;) JMO je vais voir ca .
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Bonjour PCPT,
Je vais essayer de retrouver un script (de toi ou de Renfield, je crois) sur question/réponse utilisant un randomize.
Juste pour le fun.

juju3737,
Commencer le vbs avec le sendkeys n'est  pas  un bon départ !

jean-marc
Messages postés
28
Date d'inscription
lundi 6 février 2006
Statut
Membre
Dernière intervention
16 avril 2009

Ba tu peut me dire avec quoi commencer ?
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
37
pour la boucle réessayer il te suffit de faire un ton action en boucle saus si "OUI" à ta question ou que la réponse est bonne

çà donne à peu près :

Dim Pass     'MDP
saisi
Dim RepBox   'réponse
msgbox
Dim i        'boucle pour ton
sendeys
Dim WshShell 'objet
SHELL

Do
    Pass = InputBox("Tapez le mot de pass pour arreter le
programme", "Touche bloqué
", Pass)
    If Pass = "c4d" Then
        MsgBox "Bravo vous avez trouvé le bon
mot de passe"
        RepBox = vbNo
    Else
        MsgBox "Ce n'est pas le bon mot de passe"
        For i = 1 To 10
            Set WshShell = WScript.CreateObject("WScript.Shell")
            WScript.Sleep 100 'pas 1000 tu te rends compte çà va faire 20 secondes en tout sinon
!!
            WshShell.SendKeys "{CAPSLOCK}"
            Set WshShell = WScript.CreateObject("WScript.Shell")
            WScript.Sleep 100
            WshShell.SendKeys "{CAPSLOCK}"
        Next
        RepBox = MsgBox("Voulez-vous ré-essayer?", vbYesNo)
    End If
Loop Until RepBox = vbNo

ps : comme tu le vois les variables sont déclarées
VBS ne l'oblige pas mais çà te donne de suite les bons réflexes pour... plus tard
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
37
pour la boucle réessayer il te suffit de faire un ton action en boucle
saus si "OUI" à ta question ou que la réponse est bonne



je la refais ^^

pour la boucle réessayer, il te suffit de faire ton action en boucle
sauf si "OUI" à ta question ou que la réponse est la bonne.
donc tu sauves la réponse "NON" en variable pour "CONTINUER?" s'il a trouvé. sinon tu agis selon son choix "OUI" "NON"
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Messages postés
28
Date d'inscription
lundi 6 février 2006
Statut
Membre
Dernière intervention
16 avril 2009

Merci, moi j'vais fait comme ca :
do
pass=inputbox("Tapez le mot de pass pour arreter le programme", "Touche bloqué nitr0" , pass)
select case pass
case "OUI" msgbox"Bravo vous avez trouve le bon mot de passe"
exit do
Wscript.quit
case else msgbox"Ce n'est pas le bon mot de passe"
msgbox"Script de nitr0 tu vas t'amuser" , vbcritical
for i = 1 to 100
Set WshShell = WScript.CreateObject("WScript.Shell")
   WScript.Sleep 1000
   WshShell.SendKeys "{CAPSLOCK}"
Set WshShell = WScript.CreateObject("WScript.Shell")
   WScript.Sleep 1000
   WshShell.SendKeys "{CAPSLOCK}"
next
end select
loop
Tu trouve ca comment ?
et ca " Loop Until RepBox = vbNo" c'est pour eviter la boucle ?
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
37
c'est pas pour éviter, c'est ta CONDITION de sortie
comme tu peux remarquer il n'y a pas de "Wscript.quit" ni de "exit do" dans le code que je t'ai indiqué

quand au tien (le dernier), tu ne lui proposes pas de continuer..., il y est condamné s'il ne saisi jamais "OUI"

en même temps ....
for i=1 to 100, 2 fois 1 seconde par boucle, il en a pour 3.33 minutes... entre chaque saisie
ils ont intérêt à être patients tes clients ^^
ou l'inverse en milieu hospitalier? je confonds toujours
Messages postés
28
Date d'inscription
lundi 6 février 2006
Statut
Membre
Dernière intervention
16 avril 2009

Lol oué, merci pour ton code ... Je vais regarder ca de plus pret ^^ :)