::通过临时文件来传递
@echo off
mshta vbscript:createobject("scripting.filesystemobject").createtextfile("temp.txt").write(msgbox("内容",1,"标题"))(close)
set /p return=<temp.txt
echo 返回值：%return%
erase temp.txt
pause