'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