Comment cacher l'invite CMD sur ce HTA?

**hackoofr** · 15/09/2012, 02h39

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

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
<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>

**omen999** · 17/09/2012, 11h22

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

**hackoofr** · 18/09/2012, 20h44

Envoyé par omen999

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

omen999 pour ce lien

Problème est donc

Voila donc ma version et s'il ya des remarques n'hésitez 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
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>

**omen999** · 19/09/2012, 18h55

pour le sake of knowledge

, 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

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 :

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

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

**hackoofr** · 21/09/2012, 00h34

omen999 pour vos remarques

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
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>

Comment cacher l'invite CMD sur ce HTA?

VBScript

Discussions similaires

Partager

Partager