Question

VBS中怎么将inputbox输入的值进行输出

为了方便自己工作，我常常要将一批产品批号导入专门的系统里，我先前是设定将批号全都放表格里，然后模拟按键切换窗口来复制批号，可是当心产品数量及一些明显的不良出现，所以我扫过一次批号后还得检察一下产品，我感觉还能进一步减化，因为之前纯输入批号，然后输数量等信息，其它信息都一样，所以我是用模拟按键，可是批号都不一样。以我想用一个窗口来给批号斌个值，但是我弄了 Inputbox 来保存批号，却不知道怎么将它以模拟按键的形式发送来，有高手可以帮我解决吗？
例如：

dim a,WshShell '申明变量 a是产品批号
do
Set WshShell=CreateObject("WScript.Shell")
b=inputbox("请输入每盘产品数量")
a=inputbox("请输入批号:")'当输入 0 时结束此循环
if a=0 then
msgbox("结束自动输入")
else

msgbox("自动输入条码命令")
WshShell.SendKeys "(a)" '这里我想将批号输出，可是要怎么做到呢？批号是好几位数
end if
loop

有高手知道怎么做吗？急求解答
可是是数字加字母的啊。

Answer 1

如果是纯数字的话,改成
WshShell.SendKeys a

加引号表示字符，不加则是变量

Answer 2

1.连续几个SendKeys
2.剪贴板