控制台输出的问题，还有主函数可以有返回值吗

Question

因为有必要在一个DOS程序里调用VB的程序，请问VB的主函数可以有返回值吗？还有就是怎样在DOS命令提示符下输入：MYEXE.EXE 回车，他就输出一些信息到提示符下呢

Answer 1

1. 应该是不可以的~
VB有两种启动方式：Sub Main()和Form
第一种方式，只允许Sub类型的Main，而不允许Function，所以无法设置返回值；
第二种方式...根本就没地方设置返回值啦...2. VB6不支持控制台程序，不过也许调一些输出到控制台的API可以实现...没试过~
(不过VB .NET已经完全支持Console Application了~)

Answer 2

调用了vb程序，vb程序退出时把结果写进一个文本文件，dos程序从文本文件中读取数据，这样可不可以？还有就是怎样在DOS命令提示符下输入：MYEXE.EXE 回车，他就输出一些信息到提示符下呢你的dos用什么语言写的啊，输出到屏幕的函数应该有吧

Answer 3

1.主函数没有返回值，但可以设置进程的返回值，再从Console中得到。
2.VB的程序可以往一个Console中输出，但这个Console是程序自身打开的进程才行，对于在当前的一个Console中输出目前还不知道怎么处理。

Answer 4

我沒看懂,請說清楚點呀怎樣設置進程的返回值呀,又怎樣Console 中得到呢怎樣就可以向Console中輸出,怎樣輸出呢

Answer 5

VB好象不能。
我用C倒做过。

Answer 6

下面这个程序可能对你有帮助：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
''copy 到记事本，保存为 frmDOSOutput.frm
VERSION 5.00
Begin VB.Form frmDOSOutput 
   Caption         =   "DOS Outputs"
   ClientHeight    =   4590
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7395
   LinkTopic       =   "Form1"
   ScaleHeight     =   4590
   ScaleWidth      =   7395
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtCommand 
      Height          =   285
      Left            =   120
      TabIndex        =   4
      Top             =   360
      Width           =   7095
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Exit"
      Height          =   375
      Left            =   5280
      TabIndex        =   2
      Top             =   4080
      Width           =   1875
   End
   Begin VB.TextBox txtOutputs 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   3135
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   720
      Width           =   7155
   End
   Begin VB.CommandButton cmdExecute 
      Caption         =   "Execute"
      Default         =   -1  'True
      Height          =   375
      Left            =   3240
      TabIndex        =   0
      Top             =   4080
      Width           =   1875
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Command:"
      Height          =   195
      Left            =   120
      TabIndex        =   3
      Top             =   120
      Width           =   750
   End
End
Attribute VB_Name = "frmDOSOutput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = FalseOption ExplicitPrivate WithEvents objDOS As DOSOutputs
Attribute objDOS.VB_VarHelpID = -1Private Sub cmdExecute_Click()
    On Error GoTo errore
    objDOS.CommandLine = txtCommand.Text
    objDOS.ExecuteCommand
    Exit Sub
errore:
    MsgBox (Err.Description & " - " & Err.Source & " - " & CStr(Err.Number))
End SubPrivate Sub cmdExit_Click()
    Set objDOS = Nothing
    End
End SubPrivate Sub Form_Load()
    Set objDOS = New DOSOutputs
End SubPrivate Sub objDOS_ReceiveOutputs(CommandOutputs As String)
    txtOutputs.Text = txtOutputs.Text & CommandOutputs
    DoEvents
    
    'Debug.Print CommandOutputs
    '求掩码
    Dim i As Integer, s As String
    i = InStr(1, CommandOutputs, "Subnet Mask . . . . . . . . . . . : ")
    If i Then
    
        s = Trim(Mid(CommandOutputs, i + Len("Subnet Mask . . . . . . . . . . . : "), 15))
        i = InStr(s, vbTab)
        If i Then
            Me.Caption = Trim(Mid(s, 1, i - 4)) + "@"
        Else
            Me.Caption = Split(s, ".")(0) + "." + Split(s, ".")(1) + "." + Split(s, ".")(2) + "." + CStr(Val(Split(s, ".")(3))) + "@"
        End If
    End If
End SubPrivate Sub txtOutputs_Change()
    txtOutputs.SelStart = Len(txtOutputs.Text)
End Sub

Answer 7

'' copy 到记事本，保存为 DOSOutputs.cls
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "DOSOutputs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit'The CreatePipe function creates an anonymous pipe,
'and returns handles to the read and write ends of the pipe.
Private Declare Function CreatePipe Lib "kernel32" ( _
    phReadPipe As Long, _
    phWritePipe As Long, _
    lpPipeAttributes As Any, _
    ByVal nSize As Long) As Long'Used to read the the pipe filled by the process create
