Menu

Problème avec une pause VBScript dans un fichier .Hta

Anonyme - 2 janv. 2018 à 22:04
Bonjour,

Je suis en ce moment en train de coder, pour le plaisir, un jeu vidéo sur Windows. Je l'ai fait en utilisant un fichier .hta contenant du Vbscript. Seulement, il y a un problème avec une animation... Le cadre du jeu est une image avec une ID du nom de "jeu". Lors de l'animation, le résultat escompté était une météorite s'approchant d'une fusée spatiale. Voici mon code:

function meteorite
jeu.src= "Images\Alerte_1.png"
Set objShell = CreateObject("WScript.Shell")
objshell.run "timeout -t 1" , 0, true
jeu.src= "Images\Alerte_2.png"
Set objShell = CreateObject("WScript.Shell")
objshell.run "timeout -t 1" , 0, true
jeu.src= "Images\Alerte_3.png"
Set objShell = CreateObject("WScript.Shell")
objshell.run "timeout -t 1" , 0, true
jeu.src= "Images\Alerte_4.png"
Set objShell = CreateObject("WScript.Shell")
objshell.run "timeout -t 1" , 0, true
jeu.src= "Images\Alerte_5.png"
Set objShell = CreateObject("WScript.Shell")
objshell.run "timeout -t 1" , 0, true
jeu.src= "Images\Alerte_6.png"
Set objShell = CreateObject("WScript.Shell")
objshell.run "timeout -t 1" , 0, true
jeu.src= "Images\Alerte_7.png"
end function


Cependant, allez savoir pourquoi, mon fichier n'attend pas que la commande timeout s'achève avant de continuer. Et donc, dès que j'active la fonction
meteorite
, le tag
src
de mon image se retrouve instantanément sur "Images\Alerte_7.png".

Note: La commande
ping
ne fonctionne pas non plus, et puisque je travaille dans un fichier .hta, je ne peux pas utiliser
wscript.sleep
.


Merci à tous!
Afficher la suite