[问题求助] VBS获取用户输入作为变量并传递给另一个EXE程序

mnokoko

具体如下：
用户输入字串符，比如1234567890
把这串数字传递给gogo.exe程序

dim fname
fname=InputBox("Enter your name:")


剩下的我就不懂了

感谢帮助！

czjt1234

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

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

ShowCode

回复 1# mnokoko

Dim fname
fname = InputBox("Enter your name:")
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\Test\gogo.exe " & fname
复制代码

mnokoko

回复 2# czjt1234


    如果用下面这种方式传递呢？
oWshShell.sendkeys 用户输入
oWshShell.sendkeys "{enter}"
wscript.quit

mnokoko

回复 3# ShowCode

接收不到参数，如果用下面这种呢？
oWshShell.sendkeys fname
oWshShell.sendkeys "{enter}"
wscript.quit

mnokoko

回复 5# mnokoko


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

用这种方式可以，但是wshshell.sendkeys "1234567890"这句变量怎么写？

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