[问题求助] VBS为什么msgbox不出来？

jyswjjgdwtdtj

set ws=createobject("wscript.shell")
set pro=ws.exec("wscript 1.vbs")
do
msgbox pro.stdout.atendofstream
if not pro.stdout.atendofstream then
msgbox pro.stdout.readall
end if
if not pro.stderr.atendofstream then
msgbox pro.stderr.readall
end if
if pro.stdout.atendofstream and pro.stderr.atendofstream and pro.status=0 then
pro.stdin.writeline(inputbox("stdin"))
end if
loop
复制代码

1.vbs内容：

a=wscript.stdin.readline()
wscript.stdout.writeline(123)
wscript.stdout.write(1231)
复制代码

doloop里第一句的msgbox就msgbox不出来
但是如果换成msgbox 1就可以
为什么呢
这句句子里只要带了pro.stdout.atendofstream 不管写啥都不会执行
比如我写msgbox asdfasdfbvjkxvl(pro.stdout.atendofstream)

jyswjjgdwtdtj

回复 4# czjt1234


    嗯 有道理 之后去用vb试试 看看是不是wscript.exe的问题

czjt1234

wscript.exe才多大个文件，你上次发的帖，微软还计划马上默认不支持vbs
这玩意有点bug很正常么
就象你上次发的，读取mediaplay.lnk的备注会出错一样

jyswjjgdwtdtj

回复 2# czjt1234


    1.实际上是能用的 你可以去看我发在文字消遣里的“神奇的exec”
2.哪怕不能用msgbox为什么失效了？

czjt1234

stdout  只在 cmd.exe 命令提示符环境中有效