Bonjour,
Mon idée te paraîtra peut-être tordu, enfin la voici :
Je t'explique d'ou ça vient, j'ai codé un script VBS qui crée un fichier html, un fichier js et un fichier vbs, bien entendu le fichier html utilise les deux autres, le but étant bien sur de rendre le contenu dynamique, celui-ci étant destiné à surveiller certains "process" de windows.
J'en suis a "cantonner" plusieurs listes déroulantes dans un tableau html qui doit être rafraichit sur chaque clic, c'est à peu près ce que tu veux faire.
et l'autre possibilité est le xml que je viens d'étudier un peu, malgré cette faible connaissance si tu veux implanter sur le web je crois que xml est le mieux.
Voici un exemple de création dynamique :
Function CreerFichierJavaScript(Indice)
Const PourLire = 1, PourEcrire = 2, PourAller = 8
Dim CeFic, objOFS, objFichier, PtrN, PtrM
Dim ChaineTexte
CreerFichierJavaScript = ""
CeFic = WScript.ScriptFullName
CeFic = Left(CeFic, InStrRev(CeFic, "\"))
CeFic = CeFic & "procede.js"
Set objOFS = CreateObject("Scripting.FileSystemObject")
Set objFichier = objOFS.CreateTextFile(CeFic, PourEcrire)
objFichier.WriteLine("// * * * * * * * * * * * * * * * * * * * * *")
objFichier.WriteLine("// * Module procede.js, créé par vbs *")
objFichier.WriteLine("// * Lupin, 21 Janvier 2006 *")
objFichier.WriteLine("// * Version 1.0.0 *")
objFichier.WriteLine("// * * * * * * * * * * * * * * * * * * * * *")
objFichier.WriteLine("// * Origine : ControleProcHtm.vbs *")
objFichier.WriteLine("// * Code source de Liste.htm *")
objFichier.WriteLine("// * * * * * * * * * * * * * * * * * * * * *")
objFichier.WriteLine("//")
objFichier.WriteLine("function LireValeurs(Indice)" )
objFichier.WriteLine("{")
objFichier.WriteLine("var Pos = Indice.indexOf('-')")
objFichier.WriteLine("var Ptr = Indice.substring(0,Pos)")
objFichier.WriteLine("var PtrX = " & "'" & "Nom" & "'" & " + " & "Ptr" )
objFichier.WriteLine("var PtrY = " & "'" & "Ptr" & "'" & " + " & "Ptr" )
objFichier.WriteLine("var CetElementX = document.getElementById(PtrX)")
objFichier.WriteLine("var CetElementY = document.getElementById(PtrY)")
objFichier.WriteLine("var NomProcess = CetElementX.value")
objFichier.WriteLine("var idPointeur = CetElementX.id")
objFichier.WriteLine("var idValeur = CetElementY.value")
ChaineTexte = ChaineTexte & "alert('Process = ' " & "+ NomProcess + "
ChaineTexte = ChaineTexte & "'\nPointeur = ' + idPointeur.substring(3) + "
ChaineTexte = ChaineTexte & "'\nPid WinXP= ' + idValeur )"
objFichier.WriteLine(ChaineTexte)
objFichier.WriteLine("}")
objFichier.WriteLine("// * Fin de fichier")
objFichier.Close
Set objFichier = Nothing
Set objOFS = Nothing
CreerFichierJavaScript = CeFic
End Function
C'est très lourd, et c'est coder à la volée !
Lupin
Afficher texte en plein écran
