怎样样写一个输入密码的对话框。而且密码不能是明文的
哈哈，又胡了
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 超难问题
查看 1,294 回复 4
楼 主
超难问题
发表于 2006-12-02 14:43 · 中国 浙江 温州 电信
第 2 楼
发表于 2006-12-02 14:45 · 中国 湖北 武汉 电信
用VBS应该可以实现，不过我不会。
第 3 楼
发表于 2006-12-03 00:57 · 中国 北京 朝阳区 联通
还有一种万不得已的解决办法（权当玩笑～～）：
当要输入密码的时候，按显示器上的关闭电源的按钮，然后输入密码：）
等输入完了以后，再打开显示器电源～：）
） 虽然是玩笑贴，但当你使用 NET 等命令增加并添加用户帐户密码时，而周围存有你要防范的人员……
则可以先将命令输入好，然后将光标移到要输入密码的地方，然后关掉显示器。
输入完密码以后，命令已经执行了。
别开显示器，键入 CLS 清屏，然后再开显示～：）
密码别人自然看不到了。
） 但是，传统的输入密码时屏幕不显示密码的功能还需要改进：
因为你输入的密码在屏幕上是被＊代替了，别人看不到。
但是，有心的人他同样会看你手指键入的键盘次序，一般非打字高手输入密码时同样会被有心人看到。
所以，传统的以＊星不显示密码的功能还待更改。
建议以后再输入密码时可以设置屏幕显示＊星，同样键盘左移ｎ位等方式，
即你很慢的速度输入了 WIN ，但实际密码确是： QUB （它们全左移一位）
） 不好意思，权当玩笑贴～：）
当要输入密码的时候，按显示器上的关闭电源的按钮，然后输入密码：）
等输入完了以后，再打开显示器电源～：）
） 虽然是玩笑贴，但当你使用 NET 等命令增加并添加用户帐户密码时，而周围存有你要防范的人员……
则可以先将命令输入好，然后将光标移到要输入密码的地方，然后关掉显示器。
输入完密码以后，命令已经执行了。
别开显示器，键入 CLS 清屏，然后再开显示～：）
密码别人自然看不到了。
） 但是，传统的输入密码时屏幕不显示密码的功能还需要改进：
因为你输入的密码在屏幕上是被＊代替了，别人看不到。
但是，有心的人他同样会看你手指键入的键盘次序，一般非打字高手输入密码时同样会被有心人看到。
所以，传统的以＊星不显示密码的功能还待更改。
建议以后再输入密码时可以设置屏幕显示＊星，同样键盘左移ｎ位等方式，
即你很慢的速度输入了 WIN ，但实际密码确是： QUB （它们全左移一位）
） 不好意思，权当玩笑贴～：）
Redtek，一个永远在网上流浪的人……
_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
第 4 楼
发表于 2006-12-03 06:20 · 中国 上海 电信
DOS倒下了，但永远不死
DOS NEVER DIES !
投票调查：
http://www.cn-dos.net/forum/viewthread.php?tid=46187
本人尚未解决的疑难问题：
http://www.cn-dos.net/forum/viewthread.php?tid=15135
http://www.cn-dos.net/forum/viewthread.php?tid=47663
http://www.cn-dos.net/forum/viewthread.php?tid=48747
DOS NEVER DIES !
投票调查：
http://www.cn-dos.net/forum/viewthread.php?tid=46187
本人尚未解决的疑难问题：
http://www.cn-dos.net/forum/viewthread.php?tid=15135
http://www.cn-dos.net/forum/viewthread.php?tid=47663
http://www.cn-dos.net/forum/viewthread.php?tid=48747
第 5 楼
发表于 2006-12-03 06:53 · 中国 广西 贵港 电信
>%Temp%\Temp.vbs echo set WshShell = Wscript.CreateObject("Wscript.Shell")
>>%Temp%\Temp.vbs echo set ie=wscript.createobject("internetexplorer.application","event_")
>>%Temp%\Temp.vbs echo ie.menubar=0
>>%Temp%\Temp.vbs echo ie.addressbar=0
>>%Temp%\Temp.vbs echo ie.toolbar=0
>>%Temp%\Temp.vbs echo ie.statusbar=0
>>%Temp%\Temp.vbs echo ie.resizable=0
>>%Temp%\Temp.vbs echo ie.width=270
>>%Temp%\Temp.vbs echo ie.height=200
>>%Temp%\Temp.vbs echo ie.navigate "about:blank"
>>%Temp%\Temp.vbs echo ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2)
>>%Temp%\Temp.vbs echo ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2)
>>%Temp%\Temp.vbs echo ie.visible=1
>>%Temp%\Temp.vbs echo with ie.document
>>%Temp%\Temp.vbs echo .write "<html><title>请输入管理员口令</title><body bgcolor=#e3e5da scroll=no style='font-family:宋体;font-size:15px;'>"
>>%Temp%\Temp.vbs echo .write "<h3 align=center>请输入管理员口令</h3>"
>>%Temp%\Temp.vbs echo .write "<p align=center>"
>>%Temp%\Temp.vbs echo .write " 管理员口令: <input id=pass type=password size=10><br><br>"
>>%Temp%\Temp.vbs echo .write "<input id=confirm type=button value=确定> <input id=cancel type=button value=取消>"
>>%Temp%\Temp.vbs echo .write "</body></html>"
>>%Temp%\Temp.vbs echo end with
>>%Temp%\Temp.vbs echo dim wmi
>>%Temp%\Temp.vbs echo set wnd=ie.document.parentwindow
>>%Temp%\Temp.vbs echo set id=ie.document.all
>>%Temp%\Temp.vbs echo id.confirm.onclick=getref("confirm")
>>%Temp%\Temp.vbs echo id.cancel.onclick=getref("cancel")
>>%Temp%\Temp.vbs echo do while true
>>%Temp%\Temp.vbs echo wscript.sleep 500
>>%Temp%\Temp.vbs echo WshShell.AppActivate ("输入密码 - Microsoft Internet Explorer")
>>%Temp%\Temp.vbs echo loop
>>%Temp%\Temp.vbs echo sub event_onquit
>>%Temp%\Temp.vbs echo wscript.quit
>>%Temp%\Temp.vbs echo end sub
>>%Temp%\Temp.vbs echo sub cancel
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo end sub
>>%Temp%\Temp.vbs echo sub confirm
>>%Temp%\Temp.vbs echo ie.visible=0
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo with id
>>%Temp%\Temp.vbs echo Wscript.Echo .pass.value
>>%Temp%\Temp.vbs echo exit sub
>>%Temp%\Temp.vbs echo end with
>>%Temp%\Temp.vbs echo end sub
echo.
echo 请输入管理口令!
set password=
for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do (
set "pass=%%i"
)
cls
echo.
echo.
echo.
mode con lines=4 cols=35
echo 加载密码信息...........
ping 192.168.2.248 -n 2 >nul 2>nul
echo.
:................................................................
if "%pass%"=="设置您的密码" goto mulu 给密码正确后定位运行的程序
set /a num=%num% + 1
if %num%==3 goto NO 密码不正确转向退出
echo.
echo 密码验证失败！
mshta javascript:alert("密码错误，请重新输入!");window.close();
goto loop
goto end
呵呵，兄弟这个也是我前几日问的问题呀，现在贴在这儿给你看看吧，
得用网页来设密码！
>>%Temp%\Temp.vbs echo set ie=wscript.createobject("internetexplorer.application","event_")
>>%Temp%\Temp.vbs echo ie.menubar=0
>>%Temp%\Temp.vbs echo ie.addressbar=0
>>%Temp%\Temp.vbs echo ie.toolbar=0
>>%Temp%\Temp.vbs echo ie.statusbar=0
>>%Temp%\Temp.vbs echo ie.resizable=0
>>%Temp%\Temp.vbs echo ie.width=270
>>%Temp%\Temp.vbs echo ie.height=200
>>%Temp%\Temp.vbs echo ie.navigate "about:blank"
>>%Temp%\Temp.vbs echo ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2)
>>%Temp%\Temp.vbs echo ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2)
>>%Temp%\Temp.vbs echo ie.visible=1
>>%Temp%\Temp.vbs echo with ie.document
>>%Temp%\Temp.vbs echo .write "<html><title>请输入管理员口令</title><body bgcolor=#e3e5da scroll=no style='font-family:宋体;font-size:15px;'>"
>>%Temp%\Temp.vbs echo .write "<h3 align=center>请输入管理员口令</h3>"
>>%Temp%\Temp.vbs echo .write "<p align=center>"
>>%Temp%\Temp.vbs echo .write " 管理员口令: <input id=pass type=password size=10><br><br>"
>>%Temp%\Temp.vbs echo .write "<input id=confirm type=button value=确定> <input id=cancel type=button value=取消>"
>>%Temp%\Temp.vbs echo .write "</body></html>"
>>%Temp%\Temp.vbs echo end with
>>%Temp%\Temp.vbs echo dim wmi
>>%Temp%\Temp.vbs echo set wnd=ie.document.parentwindow
>>%Temp%\Temp.vbs echo set id=ie.document.all
>>%Temp%\Temp.vbs echo id.confirm.onclick=getref("confirm")
>>%Temp%\Temp.vbs echo id.cancel.onclick=getref("cancel")
>>%Temp%\Temp.vbs echo do while true
>>%Temp%\Temp.vbs echo wscript.sleep 500
>>%Temp%\Temp.vbs echo WshShell.AppActivate ("输入密码 - Microsoft Internet Explorer")
>>%Temp%\Temp.vbs echo loop
>>%Temp%\Temp.vbs echo sub event_onquit
>>%Temp%\Temp.vbs echo wscript.quit
>>%Temp%\Temp.vbs echo end sub
>>%Temp%\Temp.vbs echo sub cancel
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo end sub
>>%Temp%\Temp.vbs echo sub confirm
>>%Temp%\Temp.vbs echo ie.visible=0
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo with id
>>%Temp%\Temp.vbs echo Wscript.Echo .pass.value
>>%Temp%\Temp.vbs echo exit sub
>>%Temp%\Temp.vbs echo end with
>>%Temp%\Temp.vbs echo end sub
echo.
echo 请输入管理口令!
set password=
for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do (
set "pass=%%i"
)
cls
echo.
echo.
echo.
mode con lines=4 cols=35
echo 加载密码信息...........
ping 192.168.2.248 -n 2 >nul 2>nul
echo.
:................................................................
if "%pass%"=="设置您的密码" goto mulu 给密码正确后定位运行的程序
set /a num=%num% + 1
if %num%==3 goto NO 密码不正确转向退出
echo.
echo 密码验证失败！
mshta javascript:alert("密码错误，请重新输入!");window.close();
goto loop
goto end
呵呵，兄弟这个也是我前几日问的问题呀，现在贴在这儿给你看看吧，
得用网页来设密码！
论坛跳转: