[分享]批处理调用VBS实现隐藏输入

Spring · 发表于 2010-1-28 11:43:46

个人认为：
1. 脚本和批处理是紧密结合的，灵活运用的话可以实现更丰富的功能。
2. 提倡模块化的写代码，以提高代码的重用性。

@echo off
echo 请输入：
call :input mima
echo 密码是：%mima%
pause>nul
exit
:input
:: (C)2010 Spring Brother
:: 需要一个变量名作为参数
echo WScript.StdOut.Write CreateObject("ScriptPW.Password").GetPassword > Spring
cscript -nologo -e:vbs Spring > Brother
set /p %1=<Brother
del Spring,Brother

复制代码

或者可以少一个临时文件，更增加隐秘性：

@echo off
echo 请输入：
call :input mima
echo 密码是：%mima%
pause>nul
exit
:input
:: (C)2010 Spring
:: 需要一个变量名作为参数
echo WScript.StdOut.Write CreateObject("ScriptPW.Password").GetPassword > Spring
for /f "delims=" %%z in ('cscript -nologo -e:vbs Spring') do set "%1=%%z"
del Spring

复制代码

[ 本帖最后由 Spring 于 2010-1-28 13:06 编辑 ]

sysplay · 发表于 2010-1-28 13:42:10

复制代码

batman · 发表于 2010-1-28 19:43:02

跟一个以前写的，要用到choice.exe

@echo off&setlocal enabledelayedexpansion
set "str=0 1 2 3 4 5 6 7 8 9 a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
for %%a in (%str%) do set /a n+=1&set ".!n!=%%a"
:lp
cls&set /p=请输入八位由数字和字母组成的密码，请注意大小写：<nul
if defined pwds set /p=%pwds%<nul
if "%m%" equ "8" echo.&echo.&goto next
choice /n /cs /c %str: =%
set "pwds=%pwds%*"&set "pwd=%pwd%!.%errorlevel%!"
set /a m+=1&goto lp
:next
if "%pwd%" equ "BatHomes" (
echo 密码正确
) else (
echo 密码错误
)
pause>nul

复制代码

Batcher · 发表于 2010-1-28 20:37:24

批处理输入密码但不显示（隐藏输入密码）
http://www.bathome.net/thread-4226-1-1.html

批处理输入密码但显示星号的代码之批处理应用版
http://www.bathome.net/thread-2130-1-1.html

rat · 发表于 2010-1-29 11:49:52

yu2n · 发表于 2014-1-3 00:09:49

本帖最后由 yu2n 于 2014-1-3 00:48 编辑

windows 7 x64 下使用 BAT 调用 powershell 实现输入密码回显星号功能
http://stackoverflow.com/questio ... -text-in-a-bat-file

@echo off
set /p p= User Login - <nul
call :_getPwd pwd
echo Password is %pwd%
pause
goto :eof
:_getPwd
REM powershell
(powershell /? >nul 2>nul) && powershell -Command $pword = read-host "Enter password" -AsSecureString ; ^
$BSTR=[System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($pword) ; ^
[System.Runtime.InteropServices.Marshal]::PtrToStringAuto($BSTR) > .tmp.txt
REM VBS - ScriptPW.Password [C]2010 Spring
(powershell /? >nul 2>nul) || (
echo WScript.StdOut.Write CreateObject^("ScriptPW.Password"^).GetPassword > Spring
cscript -nologo -e:vbs Spring > .tmp.txt
del Spring
)
set /p %1=<.tmp.txt
del .tmp.txt
goto :eof

复制代码

pcl_test · 发表于 2016-7-14 13:47:28

本帖最后由 pcl_test 于 2016-7-14 18:53 编辑

结合hta

<!-- :
@echo off
for /f "delims=" %%a in ('mshta "%~f0"') do echo;%%a
pause&exit
-->
<HTA:Application border='none' scroll='no' />
<body style='text-align:center'><input id='pw' type='password' /><br/>输入完成按回车即可<script>
window.resizeTo(200,80);
document.onkeydown=function(){
if(window.event.keyCode == 13){
try{(new ActiveXObject('Scripting.FileSystemObject')).GetStandardStream(1).Write(document.getElementById('pw').value);}catch(e){}
window.close();
}
}
</script></body>

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考