ACTIVEX POUR RÉCUPÉRER LA SORTIE DU DOS
cs_Warny
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015
-
21 févr. 2005 à 14:41
MickeyDoom Messages postés 8 Date d'inscription mardi 25 mai 2004 Statut Membre Dernière intervention 15 septembre 2011 - 2 sept. 2006 à 09:48
MickeyDoom Messages postés 8 Date d'inscription mardi 25 mai 2004 Statut Membre Dernière intervention 15 septembre 2011 - 2 sept. 2006 à 09:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/29674-activex-pour-recuperer-la-sortie-du-dos
https://codes-sources.commentcamarche.net/source/29674-activex-pour-recuperer-la-sortie-du-dos
2 sept. 2006 à 09:48
En modifiant la function execute du controle de :
If Ret <> 1 Then
'Au cas ou la commande/fichier n'existe pas
RaiseEvent Error("Commande et/ou fichier inexistants.")
Exit Function
End If
en ça
If Ret <> 1 Then
'Au cas ou la commande/fichier n'existe pas
Ret& = CreateProcessA(0&, "cmd /c " & myCommand, SA, SA, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, Start, Proc)
If Ret <> 1 Then
RaiseEvent Error("Commande et/ou fichier inexistants.")
Exit Function
End If
End If
c'est parfait, ça permet d'executer les commande interne de cmd.exe comme dir, copy, ver, set ...
++
21 févr. 2005 à 18:14
Si tu fais les liaisons dans le projet et que tu déclares tes variables correctement (early binding) ça rendra le système plus efficace (10 à 20x plus rapide) et infiniment plus economique (8x moins de mémoire pour chaque déclaration). Mais bien sûr moins efficace qu'un appel API
21 févr. 2005 à 18:09
21 févr. 2005 à 18:07
Mais merci pour ta solution, je vais la tester quand même !
@+
21 févr. 2005 à 14:41
set wsshell = createobect("wscript.shell")
set exec = wsshell.exec("toto.com")
do
doevents
out = out & exec.stdout.readall
... 'traitements particuliers
while exec.statut=0
out = out & exec.stdout.readall