• Aide à la navigation du site
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • RSS CodeS-SourceS
  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
begin process at 2008 07 04 01:01:13
1 204 456 membres
3 nouveaux aujourd'hui
14 114 membres club
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ACTIVEX POUR RÉCUPÉRER LA SORTIE DU DOS


Information sur la source

Catégorie :Exécution Niveau : Initié Date de création : 20/02/2005 Vu / téléchargé: 10 676 / 1 406
Auteur : cbnet Site perso
Ecrire un message privé
Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

Description

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...
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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 !
    @+

  • signaler à un administrateur
    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...

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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

Pub



Appels d'offres

Travail graphique- ill...
Budget : 1 000€
creation de marque et ...
Budget : 1 000€
referencement et posit...
Budget : ND

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS
Nos partenaires et amis ;-)
Feed247,com Toute l'actu Internet 24h/24 7J/7 ASP MAGAZINE TechHeadBrothers.com ASP-PHP.NET Visual Basic - Centre de développement Dotnet-News.com


Dev réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND, Bidou, Nurgle
Base de données maintenue par Christian, Design réalisé par Guillaume, Mascotte réalisée par N.SOREL (Nix) & KDO-Comception
VBFrance.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
Hébergement de Serveur dédié - Téléphonie VOIP - Comparer les prix - Envoyer des ecards gratuit - Icones
Temps d'éxécution de la page : 0,1563-4sec
Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.