ECRIRE DANS UNE CONSOLE AVEC VISUAL BASIC (WRITE IN A CONSOLE WITH VB) dos, console, shell, write, ecrire, Source N°42815

Information sur la source

Catégorie :Shell Classé sous : dos, console, shell, write, ecrire Niveau : Initié Date de création : 23/05/2007 Date de mise à jour : 23/05/2007 16:40:21 Vu : 6 143

Auteur : burster42

Site perso

Ecrire un message privé

Note :

8,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Le code ci-dessous est relativement court pour des raisons de clarté. Il vous permettera d'afficher un message dans une console DOS.
Le programme devra être lancé dans une console DOS et non directement (sinon ça quittera tout seul).

The following code above is relatively short for the comprehension. It allows you to display a message in DOS console.
This program have to be launch in a DOS console and not directly (otherwise it will exit)

Source

Option Explicit
Private Declare Function FreeConsole Lib "kernel32" () As Long
Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Private Declare Function SetConsoleTitle Lib "kernel32" Alias "SetConsoleTitleA" (ByVal lpConsoleTitle As String) As Long
Private Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, ByVal lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long
Private Declare Function AttachConsole Lib "kernel32" (ByVal dwProcessId As Long) As Long
Private Const STD_OUTPUT_HANDLE = -11&
'Handle du programme parent (console)
Private hConsole As Long
Sub Main()
'On attache le programme à la console parent
If (AttachConsole(-1&) = 0) Then Exit Sub
'On capture le handle de la sortie standard
hConsole = GetStdHandle(STD_OUTPUT_HANDLE)
'On définit un titre à la fenetre en cours
SetConsoleTitle "Hello World!"
'On affiche un message
ConsolePrint "Hello World!" & vbCrLf
'On se détache du processus parent
FreeConsole
End Sub
Private Sub ConsolePrint(MsgOut As String)
WriteConsole hConsole, MsgOut, Len(MsgOut), vbNull, vbNull
End Sub

Option Explicit

Private Declare Function FreeConsole Lib "kernel32" () As Long
Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Private Declare Function SetConsoleTitle Lib "kernel32" Alias "SetConsoleTitleA" (ByVal lpConsoleTitle As String) As Long
Private Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, ByVal lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long
Private Declare Function AttachConsole Lib "kernel32" (ByVal dwProcessId As Long) As Long
Private Const STD_OUTPUT_HANDLE = -11&

'Handle du programme parent (console)
Private hConsole As Long
Sub Main()
    'On attache le programme à la console parent
    If (AttachConsole(-1&) = 0) Then Exit Sub
           
    'On capture le handle de la sortie standard
    hConsole = GetStdHandle(STD_OUTPUT_HANDLE)
    
    'On définit un titre à la fenetre en cours
    SetConsoleTitle "Hello World!"
    
    'On affiche un message
    ConsolePrint "Hello World!" & vbCrLf
    
    'On se détache du processus parent
    FreeConsole
End Sub
Private Sub ConsolePrint(MsgOut As String)
    WriteConsole hConsole, MsgOut, Len(MsgOut), vbNull, vbNull
End Sub

Conclusion

Ce programme affichera "Hello World" dans la console DOS.

Ici seul la méthode 'AttachConsole' a été utilisé.

On aurait pu créér une console indépendante en utilisant la méthode Alloc avec le prototype suivant:
Private Declare Function AllocConsole Lib "kernel32" () As Long

Historique

23 mai 2007 16:40:21 :: -Petite erreur de saisie corrigée ;)

Sources du même auteur

CONFIGURATION IP ALTERNATIVE AVEC DHCP ACTIF (ALTERNATE IP)

Toutes les sources de burster42

Sources de la même categorie

Toutes les sources de la catégorie Shell

Sources en rapport avec celle ci

Commentaires

Commentaire de MadM@tt le 23/05/2007 18:34:05

Code très interessant !
Merci je ne connaissais pas
Commentaire de EBArtSoft le 23/05/2007 22:26:13 administrateur CS

deja sur le site en au moins 10 exemplaires. On ne le dira jamais assez faite une petite recherche avant de poster,

enfin bref... :)
Commentaire de waluigii le 24/05/2007 01:24:18

Slt,

Code très intéressant: je l'accorde... mais EBARTSOFT a tout à fait raison sur ça...!

@+
Commentaire de sikimyway le 25/05/2007 19:11:52

merci de votre aide que DIEU vous benisse.
votre code est très passionnant.
Commentaire de burster42 le 26/05/2007 10:30:20

Bonjour à vous tous et merci pour vos commentaires.
Je suis entièrement d'accord avec toi EBartSoft mais leur code n'était pas aussi simple à comprendre que le mien. J'ai vraiment mis que le nécessaire pour pouvoir comprendre l'essentiel.

A bientôt ;-)
Commentaire de zifnig le 28/05/2007 08:58:10

C'est tout à fait ce que je cherchais et bien qu'il existait d'autres exemples sur codesources, ils ne cadraient pas avec ce que je cherchais.

Merci burster42.
Commentaire de EvildarkEurope le 21/08/2007 19:36:21

Super code
A+

Ajouter un commentaire

Discussions en rapport avec ce code source

AIDE TRES URGENT SVP SUR COMMANDE DOS SHELL par fakiridim

DOS avec shell?? par psycomel

Shell avec prog DOS par jbdiogon

Console DOS par diablamanshadow

Pb Shell fenetre ms-dos par rastabegood

console.write VB.NET par ErB

Pb avec Shell par Vince41

Console Dos en VB par boudreauluc

URGENT : Ecrire aide sur fenêtre DOS par Adrien

Récupérer le résultat d'une commande DOS par JFF