[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
mnokoko

Rank: 1

帖子
21 
积分
38 
技术
0  
捐助
0  
注册时间
2021-10-13 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2023-12-18 10:49 | 只看该作者

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

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

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


剩下的我就不懂了

感谢帮助！
收藏 分享

czjt1234

Rank: 6Rank: 6

帖子
1048 
积分
1549 
技术
112  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2023-12-18 11:04 | 只看该作者 
  1. dim fname, oWshShell

  2. Set oWshShell = CreateObject("WScript.Shell")

  3. fname = InputBox("Enter your name:")

  4. fname = """" & fname & """"

  5. oWshShell.Run "gogo.exe " & fname
复制代码
如果gogo.exe能处理命令行参数

QQ 20147578

TOP

ShowCode

Rank: 8Rank: 8

帖子
567 
积分
1151 
技术
91  
捐助
298  
注册时间
2017-3-17 
3楼
发表于 2023-12-18 11:04 | 只看该作者
回复 1# mnokoko 
  1. Dim fname

  2. fname = InputBox("Enter your name:")

  3. Set WshShell = WScript.CreateObject("WScript.Shell")

  4. WshShell.Run "C:\Test\gogo.exe " & fname
复制代码
测试代码之前请做好备份

TOP

mnokoko

Rank: 1

帖子
21 
积分
38 
技术
0  
捐助
0  
注册时间
2021-10-13 
4楼
发表于 2023-12-18 11:31 | 只看该作者
回复 2# czjt1234


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

TOP

mnokoko

Rank: 1

帖子
21 
积分
38 
技术
0  
捐助
0  
注册时间
2021-10-13 
5楼
发表于 2023-12-18 11:31 | 只看该作者
回复 3# ShowCode

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

TOP

mnokoko

Rank: 1

帖子
21 
积分
38 
技术
0  
捐助
0  
注册时间
2021-10-13 
6楼
发表于 2023-12-18 11:35 | 只看该作者
回复 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"这句变量怎么写？

TOP

czjt1234

Rank: 6Rank: 6

帖子
1048 
积分
1549 
技术
112  
捐助
0  
注册时间
2010-4-30 
7楼
发表于 2023-12-18 13:09 | 只看该作者
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

QQ 20147578

TOP

返回列表