bat弹窗交互

@echo off
title cmd窗口的标题
::设置是否隐藏bat窗口
set hideform=False
::这里设置是否隐藏bat窗口,如果是请将"set hideform=False"改成"set hideform=True"即可.(建议不要立即就改,因为待会你要看看效果呢~)
set "message=请输入内容"
::对话框中要显示的内容
set "title=请输入"
::对话框的标题
set "note=123456"
::输入框中的内容注释


::判断是否隐藏bat窗口
if /i "%hideform%"=="True" (
if "%1"=="h" goto begin
mshta vbscript:createobject^("wscript.shell"^).run^("%~nx0 h",0^)^(window.close^)&&exit
)
:begin
::变量赋值
set "vbs=%Temp%\GotUserInputedDataProgram.vbs"
set "data=%Temp%\UserInputedData.tmp"


::查找文件是否存在，存在就删除
if exist "%vbs%" del /s /q /f "%vbs%">nul
::delete file


::输出重定向
echo On Error Resume Next>>"%vbs%"
echo Dim fso,wri,data,file>>"%vbs%"
::创建一个进行交互的窗口
echo Set fso=Wscript.CreateObject^("Scripting.FileSystemObject"^)>>"%vbs%"
echo file="%data%">>"%vbs%"
echo if fso.FileExists^(