pcl_test

@echo off
set "title=输入内容"
set "prompt=注意：""&chr(13)&""1.数据库导入导出请输入[imp]或[exp]命令""&chr(13)&""2.连接手机文件管理器请输入[IP]地址"
for /f "delims=" %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(inputbox(""%prompt%"",""%title%""))"^)(close^)') do echo;%%a
pause
复制代码

pcl_test

回复 3# xiaolijian916


   难道2楼的代码不是这样吗？

pcl_test

回复 8# 逍遥锋

mshta vbscript:msgbox("第一行"^&vbCrLf^&"第二行"^&vbCrLf^&"第三行")(close)
pause
复制代码

powershell -sta "[void][Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms');[Windows.Forms.MessageBox]::show(\"第一行`r`n第二行`r`n第三行\")"
pause
复制代码

powershell "(New-Object -ComObject Wscript.Shell).Popup(\"第一行`r`n第二行`r`n第三行\",0,\"\")"
pause
复制代码