Comment cacher l'invite CMD sur ce HTA?

Version imprimable

:salut:
Je me demande s'il ya une astuce qui peut être faite pour cacher l'invite de commande lorsque j'exécute ce HTA?
:merci:

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
36
37
38
39
<html>
<head><title>Traceroute</title>
<HTA:APPLICATION ID="oHTA";
  APPLICATIONNAME="Traceroute";
  BORDER="thin";
  BORDERSTYLE="normal";
  SINGLEINSTANCE="no";
>
</head><body bgcolor="#E8E8E8" >
<font size=2 face="Century Gothic, Tahoma, Arial" color="black">
 
<script language="VBScript" type="text/vbscript">
set objShell = CreateObject("WScript.Shell")
strOut=""
 
sub traceroute
cmdarg="%comspec% /c tracert.exe " & T1.value
set objExCmd = objShell.Exec(cmdarg)
 
strOut=objExCmd.StdOut.ReadAll
 
Set regEx = New RegExp
regEx.Pattern = "[\f\n\r\v]+"
regEx.Global = True
regEx.Multiline = True
strOut = regEx.Replace(strOut, "<br>")
TraceOut.innerHTML= strOut
end sub
//-->
</script>
<p><b>Traceroute HTA by Paul R. Sadowski (11/2001)</b><hr noshode color="#000000"><br>
    <p>Hostname: <input type="text" size="40" name="T1">
    <input type="submit" name="B1" value="Submit"  onclick="traceroute"></p>
<div id=TraceOut></div>
<script language="JavaScript">
<!--
	if (window.resizeTo) self.resizeTo(600,400);
//-->
</script>

17/09/2012, 11h22
omen999

bonjour,
http://groups.google.com/group/micro...623197331fc6e1 ;)

Citation:

Envoyé par omen999

bonjour,
http://groups.google.com/group/micro...623197331fc6e1 ;)

:merci: omen999 pour ce lien :ccool:
Problème est donc :resolu: :lol: :zoubi:
Voila donc ma version et s'il ya des remarques n'hésitez pas ;)

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
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
<html>
<head><title>Traceroute</title>
<HTA:APPLICATION ID="oHTA";
  APPLICATIONNAME="Traceroute";
  BORDER="thin";
  SCROLL="yes"
  SINGLEINSTANCE="yes"
  WINDOWSTATE="Maximize"
  icon="verifier.exe"
>
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
 
