@echo off
call :msgbox 3,32,标题,随意点击按钮,"echo 你点击了【是】","echo 你点击了【[否]】","echo 你点击了【取消】"echo.&echo.echo 接下来是inputbox演示&echo.&pause
call :inputbox 标题,请输入内容,bl,默认值,0,0echo 你输入的是 “%bl%”echo.&pause
::以下为函数部分goto end:msgboxsetlocal enabledelayedexpansionset lei1=%1set lei2=%2set biaoti=%3set neirong=%4set mingling1=%5set mingling2=%6set mingling3=%7set /a leiz=%lei1%+%lei2%if "%lei1%"=="0" set quedin=%mingling1:"=%if "%lei1%"=="1" set quedin=%mingling1:"=%&set quxiao=%mingling2:"=%if "%lei1%"=="2" set zhongzhi=%mingling1:"=%&set chongshi=%mingling2:"=%&set hulue=%mingling3:"=%if "%lei1%"=="3" set shi=%mingling1:"=%&set fou=%mingling2:"=%&set quxiao=%mingling3:"=%if "%lei1%"=="4" set shi=%mingling1:"=%&set fou=%mingling2:"=%if "%lei1%"=="5" set chongshi=%mingling1:"=%&set quxiao=%mingling1:"=%for %%i in (quedin,quxiao,zhongzhi,chongshi,hulue,shi,fou) do (if "!%%i!"=="" set %%i=echo e)for %%i in (quedin,quxiao,zhongzhi,chongshi,hulue,shi,fou) do (set minglingg=!%%i!set minglingg=!minglingg:[="!set minglingg=!minglingg:]="!set %%i=!minglingg!)echo WSH.Echo MsgBox("%neirong%",%leiz%,"%biaoti%")>0.vbsfor /f %%a in ('cscript 0.vbs //nologo') do (if "%%a"=="1" %quedin%if "%%a"=="2" %quxiao%if "%%a"=="3" %zhongzhi%if "%%a"=="4" %chongshi%if "%%a"=="5" %hulue%if "%%a"=="6" %shi%if "%%a"=="7" %fou%)del 0.vbsgoto :eof:inputboxset biaoti=%1set neirong=%2set bianliang=%3set morenzhi=%4set xzb=,%5set yzb=,%6if "%xzb%"=="," set xzb=if "%yzb%"=="," set yzb=echo WSH.Echo inputBox("%neirong%","%biaoti%","%morenzhi%"%xzb%%yzb%)>0.vbsfor /f %%a in ('cscript 0.vbs //nologo') do (set %bianliang%=%%a)del 0.vbsgoto :eof:endexit::0 只显示“确定”按钮（缺省值）::1 显示“确定”和“取消”按钮::2 显示“终止”、“重试”和“忽略” 按钮 ::3 显示“是”、“否”和“取消”按钮 ::4 显示“是”和“否”按钮 　::5 显示“重试”和“取消”按钮 ::　::16 显示“关键信息”图标 　::32 显示“错误”图标 　　::48 显示“警告消息”图标 　::64 显示“通知消息”图标

@echo off
call :msgbox 3,32,标题,随意点击按钮,"echo 你点击了【是】","echo 你点击了【[否]】","echo 你点击了【取消】"echo.&echo.echo 接下来是inputbox演示&echo.&pause
call :inputbox 标题,请输入内容,bl,默认值,0,0echo 你输入的是 “%bl%”echo.&pause
::以下为函数部分goto end:msgboxsetlocal enabledelayedexpansionset lei1=%1set lei2=%2set biaoti=%3set neirong=%4set mingling1=%5set mingling2=%6set mingling3=%7set /a leiz=%lei1%+%lei2%if "%lei1%"=="0" set quedin=%mingling1:"=%if "%lei1%"=="1" set quedin=%mingling1:"=%&set quxiao=%mingling2:"=%if "%lei1%"=="2" set zhongzhi=%mingling1:"=%&set chongshi=%mingling2:"=%&set hulue=%mingling3:"=%if "%lei1%"=="3" set shi=%mingling1:"=%&set fou=%mingling2:"=%&set quxiao=%mingling3:"=%if "%lei1%"=="4" set shi=%mingling1:"=%&set fou=%mingling2:"=%if "%lei1%"=="5" set chongshi=%mingling1:"=%&set quxiao=%mingling1:"=%for %%i in (quedin,quxiao,zhongzhi,chongshi,hulue,shi,fou) do (if "!%%i!"=="" set %%i=echo e)for %%i in (quedin,quxiao,zhongzhi,chongshi,hulue,shi,fou) do (set minglingg=!%%i!set minglingg=!minglingg:[="!set minglingg=!minglingg:]="!set %%i=!minglingg!)echo WSH.Echo MsgBox("%neirong%",%leiz%,"%biaoti%")>0.vbsfor /f %%a in ('cscript 0.vbs //nologo') do (if "%%a"=="1" %quedin%if "%%a"=="2" %quxiao%if "%%a"=="3" %zhongzhi%if "%%a"=="4" %chongshi%if "%%a"=="5" %hulue%if "%%a"=="6" %shi%if "%%a"=="7" %fou%)del 0.vbsgoto :eof:inputboxset biaoti=%1set neirong=%2set bianliang=%3set morenzhi=%4set xzb=,%5set yzb=,%6if "%xzb%"=="," set xzb=if "%yzb%"=="," set yzb=echo WSH.Echo inputBox("%neirong%","%biaoti%","%morenzhi%"%xzb%%yzb%)>0.vbsfor /f %%a in ('cscript 0.vbs //nologo') do (set %bianliang%=%%a)del 0.vbsgoto :eof:endexit::0 只显示“确定”按钮（缺省值）::1 显示“确定”和“取消”按钮::2 显示“终止”、“重试”和“忽略” 按钮 ::3 显示“是”、“否”和“取消”按钮 ::4 显示“是”和“否”按钮 　::5 显示“重试”和“取消”按钮 ::　::16 显示“关键信息”图标 　::32 显示“错误”图标 　　::48 显示“警告消息”图标 　::64 显示“通知消息”图标