'with the CretaProcessA function
Private Declare Function ReadFile Lib "kernel32" ( _
    ByVal hFile As Long, _
    ByVal lpBuffer As String, _
    ByVal nNumberOfBytesToRead As Long, _
    lpNumberOfBytesRead As Long, _
    ByVal lpOverlapped As Any) As Long'Structure used by the CreateProcessA function
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type'Structure used by the CreateProcessA function
Private Type STARTUPINFO
    cb As Long
    lpReserved As Long
    lpDesktop As Long
    lpTitle As Long
    dwX As Long
    dwY As Long
    dwXSize As Long
    dwYSize As Long
    dwXCountChars As Long
    dwYCountChars As Long
    dwFillAttribute As Long
    dwFlags As Long
    wShowWindow As Integer
    cbReserved2 As Integer
    lpReserved2 As Long
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
End Type'Structure used by the CreateProcessA function
Private Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessID As Long
    dwThreadID As Long
End Type'This function launch the the commend and return the relative process
'into the PRECESS_INFORMATION structure
Private Declare Function CreateProcessA Lib "kernel32" ( _
    ByVal lpApplicationName As Long, _
    ByVal lpCommandLine As String, _
    lpProcessAttributes As SECURITY_ATTRIBUTES, _
    lpThreadAttributes As SECURITY_ATTRIBUTES, _
    ByVal bInheritHandles As Long, _
    ByVal dwCreationFlags As Long, _
    ByVal lpEnvironment As Long, _
    ByVal lpCurrentDirectory As Long, _
    lpStartupInfo As STARTUPINFO, _
    lpProcessInformation As PROCESS_INFORMATION) As Long'Close opened handle
Private Declare Function CloseHandle Lib "kernel32" ( _
    ByVal hHandle As Long) As Long'Consts for the above functions
Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const STARTF_USESTDHANDLES = &H100&
Private Const STARTF_USESHOWWINDOW = &H1
Private mCommand As String          'Private variable for the CommandLine property
Private mOutputs As String          'Private variable for the ReadOnly Outputs property'Event that notify the temporary buffer to the object
Public Event ReceiveOutputs(CommandOutputs As String)'This property set and get the DOS command line
'It's possible to set this property directly from the
'parameter of the ExecuteCommand method
Public Property Let CommandLine(DOSCommand As String)
    mCommand = DOSCommand
End PropertyPublic Property Get CommandLine() As String
    CommandLine = mCommand
End Property'This property ReadOnly get the complete output after
'a command execution
Public Property Get Outputs()
    Outputs = mOutputs
End PropertyPublic Function ExecuteCommand(Optional CommandLine As String) As String
    Dim proc As PROCESS_INFORMATION     'Process info filled by CreateProcessA
    Dim ret As Long                     'long variable for get the return value of the
                                        'API functions
    Dim start As STARTUPINFO            'StartUp Info passed to the CreateProceeeA
                                        'function
    Dim sa As SECURITY_ATTRIBUTES       'Security Attributes passeed to the
                                        'CreateProcessA function
    Dim hReadPipe As Long               'Read Pipe handle created by CreatePipe
    Dim hWritePipe As Long              'Write Pite handle created by CreatePipe
    Dim lngBytesread As Long            'Amount of byte read from the Read Pipe handle
    Dim strBuff As String * 256         'String buffer reading the Pipe    'if the parameter is not empty update the CommandLine property
    If Len(CommandLine) > 0 Then
        mCommand = CommandLine
    End If
    
    'if the command line is empty then exit whit a error message
    If Len(mCommand) = 0 Then
        MsgBox "Command Line empty", vbCritical
        Exit Function
    End If
    
    'Create the Pipe
    sa.nLength = Len(sa)
    sa.bInheritHandle = 1&
    sa.lpSecurityDescriptor = 0&
    ret = CreatePipe(hReadPipe, hWritePipe, sa, 0)
    
    If ret = 0 Then
        'If an error occur during the Pipe creation exit
        MsgBox "CreatePipe failed. Error: " & Err.LastDllError, vbCritical
        Exit Function
    End If
    
    'Launch the command line application
    start.cb = Len(start)
    start.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
    'set the StdOutput and the StdError output to the same Write Pipe handle
    start.hStdOutput = hWritePipe
    start.hStdError = hWritePipe
    'Execute the command
    ret& = CreateProcessA(0&, mCommand, sa, sa, 1&, _
        NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
        
    If ret <> 1 Then
        'if the command is not found ....
        MsgBox "File or command not found", vbCritical
        Exit Function
    End If
    
    'Now We can ... must close the hWritePipe
    ret = CloseHandle(hWritePipe)
    mOutputs = ""
    
    'Read the ReadPipe handle
    Do
        ret = ReadFile(hReadPipe, strBuff, 256, lngBytesread, 0&)
        mOutputs = mOutputs & Left(strBuff, lngBytesread)
        'Send data to the object via ReceiveOutputs event
        RaiseEvent ReceiveOutputs(Left(strBuff, lngBytesread))
    Loop While ret <> 0
    
    'Close the opened handles
    ret = CloseHandle(proc.hProcess)
    ret = CloseHandle(proc.hThread)
    ret = CloseHandle(hReadPipe)
    
    'Return the Outputs property with the entire DOS output
    ExecuteCommand = mOutputs
End Function

Answer 8

wxy_xiaoyu(☆然也☆ =＞ .NET 努力ing)    真强
这个也能写出来，我要仔细看看

Answer 9

最好的办法是，用 QuickBasic 写，或者用 Delphi写控制台程序。
调用 Win32API 里面的几个控制台函数也可以。