Problème avec le If Then

polowiper Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
bonjour voila mon code en .vbs
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
code = "123-456-789"
InputBox "Entrer le code ici 1/2 essais", "test", "xxx-xxx-xxx"
If input=code Then
Set oWShell = CreateObject("Wscript.Shell")
oWShell.Run """C:\Desktop\fichier.bat""", 0, False
Set oWSHell = Nothing

InputBox "Entrer le code ici 2/2 essais", "test", "xxx-xxx-xxx"
If input=code Then
Set oWShell = CreateObject("Wscript.Shell")
oWShell.Run """C:\Desktop\fichier.bat""", 0, False
Set oWSHell = Nothing
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ici le but et d'entrer un code dans une "inputbox" et si le code et bon un fichier en .bat s’exécute je pense que le problème viens de la ligne:

If input=code Then

voici le code d'erreur:
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Script: C:\Desktop\Test.vbs
Ligne: 13
Caract: 1
Erreur: 'End' Attendu
Code: 800A03F6
Source: Erreur de compilation Microsoft
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Merci d'avance

3 réponses

Réponse 1 / 3
Utilisateur anonyme
 
Bonjour
Vbs ça n’est pas du batch, je vais déplacer ton message dans le bon forum.
En outre, merci de présenter correctement ton code, voir ce petit tuto
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
0
Réponse 2 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, il faut terminer les 
if
par des 
end if
.
exemple: 
If inputt = code Then
    Set oWSHell = CreateObject("Wscript.Shell")
    oWSHell.Run """C:\Desktop\fichier.bat""", 0, False
    Set oWSHell = Nothing
End If
0
Réponse 3 / 3
polowiper Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
merci cependant j'aimerais connaitre la commande pour les inputs car le fichier marche très bien maintenant mais quand j'entre le code il ne se passe rien
voila à quoi ressemble le fichier maintenant: 


code = "123-456-789"
InputBox "Entrer le code ici 1/2 essais", "test", "xxx-xxx-xxx"
If input = code Then
Set oWShell = CreateObject("Wscript.Shell")
oWShell.Run """C:\Desktop\fichier.bat""", 0, False
Set oWSHell = Nothing
End if
InputBox "Entrer le code ici 2/2 essais", "test", "xxx-xxx-xxx"
If input = code Then
Set oWShell = CreateObject("Wscript.Shell")
oWShell.Run """C:\Desktop\fichier.bat""", 0, False
Set oWSHell = Nothing 
End if
<code basic>
</code>
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
c'est normal, puisque tu ne fais rien avec la réponse de inputbox.
sans doute: 
input =  InputBox ("Entrer le code ici 1/2 essais", "test", "xxx-xxx-xxx")
0

Discussions similaires

Poste JVC,message "Miswiring chk wiring"
Luna -
kevin14789 -

5 réponses
A quoi sert la sortie IF OUT démodulateur?
LesNulsCCM -
Graffitir -

3 réponses
Fonction if exist et else
Xena3 -
Xena3 -

6 réponses
The Realtek Network Controller was not found
Maxime949 -
kaneagle -

1 réponse
Problème Autoradio Kenwood KDC-3021
Weezy67 -
Fruitylight -

18 réponses