1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107
|
[...]
<SCRIPT language="vbscript">
Dim WshShell
Sub Window_onLoad
StartTimer
End Sub
Sub StartTimer
MonTimer0 =window.setTimeOut ("Welcome", 1000, "VBScript") 'Appel de MonScript
'MonTimer6 = window.setTimeOut ("Startend", 25000, "VBScript") 'Appel de MonScript
'MonTimer7 = window.setTimeOut ("Startclose", 30000, "VBScript") 'Appel de MonScript
End sub
Sub Welcome
S = SetTimeOut("MaSub (""Vos applications vont se lancer dans un instant... Veuillez patienter..."")", 100)
End Sub
'lancement boucles
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "StartApp.csv"
Set oStream = fso.OpenTextFile(CheminNomFichier,1)
Dim Horloge
Dim Nom
Dim Delai
Dim Soft
Dim Resultat
Dim aVars
aVars = Array( "Horloge", "Nom", "Delai", "Soft", "Resultat" )
Dim oFSO
Set oFSO = CreateObject( "Scripting.FileSystemobject" )
Const INPUT_FILE = "StartApp.csv"
Dim oStream
Dim sData
Dim aData
oStream.SkipLine
Do While oStream.AtEndOfStream = False
sData = oStream.ReadLine
aData = Split( sData, "," )
For i = 0 To UBound( aData )
Execute aVars( i ) & " = " & Chr( 34 ) & aData( i ) & Chr( 34 )
Next
'At this point all the vars referred to in aVars have the values
'of the current record
'START APP
'WSCript.Echo Horloge, Nom, Delai, Soft, Resultat
'WScript.Sleep Delai
'St = SetTimeOut( Nom , Delai, "VBScript") 'Appel de MonScript
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & soft
S = SetTimeOut("MaSub (" & Chr(34) & Resultat & Chr(34) & ")", Delai)
Loop
oStream.Close
Sub StartTimerbis
MonTimer999 = window.setTimeOut ("Startclose", 2000, "VBScript") 'Appel de MonScript
End sub
Sub Startclose
window.close()
End Sub
Set WshShell = nothing
</SCRIPT>
</head>
<Body STYLE="font:10 pt arial; color:white;filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')">
<p><center> <img src=".\startapp.bmp" /> </center></p>
<br/><br/><br/>
<p><center>
<span style="color:white">
<div id = D></div>
<script language = vbs>
Sub MaSub (E)
Document.All.D.innerHTML = E
ClearTimeOut S
End Sub
</script>
</center></p>
</span>
</body>
</html> |
Partager