lancer un exe

**mathrix77** · 12/04/2008, 22h53

bonjour
j'ai un boutton qui appelle un vbscript

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

type="button" value="Sélection" name="B26" onClick="payer()

mon script est le suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sub payer()
Set WshShell = WScript.CreateObject("WScript.Shell")
shell.run = "c:\player\player"
end sub

le but etant de lancer player.exe

mais quand je click ca ne marche pas et ca me marque en bas a gauche "erreur sur la page"
ou est mon erreur?

**SfJ5Rpw8** · 12/04/2008, 23h07

faudrai nous montrer un peu plus de code ....

- il est placé où ton script...?
- Dans ta première ligne il manque le dernier "

tu crée un objett WshShell dont tu ne te sert pas ..., tu utilise (mal) shell.run .. mais d'ou sort ton objet shell ?

pour la méthode run voir :

Comment exécuter un programme externe ?

Si ton code est dans un fichier html ... tu n'as pas accès à l'objet WScript

pour un fichier html tu peu essayer :

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<HTML>
<HEAD>
<TITLE>Passez votre commande</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
sub payer()
Set WshShell = CreateObject("WScript.Shell")
WshShell.run "notepad"
 
end sub
-->
</SCRIPT>
</HEAD>
<FORM NAME="Feuille1">
   <INPUT type="button" value="Sélection" name="B26" onClick="payer()">
  </FORM>
</BODY>
</HTML>

**mathrix77** · 12/04/2008, 23h29

c'est bon ca marche
tien je te donne l'adresse de la page ou est utiliser ce script pour montrer que le lancement d'un exe a distance dans mon cas n'a pas un but pirate
http://pagesperso-orange.fr/mathrix77.com
le code du player est meme sur le forum VB6 ou je l'ai mit tout a l'heure
merci a toi pour ton aide

lancer un exe

VBScript

Discussions similaires

Partager

Partager