Execution d'un VB en silencieux

Question

Bien le bonjour de nouveau.

Je voulais savoir quel était la commande pour pouvoir executer un code VB en "silence".

Voici mon code :

 
Function ping(serv)
 
 strComputer = serv
 Set objShell = CreateObject("WScript.Shell")
 Set objScriptExec = objShell.Exec( _
 "ping -n 2 -w 1000 " &amp; strComputer)
 strPingResults = LCase(objScriptExec.StdOut.ReadAll)
       
 
 End Function



Private Sub Command3_Click()

 Call ping("toto" &amp; code &amp; "blabla")
 ' Reponse du ping
         If InStr(strPingResults, "perdus = 0") Then
            MsgBox "IP valide"
            Command1.Enabled = True
            servco = "titi"
            MsgBox servco
     
         Else
*****************************


Déjà est ce que c'est dans la fonction qu'on renseigne ceci...ou sur le bouton On_Click...?

En executant cela, nous verrons des fenetres MS DOS qui vont apparaitre, pas longtemps, mais quelques secondes...

Merci d'avance pour vos réponses,

Cordialement*

Renfield · Answer

Vous êtes ici : Thèmes / VB.NET et VB 2005 /

tu m'a l'air de faire du VB6....

regarde la source:
http://www.vbfrance.com/codes/PING-VB-CINQ-FACONS-PROCEDER_36588.aspx

tu aura d'autre manières d'effectuer un Ping

belgam95 · Answer

Oup's autant pour moi. Oui c'est bien du VB6 que je fais, mais bon, la méthode que j'utilise fonctionne ( tes méthode cela dit, sont pas mal du tout).

Sinon pour la réponse, je veux juste savoir la commande à utiliser pour mettre en silencieux cette execution.

Cordialement*

Renfield · Answer

pas sur que tu puisse... tout en récupérant toujours la sortie...

cs_rt15 · Answer

Salut,


Regarde ce source.


La commande DOS, dans ton cas, c'est : 
ping -n 2 -w 1000 " & strComputer

Le reste, c'est plus du vbs que du vb6...
<hr size="2" width="100%" />3ème année en ecole d'ingé d'info cherche stage de 4 mois à partir du 01/04/08

VBGenesis · Answer

Désolé si je joue le boulet du jour, mais c'est quoi exactement executer un programme "en silence"? L'exécuter en arrière-plan de facon transparente? C'est simplement par curiosité 
Merci d'avance
VBGenesis

Renfield · Answer

sans interface visible

Renfield
Admin CodeS-SourceS- MVP Visual Basic

VBGenesis · Answer

Ok merci

Execution d'un VB en silencieux

7 réponses

Votre réponse

Discussions similaires