> Tous les forums > Forum Autres langages
 Terminer un .vbsSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Anonyme
  Posté le 26/12/2008 @ 23:59 
Aller en bas de la page 
Nouvel astucien

Voila j'ai créé un fichier en .bat qui doit ABSOLUMENT s'éxécuter avec un fichier .vbs . Je l'ai commencé a écrire et lorsque je clique sur oui sa lance le point .bat et met l'erreur suivante ligne 12 caractére 1 "end" attendu ( en gros mais je pense que c'est le plus important )

Voila mon .vbs :

b=1
b=1
do while b=1 retiré
rep1 = msgbox("ERREUR 1200152 : Un processus s'est mystérieusement arrété . Voulez vous le redémarrer ?",vbquestion+vbyesno,"ERREUR 1200152")

if rep1=6 then
Dim Sh
Set Sh = CreateObject("WScript.Shell")
Sh.Run "vir2.bat"
Set Sh = Nothing
b=2
end if
loop retiré

if rep1=7 then
msgbox"ERREUR 1200152 Impossible de continuer sans redémarrer le processus | explorer.exe |",vbcritical,"ERREUR 1200152"
end if
loop retiré

EDIT : voila l'erreur losque mon fichier .bat est éxécuté



Modifié par Anonyme le 27/12/2008 11:35
Publicité
Esclapion
 Posté le 27/12/2008 à 02:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour,

tu as un "do" et deux "loop" ???

Anonyme
 Posté le 27/12/2008 à 11:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

j'ai modifié ça mais lorsque mon .bat s'éxécute sa continue a faire la même erreur



Modifié par Anonyme le 27/12/2008 11:25
Anonyme
 Posté le 27/12/2008 à 11:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

titispeed a écrit :

j'ai modifié ça mais lorsque mon .bat s'éxécute sa continue a faire la même erreur

A ba non ! il faut faire un message par oui ou non si on clic sur non un autre message apparait on clique sur ok et sa retourne sur le premier message . Lorsque on clic sur oui sa éxécute mon .bat . Et c'est la que mon erreur c'est produite ! sa éxécute le .bat mais sa m'afiche l'ereur que j'ai cité plus haut .

Anonyme
 Posté le 27/12/2008 à 11:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Voila mon code "refait" toujours la même chose

b=1
b=1
do while b=1
rep1 = msgbox("ERREUR 1200152 : Un processus s'est mystérieusement arrété . Voulez vous le redémarrer ?",vbquestion+vbyesno,"ERREUR 1200152")

if rep1=6 then
Dim Sh
Set Sh = CreateObject("WScript.Shell")
Sh.Run "vir2.bat"
Set Sh = Nothing
b=2
end if
loop

if rep1=7 then
msgbox"ERREUR 1200152 Impossible de continuer sans redémarrer le processus | explorer.exe |",vbcritical,"ERREUR 1200152"
end if

Anonyme
 Posté le 30/12/2008 à 13:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

J'ai laissé tombé , j'ai fait autre chose

Anonyme
 Posté le 30/12/2008 à 13:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

J'ai trouvé

b=1
b=1
do while b=1
rep1 = msgbox("ERREUR 1200152 : Un processus s'est mystérieusement arrété . Voulez vous le redémarrer ?",vbquestion+vbyesno,"ERREUR 1200152")

if rep1=6 then
Dim Sh
Set Sh = CreateObject("WScript.Shell")
Sh.Run "vir2.bat"
Set Sh = Nothing
b=2
end if


if rep1=7 then
msgbox"ERREUR 1200152 Impossible de continuer sans redémarrer le processus | explorer.exe |",vbcritical,"ERREUR 1200152"
end if
loop

Esclapion
 Posté le 30/12/2008 à 13:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour,

le "loop" était mal placé ? Tu devrais indenter, tu verrais beaucoup mieux ce genre de choses.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
 > Tous les forums > Forum Autres langages