Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic vb 6 et fenêtre dos

vb 6 et fenêtre dos

6 réponses
Avatar
Mo
Salut,

d'abord je voudrais dire que je novice en vb, mais j'ai tout de même fait
quelques outils en vb, donc je connais au moiins les bases.

Je voudrais créer un petit exe qui attaque la base de registre et au moins
pour pouvoir débugger à la traditionnelle j'imerais pouvoir faire des
sorties dans une fenêtre dos, comment faire?

Merci d'avance, Mo
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Alain CROS
Bonjour.

Pour faire des sorties dans une fenêtre dos :

Private Declare Function WriteConsole& _
Lib "kernel32" Alias "WriteConsoleA" _
(ByVal hConsoleOutput&, ByRef lpBuffer As Any, ByVal nNumberOfCharsToWrite&, _
ByRef lpNumberOfCharsWritten&, ByRef lpReserved As Any)

Private Declare Function SetConsoleTitle& _
Lib "kernel32" Alias "SetConsoleTitleA" _
(ByVal lpConsoleTitle$)

Private Declare Function AllocConsole& _
Lib "kernel32" _
()

Private Declare Function FreeConsole& _
Lib "kernel32" _
()

Private Declare Function GetStdHandle& _
Lib "kernel32" _
(ByVal nStdHandle&)

Private Declare Function GetTickCount& _
Lib "kernel32" _
()

Sub Demo_WriteConsole()
Const STD_OUTPUT_HANDLE& = -11&
Dim Titre$, Texte$, I&, Hwnd&
Titre = "Utilisation de WriteConsole"
Texte = "Un message pendant cinq secondes!"
If AllocConsole Then
SetConsoleTitle ByVal Titre
Hwnd = GetStdHandle(STD_OUTPUT_HANDLE)
WriteConsole Hwnd, ByVal Texte, Len(Texte), I, 0&
I = GetTickCount
Do
Loop Until GetTickCount - I > 5000&
FreeConsole
Else
MsgBox "L'opération a échouée", vbCritical, Titre
End If
End Sub

Alain CROS

"Mo" a écrit dans le message de news:
| Salut,
|
| d'abord je voudrais dire que je novice en vb, mais j'ai tout de même fait
| quelques outils en vb, donc je connais au moiins les bases.
|
| Je voudrais créer un petit exe qui attaque la base de registre et au moins
| pour pouvoir débugger à la traditionnelle j'imerais pouvoir faire des
| sorties dans une fenêtre dos, comment faire?
|
| Merci d'avance, Mo
|
|
Avatar
Fred
Dans : news:,
Mo disait :
Salut,



Salut,

[...]
Je voudrais créer un petit exe qui attaque la base de registre et au
moins pour pouvoir débugger à la traditionnelle j'imerais pouvoir
faire des sorties dans une fenêtre dos, comment faire?




En complément aux API.
Si c'est juste pour débugger, il y a l'objet Debug qui écrit dans la
fenêtre immediate de l'IDE. Mais peut-être que tu veux débugger en
dehors de l'IDE.


--
Fred
http://www.cerbermail.com/?3kA6ftaCvT
Avatar
Mo
Ok je vais essayer.
Il me reste quand même une question, lorsque je vais créer un nouveau projet
VB il y aura quand même un formulaire par défaut je le passe quand même en
invisible?

Merci d'avance


"Alain CROS" a écrit dans le message de news:
%
Bonjour.

Pour faire des sorties dans une fenêtre dos :

Private Declare Function WriteConsole& _
Lib "kernel32" Alias "WriteConsoleA" _
(ByVal hConsoleOutput&, ByRef lpBuffer As Any, ByVal
nNumberOfCharsToWrite&, _
ByRef lpNumberOfCharsWritten&, ByRef lpReserved As Any)

Private Declare Function SetConsoleTitle& _
Lib "kernel32" Alias "SetConsoleTitleA" _
(ByVal lpConsoleTitle$)

Private Declare Function AllocConsole& _
Lib "kernel32" _
()

Private Declare Function FreeConsole& _
Lib "kernel32" _
()

Private Declare Function GetStdHandle& _
Lib "kernel32" _
(ByVal nStdHandle&)

Private Declare Function GetTickCount& _
Lib "kernel32" _
()

Sub Demo_WriteConsole()
Const STD_OUTPUT_HANDLE& = -11&
Dim Titre$, Texte$, I&, Hwnd&
Titre = "Utilisation de WriteConsole"
Texte = "Un message pendant cinq secondes!"
If AllocConsole Then
SetConsoleTitle ByVal Titre
Hwnd = GetStdHandle(STD_OUTPUT_HANDLE)
WriteConsole Hwnd, ByVal Texte, Len(Texte), I, 0&
I = GetTickCount
Do
Loop Until GetTickCount - I > 5000&
FreeConsole
Else
MsgBox "L'opération a échouée", vbCritical, Titre
End If
End Sub

Alain CROS

"Mo" a écrit dans le message de news:

| Salut,
|
| d'abord je voudrais dire que je novice en vb, mais j'ai tout de même
fait
| quelques outils en vb, donc je connais au moiins les bases.
|
| Je voudrais créer un petit exe qui attaque la base de registre et au
moins
| pour pouvoir débugger à la traditionnelle j'imerais pouvoir faire des
| sorties dans une fenêtre dos, comment faire?
|
| Merci d'avance, Mo
|
|




