Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 02:29:31

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

RE : PROBLEME VB6 par xanasx

PROBLEME VB6 par xanasx

SALUT par hachem100

RE : ECHEC SUPPRESSION LIGNE SOUS CONDITION DE LA PREMIERE CELLULE par pile_poil

+ de logiciels à télécharger

1 467 608 membres
28 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 668 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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é: 13 649 / 1 576

Auteur : cbnet

Site perso

Ecrire un message privé

Note :

9,00 / 10

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Demo.frm 2 910 octets
ShDemo.vbg62 octets
Shell.exp678 octets
Shell.lib3 992 octets
Shell.oca9 728 octets
Shell.ocx14 848 octets
Shell.vbp 836 octets
Shell.vbw 53 octets
ShellDemo.exe10 752 octets
ShellDemo.vbp 808 octets
ShellDemo.vbw 51 octets
WinShell.ctl 5 824 octets

Télécharger le zip

Sources du même auteur

ACTIVEX SMTP (OCX)

LISTAGE RECURSIF DE FICHIERS D'UN DOSSIER (AVEC UNE CLASSE !...

Toutes les sources de cbnet

Sources de la même categorie

CODE DE COULEURS DES RÉSISTANCES par houss77

DUAL LANGUAGE VB6 DEVELOPPEZ EN FRANÇAIS COMPILEZ EN ANGLAIS... par deleplace

PATCHER LE COMPILATEUR VB6 POUR QU'IL COMPILE DES EXES AUTON... par deleplace

SUPPRESSEUR DE LA DÉPENDACE À VB6FR.DLL REND LES EXES VB6 AU... par deleplace

CRÉATEUR DE LANCEUR DE LOGICIEL DANS UN DOSSIER TEMPORAIRE E... par deleplace

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