HTML+VBS cela ne marche pas!

Fermé
rambaldi47 - 22 nov. 2007 à 11:58
 pouark - 23 nov. 2007 à 00:33
Bonjour,
voici la source de ma page html
<html>
<body bgcolor="#fffff0">
<h1>Exemple d'appels de procédures VBScript</h1>
<script language="VBScript">
sub explicite
set wshshell=wscript.createobject("wscript.shell")
valbouton=msgbox("Voulez vous enlevez toutes les icones du bureau?",33,"GESTION DES ICONES DU

BUREAU")
if valbouton=1 then
wshshell.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

\NoDesktop",1,"REG_DWORD"
msgbox"Les Icones seront retirées au prochain démarage",48,"Opération términée"
else msgbox"Pas d'incidence prévue!!",64,"ANNULEE"
end if
end sub
sub iconedelete_onclick
set wshshell=wscript.createobject("wscript.shell")
valbouton=msgbox("Voulez vous enlevez toutes les icones du bureau?",33,"GESTION DES ICONES DU

BUREAU")
if valbouton=1 then
wshshell.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

\NoDesktop",1,"REG_DWORD"
msgbox"Les Icones seront retirées au prochain démarage",48,"Opération términée"
else msgbox"Pas d'incidence prévue!!",64,"ANNULEE"
end if
end sub
</script>
<form method="POST">
<input type="button" name="boutonexplicite"
value="methode 1: Appel explicite de la procédure VBScript" onclick="explicite">
<p>
<input type="button" Name="iconedelete"
value="enlever les icônes">
<p>
<input type="button" name="boutonscriptfor"value="methode3: scripting avec la syntaxe

for...event">
<script for="boutonscriptfor" event="onclick" language="vbscript">
set wshshell=wscript.createobject("wscript.shell")
valbouton=msgbox("Voulez vous enlevez toutes les icones du bureau?",33,"GESTION DES ICONES DU

BUREAU")
if valbouton=1 then
wshshell.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

\NoDesktop",1,"REG_DWORD"
msgbox"Les Icones seront retirées au prochain démarage",48,"Opération términée"
else msgbox"Pas d'incidence prévue!!",64,"ANNULEE"
end if

</script>
</form>
</body>
</html>


ce site permet par 3 façon differente de faire appel a un script VBS, mais cela ne marche pas!
merci de m'aider a trouver la solution!!
rambaldi47
A voir également:

2 réponses

Rambaldi_47
22 nov. 2007 à 22:17
s'il vout plait, c'est important je me prend trop la tête!
1
Bonjour,
Ton souci vient de ta structure de page HTML et de tes appels aux scripts.
Quand tu mets ta première série de script, c'est ok tu appelles vbs : <script language="VBScript">
Tu fermes ensuite par </script> là c'est OK.
Puis tu définis ton formulaire et tu veux à nouveau redéfinir des scripts, déjà moi je centraliserais tous les scripts car, qu'importe que tes scripts soient avant ou après ton formulaire, ils seront quand même pris en compte. Ca ne marche pas cela : "<script for="boutonscriptfor" event="onclick" language="vbscript"> " il te faut entre <script ....> et </script> définir ta Sub boutonscriptfor_Onclick par exemple...
0