如何瞭解無幫助程序的調用參數

'vb6 代碼

 

Option Explicit
Public Declare Sub OutputDebugString Lib "kernel32" Alias "OutputDebugStringA" (ByVal lpOutputString As String)

Const helpmsg As String = "本程序用於將目標程序的調用參數顯示到“調試信息監視器中”中。用法：請將本程序改名爲目標程序而目標程序名加括號。例：(app).exe"

Sub Main()
  If Command = "/?" Then
    If MsgBox(helpmsg & vbCrLf & "要應用 ‘/?’ 參數調用目標程序嗎？", vbYesNo, "幫助 - 參數觀察程序") = vbNo Then Exit Sub
  End If
  OutputDebugString ("cmd>" & VB.App.EXEName & ".exe " & Command & vbCrLf & vbCrLf)
  Shell "(" & VB.App.EXEName & ").exe " & Command
End Sub