Problème avec le WshShell Résolu

Question

Bonjour à tous, ceci est ma première question qui me donne du tracas depuis une semaine.
J'ai commencé un petit programme, écrit sur Notepad ++, en langage .vbs, qui doit permettre à l'utilisateur de rentrer dans une ligne InputBox ce qu'il veux faire, et le programme lance le logiciel désigné par l'utilisateur. J'ai réussi à faire le programme qui permet de lancer un logiciel, sans artifices, mais là, il me met qu'il manque un WshShell;
Voici le programme:
1: msg=InputBox (msg, "Que veux tu faire?")
2: If msg=ets2 Then WshShell = WScript.CreateObject("WScript.Shell")
3: WshShell.Run """C:\Program Files (x86)\Euro Truck Simulator 2\bin\win_x64\eurotrucks2"""
Voici ce que ça me donne:
http://image.noelshack.com/fichiers/2015/26/1435396921-bug-prog.jpg
Merci d'avance!

f894009 · Answer

Bonjour,

https://ss64.com/vb/run.html

cs_Le Pivert · Answer

Bonjour,

essaie ceci:

Dim msg
msg=InputBox (msg, "Que veux tu faire?",  "ets2") 
If msg= "ets2" Then
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\CCleaner\ccleaner.exe""" 'a adapter le chemin de l'appli
End If

Problème avec le WshShell

2 réponses

Newsletters