Avatar
Mo
En fait le but c'est de créer un exe vb avec les sorties standards
redirigées vers la fenêtre dos qui la lance. Est-ce possible avec cette
exemple?
et merci encore

@+


"Alain CROS" a écrit dans le message de news:
%
Bonjour.

Pour faire des sorties dans une fenêtre dos :

Private Declare Function WriteConsole& _
Lib "kernel32" Alias "WriteConsoleA" _
(ByVal hConsoleOutput&, ByRef lpBuffer As Any, ByVal
nNumberOfCharsToWrite&, _
ByRef lpNumberOfCharsWritten&, ByRef lpReserved As Any)

Private Declare Function SetConsoleTitle& _
Lib "kernel32" Alias "SetConsoleTitleA" _
(ByVal lpConsoleTitle$)

Private Declare Function AllocConsole& _
Lib "kernel32" _
()

Private Declare Function FreeConsole& _
Lib "kernel32" _
()

Private Declare Function GetStdHandle& _
Lib "kernel32" _
(ByVal nStdHandle&)

Private Declare Function GetTickCount& _
Lib "kernel32" _
()

Sub Demo_WriteConsole()
Const STD_OUTPUT_HANDLE& = -11&
Dim Titre$, Texte$, I&, Hwnd&
Titre = "Utilisation de WriteConsole"
Texte = "Un message pendant cinq secondes!"
If AllocConsole Then
SetConsoleTitle ByVal Titre
Hwnd = GetStdHandle(STD_OUTPUT_HANDLE)
WriteConsole Hwnd, ByVal Texte, Len(Texte), I, 0&
I = GetTickCount
Do
Loop Until GetTickCount - I > 5000&
FreeConsole
Else
MsgBox "L'opération a échouée", vbCritical, Titre
End If
End Sub

Alain CROS

"Mo" a écrit dans le message de news:

| Salut,
|
| d'abord je voudrais dire que je novice en vb, mais j'ai tout de même
fait
| quelques outils en vb, donc je connais au moiins les bases.
|
| Je voudrais créer un petit exe qui attaque la base de registre et au
moins
| pour pouvoir débugger à la traditionnelle j'imerais pouvoir faire des
| sorties dans une fenêtre dos, comment faire?
|
| Merci d'avance, Mo
|
|




Avatar
Mo
Excuse-moi, je suppose que c'est la fonction GetStdHandle


@+

"Mo" a écrit dans le message de news:

En fait le but c'est de créer un exe vb avec les sorties standards
redirigées vers la fenêtre dos qui la lance. Est-ce possible avec cette
exemple?
et merci encore

@+


"Alain CROS" a écrit dans le message de news:
%
Bonjour.

Pour faire des sorties dans une fenêtre dos :

Private Declare Function WriteConsole& _
Lib "kernel32" Alias "WriteConsoleA" _
(ByVal hConsoleOutput&, ByRef lpBuffer As Any, ByVal
nNumberOfCharsToWrite&, _
ByRef lpNumberOfCharsWritten&, ByRef lpReserved As Any)

Private Declare Function SetConsoleTitle& _
Lib "kernel32" Alias "SetConsoleTitleA" _
(ByVal lpConsoleTitle$)

Private Declare Function AllocConsole& _
Lib "kernel32" _
()

Private Declare Function FreeConsole& _
Lib "kernel32" _
()

Private Declare Function GetStdHandle& _
Lib "kernel32" _
(ByVal nStdHandle&)

Private Declare Function GetTickCount& _
Lib "kernel32" _
()

Sub Demo_WriteConsole()
Const STD_OUTPUT_HANDLE& = -11&
Dim Titre$, Texte$, I&, Hwnd&
Titre = "Utilisation de WriteConsole"
Texte = "Un message pendant cinq secondes!"
If AllocConsole Then
SetConsoleTitle ByVal Titre
Hwnd = GetStdHandle(STD_OUTPUT_HANDLE)
WriteConsole Hwnd, ByVal Texte, Len(Texte), I, 0&
I = GetTickCount
Do
Loop Until GetTickCount - I > 5000&
FreeConsole
Else
MsgBox "L'opération a échouée", vbCritical, Titre
End If
End Sub

Alain CROS

"Mo" a écrit dans le message de news:

| Salut,
|
| d'abord je voudrais dire que je novice en vb, mais j'ai tout de même
fait
| quelques outils en vb, donc je connais au moiins les bases.
|
| Je voudrais créer un petit exe qui attaque la base de registre et au
moins
| pour pouvoir débugger à la traditionnelle j'imerais pouvoir faire des
| sorties dans une fenêtre dos, comment faire?
|
| Merci d'avance, Mo
|
|








Avatar
Mo
en tout ca merci j'ai réussi à faire ce que je voulais

@+


"Mo" a écrit dans le message de news:

Salut,

d'abord je voudrais dire que je novice en vb, mais j'ai tout de même fait
quelques outils en vb, donc je connais au moiins les bases.

Je voudrais créer un petit exe qui attaque la base de registre et au moins
pour pouvoir débugger à la traditionnelle j'imerais pouvoir faire des
sorties dans une fenêtre dos, comment faire?

Merci d'avance, Mo