<script language="VBScript" type="text/vbscript">
Function CmdPrompt(sCmd)
  Dim strOut,alines, sCmdLine, stemp, ofs, oWS, nRes
  'On Error Resume Next
  strOut =""
  sCmdLine = """%comspec%"" /c " & sCmd & " 1>> "
  set ofs = CreateObject("Scripting.FileSystemObject")
  stemp = ofs.GetTempName
  set oWS = CreateObject("Wscript.Shell")
  stemp = oWS.Environment("PROCESS")("TEMP") & "\" & stemp
  nRes = oWS.Run(sCmdLine & Chr(34) & sTemp & Chr(34),Abs(cSng(bConsoleSw)),True)
  ' optional
   'alines = "ERRORLEVEL: " & nRes & vbCRLF
  if ofs.FileExists(sTemp) Then
    with ofs.OpenTextFile(stemp)
      if Not .AtEndofStream Then
        alines = aLines & .ReadAll
        alines = Replace(aLines,"‚","é")
        'Set regEx = New RegExp
        'regEx.Pattern = "[\f\n\r\v]+"
        'regEx.Global = True
        'regEx.Multiline = True
        'alines = regEx.Replace(alines,"<br>")
        alines = Replace(alines,VbNewLine,"<br>")
         'MsgBox alines
         Message.style.visibility="visible"
         document.body.style.cursor = "default"
         TraceOut.InnerHTML = aLines
      End if
    End With
    ofs.DeleteFile stemp
    alines = Split(aLines, vbNewline)
   Else
    aLines = Array(nRes, "")
  End if
  ReDim Preserve alines(Ubound(alines) - 1)
  if Err.Number <> 0 Then _
    aLines = Array("Error Number:" & CStr(Err.Number),Err.Description)
    CmdPrompt = alines
    Message.style.visibility="visible"
    document.body.style.cursor = "default"
    TraceOut.InnerHTML = alines 
End Function
 
Sub Execution()
Message.InnerHTML = "<center><hr noshode color=""#000000""><b><font color='DarkOrange' size='5'>Détermination de l'itinéraire vers "&T1.Value&" </font><hr noshode color=""#000000"">"
document.body.style.cursor = "wait"
Call CmdPrompt("Tracert "&T1.Value&"")
End Sub
 
</script>
<body bgcolor="#12345678" text=white>
<center><font size=3 face="Century Gothic, Tahoma, Arial" color="White">
<p><b>Traceroute</b><hr noshode color="#000000"><br>
    <p>Nom de la Hôte ou bien son adresse IP: <input type="text" size="25" name="T1" Value="www.developpez.com"></font></center>
    <center><p><input type="submit" name="B1" value="Tracer la Hôte"  onclick="Execution()"></p></center>
    <span id ="Message"><hr noshode color="#000000"></span>
<font size=3 face="Century Gothic, Tahoma, Arial" color="White"><div id=TraceOut></div></font>
</body>

19/09/2012, 18h55
omen999

pour le sake of knowledge :mrgreen:, quelques précisions sur le pourquoi et le comment :
la méthode Exec de l'objet Shell n'accepte pas de paramètre permettant de contrôler
l'apparence de la fenêtre de l'interpréteur de commande, d'où le souci "cosmétique" rencontré

en revanche, si la méthode Run prévoit bien cette possibilité, elle ne permet pas comme Exec
de récupérer par un pipe les données éventuellement renvoyées par le programme :aie:
le bricolage proposé ici consiste donc à rediriger les données dans un fichier texte
temporaire qui sera ensuite lu par le script appelant

concernant ton code, je sais bien que tu es le roi du copié/collé :? mais tu peux rectifier la ligne 24 sous la forme :

Code:

nRes = oWS.Run(sCmdLine & Chr(34) & sTemp & Chr(34),0,True)

:merci: omen999 pour vos remarques :mouarf: :zoubi: :ccool:

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
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
<html>
<head><title>Traceroute</title>
<HTA:APPLICATION ID="oHTA";
  APPLICATIONNAME="Traceroute";
  BORDER="thin";
  SCROLL="yes"
  SINGLEINSTANCE="yes"
  WINDOWSTATE="Maximize"
  icon="verifier.exe"
>
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<script language="VBScript" type="text/vbscript">
Function CmdPrompt(sCmd)
  Dim strOut,alines, sCmdLine, stemp, ofs, oWS, nRes
  sCmdLine = """%comspec%"" /c " & sCmd & " 1>> "
  set ofs = CreateObject("Scripting.FileSystemObject")
  stemp = ofs.GetTempName
  set oWS = CreateObject("Wscript.Shell")
  stemp = oWS.Environment("PROCESS")("TEMP") & "\" & stemp
  nRes = oWS.Run(sCmdLine & Chr(34) & sTemp & Chr(34),0,True)
  if ofs.FileExists(sTemp) Then
    with ofs.OpenTextFile(stemp)
      if Not .AtEndofStream Then
        alines = aLines & .ReadAll
        alines = Replace(aLines,"‚","é")
        alines = Replace(alines,VbNewLine,"<br>")
        Message.style.visibility="visible"
        document.body.style.cursor = "default"
        TraceOut.InnerHTML = aLines
      End if
    End With
    ofs.DeleteFile stemp
    alines = Split(aLines, vbNewline)
   Else
    aLines = Array(nRes, "")
  End if
  ReDim Preserve alines(Ubound(alines) - 1)
  if Err.Number <> 0 Then _
    aLines = Array("Error Number:" & CStr(Err.Number),Err.Description)
    CmdPrompt = alines
    Message.style.visibility="visible"
    document.body.style.cursor = "default"
    TraceOut.InnerHTML = alines 
End Function
 
Sub Execution()
Message.InnerHTML = "<center><hr noshode color=""#000000""><b><font color='DarkOrange' size='5'>Détermination de l'itinéraire vers "&T1.Value&" </font><hr noshode color=""#000000"">"
document.body.style.cursor = "wait"
Call CmdPrompt("Tracert "&T1.Value&"")
End Sub
</script>
<body bgcolor="#12345678" text=white>
<center><font size=3 face="Century Gothic, Tahoma, Arial" color="White">
<p><b>Traceroute</b><hr noshode color="#000000"><br>
    <p>Nom de la Hôte ou bien son adresse IP: <input type="text" size="25" name="T1" Value="www.tek-tips.com"></font></center>
    <center><p><input type="submit" name="B1" value="Tracer la Hôte"  onclick="Execution()"></p></center>
    <span id ="Message"><hr noshode color="#000000"></span>
<font size=3 face="Century Gothic, Tahoma, Arial" color="White"><div id=TraceOut></div></font>
</body>