Affichier Variable dans hta

Version imprimable

Bonjour,

j'aimerais afficher variable ou appel une function dans la balise html

ONSCR.InnerHTML="<TABLE HEIGHT=......

Code:

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
'Fenetre Windows
				SUB InnerWindowSize(intWidth,intHeight)
				Self.ResizeTo intWidth,intHeight
				Self.ResizeTo intWidth+(intWidth-Document.Body.OffsetWidth),intHeight+(intHeight-Document.Body.OffsetHeight)
				Self.MoveTo (Screen.Width/2)-(intWidth/2),(Screen.Height/2)-(intHeight/2)
				END SUB
'Position Windows	
				Sub CenterWindow(x,y)
				window.resizeTo x, y
				iLeft = window.screen.availWidth/2 - x/2
				itop = window.screen.availHeight/2 - y/2
				window.moveTo ileft, itop
				End Sub
 
'Infomation pc
 
				SUB Nettoi()
				Self.document.title = "information pc"
				CALL InnerWindowSize(500,700)
				ONSCR.InnerHTML="<TABLE HEIGHT=""50"" WIDTH=""220"" BORDER=""1"" BGCOLOR=""#BBBFFF"" BORDERCOLOR=""#000000"" CELLPADDING=""0"" CELLSPACING=""1"">"_
				&"<TR BGCOLOR=""#346E99""><TD COLSPAN=""2""><CENTER><FONT COLOR=""#FFFFFF"" SIZE=""+2"" FACE=""VERDANA,ARIAL,HELVETICA,SANS-SERIF"">information pc</FONT></CENTER></TD></TR></TABLE>"_
				&"<TABLE WIDTH=""700"" HEIGHT=""500"" BORDER=""1"" BGCOLOR=""#BBBFFF"" BORDERCOLOR=""#000000"" CELLPADDING=""0"" CELLSPACING=""1"">"_
				&"<tr><td>L'information pc : value=""&GetUserName&""</td>"_
				&"<TABLE HEIGHT=""50"" WIDTH=""500"" BORDER=""1"" BGCOLOR=""#BBBFFF"" BORDERCOLOR=""#000000"" CELLPADDING=""0"" CELLSPACING=""1"">"_
				&"<TR BGCOLOR=""#346E99""><TD COLSPAN=""2""><CENTER><INPUT TYPE=""BUTTON"" STYLE=""HEIGHT:25;WIDTH:165"" VALUE=""Fermer"" ONCLICK=""window.close()""></CENTER></TD></TR></TABLE>"
				END SUB
 
				Function GetUserName()
				Dim objNetwork
				Set objNetwork = CreateObject("WScript.Network")
				GetUserName = objNetwork.UserName
				End Function
 
 
				Call Nettoi()

Par Exemple je voulais affichier username a partir d'une Function GetUserName().

J'ai mis <tr><td>L'information pc : value=""&GetUserName&""</td>

mais ça ne marche pas.

Merci

Salut

Il me semble que

Code:

1
2
3
4
5
6
	ONSCR.InnerHTML = "<TABLE HEIGHT=" & Chr(34) & "50" & Chr(34) & " WIDTH=" & Chr(34) & "220" & Chr(34) & " BORDER=" & Chr(34) & "1" & Chr(34) & " BGCOLOR=" & Chr(34) & "#BBBFFF" & Chr(34) & " BORDERCOLOR=" & Chr(34) & "#000000" & Chr(34) & " CELLPADDING=" & Chr(34) & "0" & Chr(34) & " CELLSPACING=" & Chr(34) & "1" & Chr(34) & ">" _
				&"<TR BGCOLOR=" & Chr(34) & "#346E99" & Chr(34) & "><TD COLSPAN=" & Chr(34) & "2" & Chr(34) & "><CENTER><FONT COLOR=" & Chr(34) & "#FFFFFF" & Chr(34) & " SIZE=" & Chr(34) & "+2" & Chr(34) & " FACE=" & Chr(34) & "VERDANA,ARIAL,HELVETICA,SANS-SERIF" & Chr(34) & ">information pc</FONT></CENTER></TD></TR></TABLE>" _
				&"<TABLE WIDTH=" & Chr(34) & "700" & Chr(34) & " HEIGHT=" & Chr(34) & "500" & Chr(34) & " BORDER=" & Chr(34) & "1" & Chr(34) & " BGCOLOR=" & Chr(34) & "#BBBFFF" & Chr(34) & " BORDERCOLOR=" & Chr(34) & "#000000" & Chr(34) & " CELLPADDING=" & Chr(34) & "0" & Chr(34) & " CELLSPACING=" & Chr(34) & "1" & Chr(34) & ">" _
				&"<tr><td>L'information pc : value=" & GetUserName & "</td>" _
				&"<TABLE HEIGHT=" & Chr(34) & "50" & Chr(34) & " WIDTH=" & Chr(34) & "500" & Chr(34) & " BORDER=" & Chr(34) & "1" & Chr(34) & " BGCOLOR=" & Chr(34) & "#BBBFFF" & Chr(34) & " BORDERCOLOR=" & Chr(34) & "#000000" & Chr(34) & " CELLPADDING=" & Chr(34) & "0" & Chr(34) & " CELLSPACING=" & Chr(34) & "1" & Chr(34) & ">" _
				&"<TR BGCOLOR=" & Chr(34) & "#346E99" & Chr(34) & "><TD COLSPAN=" & Chr(34) & "2" & Chr(34) & "><CENTER><INPUT TYPE=" & Chr(34) & "BUTTON" & Chr(34) & " STYLE=" & Chr(34) & "HEIGHT:25;WIDTH:165" & Chr(34) & " VALUE=" & Chr(34) & "Fermer" & Chr(34) & " ONCLICK=" & Chr(34) & "window.close()" & Chr(34) & "></CENTER></TD></TR></TABLE>"

devrait faire, à moins d'un oubli de & Chr(34) & un de trop quelque par, car je n'ai pas fait fonctionné le code.
L'endroit dont je ne suis pas sûr est ligne 4 (code proposé), cela peut être plutôt &"<tr><td>L'information pc : value=" & Chr(34) & GetUserName & Chr(34) & "</td>" _

18/10/2013, 23h29
sovan

En tout cas merci ProgElecT :)
Je vais tester ça :ccool:

& Chr(34) & c'est un espace ?
A quoi ça sert exactement ? :roll:
19/10/2013, 01h02
sovan

J'ai tester c'est bon ça marche

en faite il suffit juste mettre :

Code:

" & Varaible ou fuction... & "

Merci
19/10/2013, 09h27
ProgElecT

Citation:

Envoyé par sovan

.........
& Chr(34) & c'est un espace ?
.....

Oui

Citation:

Envoyé par sovan

.........
A quoi ça sert exactement ? :roll:

Dans se cas précis Chr(34) et interprété comme un littéral faisant partie de la valeur à passer, alors que " est considéré comme bornes d'attribution d'une valeur String.

Si la discussion a trouvé une solution satisfaisante, pensez au bouton :resolu: .