Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Erreur de vbs
Auteur Message
Répondre en citant
Message Erreur de vbs 
Bonjour,
j'ai un petit bat qui est censé créer un raccourci sur le bureau, mais je le fais plutôt en .vbs, mais je ne sais pas comment appliquer ce qui est en batch %~dp0 ...
Ce batch crée donc un .vbs avec une variable (qui s'adapte pour la création du vbs) pour savoir où se trouve jeu.bat (un autre fichier, le batch de raccourci étant dans le même dossier).

Contenu du batch de raccourci
Code:

if exist "C:\users\%username%\desktop\RaccourciJeu.bat" del "C:\users\%username%\desktop\RaccourciJeu.bat"
if exist "C:\users\%username%\desktop\RaccourciJeu.vbs" del "C:\users\%username%\desktop\RaccourciJeu.vbs"
if exist 1.bat ren 1.bat jeu.bat
if not exist "C:\Windows\System32\cscript.exe" echo ERREUR & timeout /t 2 >nul & exit
set d=%~dp0
if exist csc.vbs del csc.vbs
timeout /t 1 >nul
echo
echo Dim Shell, DesktopPath, LNK >>"%d%csc.vbs"
echo Set Shell = CreateObject("WScript.Shell") >>"%d%csc.vbs"
echo DesktopPath = Shell.SpecialFolders("Desktop") >>"%d%csc.vbs"
echo Set Lnk = Shell.CreateShortcut(DesktopPath ^&^ "JeuHugo.Lnk") >>"%d%csc.vbs"
echo Lnk.TargetPath = "%d%jeu.bat" >>"%d%csc.vbs"
echo Lnk.Save >>"%d%csc.vbs"
:a
pause
start "C:\Windows\System32\cscript.exe" "%d%csc.vbs"
pause
exit

Mais le vbs ne se lance ni avec
Code:
start "C:\Windows\System32\cscript.exe" "%d%csc.vbs"
ni en clic direct... Confused
Je ne trouve pas l'erreur Sad
Merci!




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Erreur de vbs 
Bonjour
est ce que ton vbs s'execute bien tout seul ? le raccourcis est créé

essaie en indiquant le chemin vers le vbs et cscript est une commande autonome il n'a pas besoin de start
cscript.exe" "%chemin%\%d%csc.vbs"




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Erreur de vbs 
Le raccourci n'est pas créé...




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Répondre en citant
Message Erreur de vbs 
bonsoir

%~dp0 -> que dois donner cette variable ?

ensuite quel est le message d erreur de ton vbs




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Erreur de vbs 
Code:
set d=%~dp0
Met en variable le chemin d'accès du batch.
Si il est lancé sur C:\users\hugo par exemple, %d%="C:\users\hugo". Ainsi, cette variable s'adapte sur l'écriture du vbs, ce qui crée le raccourci sur le bureau vers le bon endroit.
Ce raccourci donnera sur %d%jeu.bat, soit "C:\users\hugo\jeu.bat".




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Répondre en citant
Message Erreur de vbs 
Bonsoir
poste ton vbs complet sans redirection dans un batch avec toutes les informations qu il devrait contenir




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Erreur de vbs 
Voilà la sortie, après que le batch ait adapté les variables. (avec %d% >>fichier.vbs
Ce vbs ne fonctionne pas...
Code:

Dim Shell, DesktopPath, LNK
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set Lnk = Shell.CreateShortcut(DesktopPath & "JeuHugo.Lnk")
Lnk.TargetPath = "F:\Programmation\Programmes_Hugo\Jeux\dev\2.0\jeu.bat"
Lnk.Save





______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Répondre en citant
Message Erreur de vbs 
Bonjour

test ce code chez moi ça fonctionne


Code:
Dim Shell, DesktopPath, LNK
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set Lnk = Shell.CreateShortcut(DesktopPath & "\JeuHugo.Lnk")
Lnk.TargetPath = "F:\Programmation\Programmes_Hugo\Jeux\dev\2.0\jeu.bat"
Lnk.Save




Dernière édition par Laddy le Ven 18 Avr 2014 - 18:33; édité 1 fois

______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Erreur de vbs 
Hum... Avant il ne mettait pas de message, rien. Là il y a un message...

EDIT: erreur ligne 4 -> " /jeuhugo.lnk" devient "/jeuhugo.lnk"
Ce batch fonctionne Smile
Code:

if exist "C:\users\%username%\desktop\RaccourciJeu.bat" del "C:\users\%username%\desktop\RaccourciJeu.bat"
if exist "C:\users\%username%\desktop\RaccourciJeu.vbs" del "C:\users\%username%\desktop\RaccourciJeu.vbs"
if exist 1.bat ren 1.bat jeu.bat
if not exist "C:\Windows\System32\cscript.exe" echo ERREUR & timeout /t 2 >nul & exit
set d=%~dp0
if exist csc.vbs del csc.vbs
timeout /t 1 >nul
echo Dim Shell, DesktopPath, LNK  >>csc.vbs
echo Set Shell = CreateObject("WScript.Shell")  >>csc.vbs
echo DesktopPath = Shell.SpecialFolders("Desktop")  >>csc.vbs
echo Set Lnk = Shell.CreateShortcut(DesktopPath ^&^ "\JeuHugo.Lnk")  >>csc.vbs
echo Lnk.TargetPath = "%d%jeu.bat"  >>csc.vbs
echo Lnk.Save >>csc.vbs
:a
pause
start "C:\Windows\System32\cscript.exe" "%d%csc.vbs"
pause
exit

Merci pour ton aide!




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Message Erreur de vbs 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch