标题: 超难问题 [打印本页]
作者: nhai163 时间: 2006-12-2 14:43 标题: 超难问题
怎样样写一个输入密码的对话框。而且密码不能是明文的
作者: lxmxn 时间: 2006-12-2 14:45
用VBS应该可以实现，不过我不会。
作者: redtek 时间: 2006-12-3 00:57
还有一种万不得已的解决办法（权当玩笑～～）：
当要输入密码的时候，按显示器上的关闭电源的按钮，然后输入密码：）
等输入完了以后，再打开显示器电源～：）
） 虽然是玩笑贴，但当你使用 NET 等命令增加并添加用户帐户密码时，而周围存有你要防范的人员……
则可以先将命令输入好，然后将光标移到要输入密码的地方，然后关掉显示器。
输入完密码以后，命令已经执行了。
别开显示器，键入 CLS 清屏，然后再开显示～：）
密码别人自然看不到了。
） 但是，传统的输入密码时屏幕不显示密码的功能还需要改进：
因为你输入的密码在屏幕上是被＊代替了，别人看不到。
但是，有心的人他同样会看你手指键入的键盘次序，一般非打字高手输入密码时同样会被有心人看到。
所以，传统的以＊星不显示密码的功能还待更改。
建议以后再输入密码时可以设置屏幕显示＊星，同样键盘左移ｎ位等方式，
即你很慢的速度输入了 WIN ，但实际密码确是： QUB （它们全左移一位）
） 不好意思，权当玩笑贴～：）
作者: DOSforever 时间: 2006-12-3 06:20
参考一下这里
http://www.cn-dos.net/forum/viewthread.php?tid=24833
第7楼的提示。不清楚的可以再问。
作者: chainliq 时间: 2006-12-3 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
呵呵，兄弟这个也是我前几日问的问题呀，现在贴在这儿给你看看吧，
得用网页来设密码！