begin process at 2012 02 11 22:30:28
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Exécution

 > ACTIVEX POUR RÉCUPÉRER LA SORTIE DU DOS

ACTIVEX POUR RÉCUPÉRER LA SORTIE DU DOS


 Information sur la source

Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Exécution Niveau :Initié Date de création :20/02/2005 Vu / téléchargé :18 117 / 1 819
Auteur : cbnet

Ecrire un message privé
Site perso
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Cet OCX permet d'exécuter une commande DOS grâce une fonction Excecute, et vous pouvez récupérer la sortie grâce à un évènement généré à la fin de l'éxecution de la commande (ReceiveOutput). Il est donc très simple d'obtenir dans une textbox le résultat d'une commande comme ipconfig, netstat etc...
Pour faire tout ça, je me suis inspiré du travail d'un gars et utilisé les API, je ne passe pas par des sauvegardes temporaires de fichiers textes.
@+


 Conclusion

L'OCX compilé devrait être fonctionnel pour tout le monde. Les sources sont en VB5 et sont normalement compatibles VB6. J'ai mis une petite démo sur l'utilisation de mon ActiveX.

Bugs connus :
- La sortie des vieilles commandes DOS ne rend pas toujours bien, par exemple il remplace des "é" par des virgules etc... On a le même problème quand on enregistre la sortie dans un fichier texte avec les redirections (>).
- Ne vous en servez pas pour exécuter des commandes windows (ex:notepad), ça crashe...

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip ACTIVEX SMTP (OCX)
Source avec Zip LISTAGE RECURSIF DE FICHIERS D'UN DOSSIER (AVEC UNE CLASSE !...
Toutes les sources de cbnet

 Sources de la même categorie

Source avec Zip CALCULATRICE par TPB
Source avec Zip Source .NET (Dotnet) PIERRE PAPIER CISEAUX par Ultrabytes
Source avec Zip Source avec une capture UN PATCH EN VB (V3) par PhoenixBytes
Source avec Zip Source .NET (Dotnet) [VB.NET 2008] EXECUTION MULTITHREAD DE PLUSIEURS FONCTION À ... par ShadowTzu
Source avec Zip Source avec une capture MULTITHREADING ACTIVEX par Philippe734
Toutes les sources de la catégorie Exécution

Commentaires et avis

Commentaire de Warny le 21/02/2005 14:41:01

On peut faire ça depuis windows 2000 de cette façon :
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

Commentaire de cbnet le 21/02/2005 18:07:03

Plus court à taper c'est vrai... mais je ne suis pas passé par la machine script comme dans ton exemple, on me l'a déjà reproché dans une précédente source "ça bouffe trop de mémoire, VB est déjà assez lent comme ça".
Mais merci pour ta solution, je vais la tester quand même !
@+

Commentaire de cbnet le 21/02/2005 18:09:52

Je tiens à préciser à tous ceux qui n'aiment pas les ActiveX (pour des raisons de déploiement souvent), n'oubliez pas que vous pouvez le "convertir" en classe en moins de 5 min, histoire de l'intégrer directement dans votre projet...

Commentaire de Warny le 21/02/2005 18:14:28

En fait, ça bouffe de la mémoire quand tu fais comme l'exemple que je donne ici en late binding.
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

Commentaire de MickeyDoom le 02/09/2006 09:48:53

Salut,
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 ...
++

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Archos 5 Internet Tablette 500 Go
Entre 396€ et 444€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Renewable Energy is Within Reach
Photo Tropical Location With Palm Tree and Woman Holding Umbrella 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,780 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)