中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-11 20:42 		共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术（批处理室） » 在vbs文件中，如何用cmd 调用vbs 的过程
可打印版本 　814 / 4
第1楼　QOIQoc 发表于 2009-05-10 07:20
初级用户　发帖 51　积分 48
在vbs文件中，如何用cmd 调用vbs 的过程
在a.vbs文件中，如何用cmd 调用vbs 的过程 echo1()

Set She = CreATeObJEct("wScrIPt.Shell")
she.run "cmd /c if not exist c:\emai.a " & echo1 & " ",0

sub echo1()
wscript.echo "not running"
end sub

[ Last edited by QOIQoc on 2009-5-10 at 07:22 ]
第2楼　newxso 发表于 2009-05-10 08:48
初级用户　发帖 101　积分 73　来自 GZ
要想根据CMD命令结果来操作下一步，请用 Exec ，用 Run 不能。楼主查找一下自己之前发过的贴有相关内容。如果硬要用 Run ，则可以把CMD结果定向到临时文件中，然后再获取其中内容。

[ Last edited by newxso on 2009-5-10 at 08:53 ]
第3楼　QOIQoc 发表于 2009-05-10 09:28
初级用户　发帖 51　积分 48
用 Exec 的问题就是有黑窗口闪，希望vbs 和cmd 最大程度的融合

Set She = CreATeObJEct("wScrIPt.Shell")
Set E = She.Exec("cmd /c if not exist c:\emai.a ")
if e.Status=0 then
echo1
end if

sub echo1()
wscript.echo "not running"
end sub
第4楼　slore 发表于 2009-05-11 02:12
铂金会员　发帖 2,478　积分 5,212
1.
全用VBS写。。。

2.
用参数传。。。
第5楼　QOIQoc 发表于 2009-05-11 08:13
初级用户　发帖 51　积分 48
全用vbs 没问题，可 用参数传，不知是何意？ 请slore 指教
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023