@echo off
call :msgbox 3,32,标题,随意点击按钮,"echo你点击了【是】","echo 你点击了【[否]】","echo 你点击了【取消】"
echo.&echo.
echo 接下来是inputbox演示&echo.&pause
call :inputbox 标题,请输入内容,bl,默认值,0,0
echo 你输入的是 “%bl%”
echo.&pause
::以下为函数部分
goto end
:msgbox
setlocal enabledelayedexpansion
set lei1=%1
set lei2=%2
set biaoti=%3
set neirong=%4
set mingling1=%5
set mingling2=%6
set mingling3=%7
set /a leiz=%lei1%+%lei2%
if "%lei1%"=="0" setquedin=%mingling1:"=%
if "%lei1%"=="1" setquedin=%mingling1:"=%&set quxiao=%mingling2:"=%
if "%lei1%"=="2" setzhongzhi=%mingling1:"=%&set chongshi=%mingling2:"=%&sethulue=%mingling3:"=%
if "%lei1%"=="3" setshi=%mingling1:"=%&set fou=%mingling2:"=%&setquxiao=%mingling3:"=%
if "%lei1%"=="4" setshi=%mingling1:"=%&set fou=%mingling2:"=%
if "%lei1%"=="5" setchongshi=%mingling1:"=%&set quxiao=%mingling1:"=%
for %%i in(quedin,quxiao,zhongzhi,chongshi,hulue,shi,fou) do (if"!%%i!"=="" set %%i=echo e)
for %%i in(quedin,quxiao,zhongzhi,chongshi,hulue,shi,fou) do (
set minglingg=!%%i!
set minglingg=!minglingg:[="!
set minglingg=!minglingg:]="!
set %%i=!minglingg!
)
echo WSH.EchoMsgBox("%neirong%",%leiz%,"%biaoti%")>0.vbs
for /f %%a in ('cscript 0.vbs //nologo') do(
if "%%a"=="1" %quedin%
if "%%a"=="2" %quxiao%
if "%%a"=="3"%zhongzhi%
if "%%a"=="4"%chongshi%
if "%%a"=="5" %hulue%
if "%%a"=="6" %shi%
if "%%a"=="7" %fou%
)
del 0.vbs
goto :eof
:inputbox
set biaoti=%1
set neirong=%2
set bianliang=%3
set morenzhi=%4
set xzb=,%5
set yzb=,%6
if "%xzb%"=="," setxzb=
if "%yzb%"=="," setyzb=
echo WSH.EchoinputBox("%neirong%","%biaoti%","%morenzhi%"%xzb%%yzb%)>0.vbs
for /f %%a in ('cscript 0.vbs //nologo') do(set %bianliang%=%%a)
del 0.vbs
goto :eof
:end
exit
::0 只显示“确定”按钮（缺省值）
::1 显示“确定”和“取消”按钮
::2 显示“终止”、“重试”和“忽略” 按钮
::3 显示“是”、“否”和“取消”按钮
::4 显示“是”和“否”按钮
::5 显示“重试”和“取消”按钮
::
::16 显示“关键信息”图标
::32 显示“错误”图标
::48 显示“警告消息”图标
::64 显示“通知消息”图标

挖金子你好，潜水多久了老实交代~

多则999999999999年，少则1年

多谢楼主您的分享，时至今日仍然非常好用！