czjt1234

dim fname, oWshShell
Set oWshShell = CreateObject("WScript.Shell")
fname = InputBox("Enter your name:")
fname = """" & fname & """"
oWshShell.Run "gogo.exe " & fname
复制代码

如果gogo.exe能处理命令行参数

czjt1234

fname = InputBox("Enter your name:")
set wshshell = CreateObject("Wscript.shell")
wshshell.run "c:\test\gogo.exe"
wscript.sleep 1000
wshshell.sendkeys fname
wshshell.sendkeys "{enter}"
wscript.quit