Discussion :

[yuan]

Bonjour à tous,

Je voudrais s'il est possible de créer un .EXE avec VB6 qui ne lance pas d'interface graphique. Comme un programme lancé à partir d'une fenêtre DOS.

Autre question corollaire : comment faire pour écrire des choses sur la sortie standard (stdout) ?

Merci pour votre aide.

[méphistopheles]

q'entend -tu pasr pas d'interface graphique? i tu veux lancer une fenetre dos, tu peux, et pour cacher tes feuille, regarde du coté de hide, mais je vois pas trop à quoi ça sert d'utiliser vb dans ce cas.

[jacma]

Document ActiveX

[Le Pharaon]

Je crois qu'il veut dire une application de type console
Regarde ici

[yuan]

Oui, c'est bien cela : je veux créer une application de type console qui s'exécute dans une fenêtre DOS.

Merci pour le lien, cela répond bien à ma question ; mais il me manque encore la méthode pour écrire du texte dans la fenêtre DOS.

Une idée ?

[yuan]

Bon voilà ce que j'ai trouvé. C'est un peu lourd mais cela fonctionne.
Si quelqu'un a quelque chose de plus "smart" qu'il n'hésite surtout pas ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) _
    As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, _
    lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, _
    lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
 
Private Const STD_OUTPUT_HANDLE = -11&
 
 
Sub WriteToStdOutput(ByVal Text As String)
    Dim hStdOut As Long
    Dim ret As Long
    Dim bytesWritten As Long
 
    ' Obtention de l'objet pour le canal de sortie standard
    hStdOut = GetStdHandle(STD_OUTPUT_HANDLE)
 
    ' Ecriture sur le canal de sortie standard
    ret = WriteFile(hStdOut, ByVal Text, Len(Text), bytesWritten, ByVal 0&)
 
    ' Gestion des erreur
    If ret = 0 Then
        Err.Raise 1001, , "Unable to write to standard output"
    ElseIf bytesWritten < Len(Text) Then
        Err.Raise 1002, , "Incomplete write operation"
    End If
End Sub
 
Sub Main()
  WriteToStdOutput ("coucou")
End Sub

Puis il faut générer le .EXE et ensuite modifier l'exe avec la ligne de commande suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"c:\program files\Microsoft visual studio\vb98\link.exe" /edit /subsystem:console votre-fichier.exe