Problème d'exécution d'un script

**cedren** · 24/10/2008, 10h54

Bonjour,
Tout d'abord je suis débuttant en développement.
Ma direction me demande de créer une popup qui se lancerait au démarrage de windows sur chaques postes et qui se fermerait toute seule au bout de 10 à 15 secondes.
J'arrive faire ouvrir une page qui se redimenssionne toute seule mais la fonction de fermeture ne fonctionne pas:

Code :

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
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
<html>
<head>
<SCRIPT Language="VBScript"> loadHTML()
 
'=================================================================================
 'Initialisation de la fenêtre    
Sub loadHTML ()
    Window.ResizeTo 700,270
 
End Sub
'=================================================================================
</SCRIPT>
<title>Message aux agents </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
.style6 {
	background-color: #87AAD2;
	color: #FFFFFF;
}
.style4 {
	text-align: center;
	font-family: Arial;
}
.style2 {
	font-family: Arial;
	font-size: medium;
}
.style7 {
	background-color: #FFFFFF;
}
</style>
 
 
</head>
<body  onload="setTimeout('self.close();',15000)" bgcolor="#FFFFFF" text="#000000"  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<table border="0" height="60" align="center" style="width: 727px">
  <tr bgcolor="#87aad2"> 
    <td bgcolor="#87aad2" style="height: 21px; width: 612px;"> <div align="center"> 
<p class="style4"><strong><span class="style6">CHARTE DE BONNES PRATIQUES ECO-RESPONSABLE</span></strong></p>
	</div>
	</td>
  </tr>
  <tr> 
    <td height="36" valign="middle" class="style7" style="width: 612px">
<p class="style2"><strong>
<marquee loop="3">Déplacements: J'optimise mes déplacements - Je fais du covoiturage pour des réunions décentralisées</marquee></strong></p>
      </td>
  </tr>
</table>
<div align="center"></div>
</body>
 
</html>

Quelq'un pourrait-il me dire ce qui ne va pas dans le code et comment y remédier ?
Merci d'avance

**RadPAT** · 27/10/2008, 12h03

Salut,

voici un exemple de popup qui s'affiche 10 secondes :

Code :

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

1
2
3
4
5
 
iDisplayTimeout = 10
StrMsg = "Attention "
Set objWshShell = CreateObject("Wscript.Shell")
objWshShell.Popup StrMsg,iDisplayTimeout,"Attention", vbOKOnly+vbExclamation

A++

Problème d'exécution d'un script

VBScript

Vue hybride

Discussions similaires

Partager

Partager