批处理之家 - Powered by Discuz! Board

标题: [其他] #第三方#命令行模仿VBSinput窗口传回输入值 [打印本页]

作者: FenoX 时间: 2023-7-20 12:38 标题: #第三方#命令行模仿VBSinput窗口传回输入值

之前看到IBAT开发环境中的调用VBS将输入值传递给自身，试了一下，似乎没有作用，所以就写了一个仿VBSinputbox窗口的程序.
程序名：Block.exe
体积: 10.6MB
用法：Block.exe 窗口标题提示词(用于提示用户) 窗口宽度窗口长度
用户输入的值会直接传入到下一行，可以用for /f读取：
{实例1，假设同一目录有Block.exe}

[text.bat]
@echo off
for /f %%A in ('%~dp0\Block.exe 实例1 请输入一个值： 300 150') do (
	set input=%%A
)
echo 输入的值是:%input%
pause>nul
复制代码

作者: FenoX 时间: 2023-7-20 12:52

外链:https://wwsj.lanzout.com/b04q5t6qh 密码:8bt0

作者: aloha20200628 时间: 2023-7-20 19:47

mshta给批处理脚本开辟了丰富的网页GUI资源，cmd+mshta混编脚本令此道更加便捷。现给一个简版示例如下（存为批处理脚本文件*.cmd）。

<!-- :
@echo off
for /f "delims=" %%v in ('mshta "%~f0"') do (echo,%%v)
pause&exit/b
-->
<meta http-equiv='x-ua-compatible' content='ie=11'>
<script>window.resizeTo(420, 160);</script>
<br><input type='text' id='ti' size=28 placeholder='请输入' />
<input type=button value='确认' onclick=getInput() /><br>
<script>
function getInput () {
	if (ti.value) new ActiveXObject('scripting.filesystemobject').getstandardstream(1).write(ti.value);
	close();
}
</script>
复制代码

作者: FenoX 时间: 2023-7-21 09:45

回复 3# aloha20200628
已学习！感谢分享！

欢迎光临批处理之家 (http://bbs.bathome.net/)