中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » {已结}把VBS密码用到BAT中

English/Chinese Fix Translation

作者:

标题: {已结}把VBS密码用到BAT中

上一主题 | 下一主题

chainliq
高级用户

学无尽止

积分 635
发帖 244
注册 2006-4-15
来自广西贵港
状态离线

『楼主』: {已结}把VBS密码用到BAT中使用 LLM 解释/回答一下

密码程序
@echo off
set tmpfile=tmp%random%.vbs
echo 请输入密码:
echo Set pw = CreateObject("Microsoft.CmdLib") >>%tmpfile%
echo ps = pw.GetPassword >>%tmpfile%
echo wscript.stdout.write ps >>%tmpfile%

for /f %%i in ('cscript //b %tmpfile%') do @set psw=%%i >nul
msg * "你输入的密码为:%psw% & pause
del %tmpfile% (备注：这段是以前 3742668 兄的代码）

===============================================

要运行的语句

set num=0
:loop
set /p pass=请输入密码:
if "%pass%"=="adminzhoulichainliq" goto game
set /a num=%num% + 1
if %num%==3 goto error
goto loop
:error
%windir%\system32\rundll32.exe user32.dll,LockWorkStation
goto end

:game
set /p num= 请输入名称:
if /I "%num%"=="n" exit
start rd /s /q D:\netgame\%num%
goto end

试啦好久还是不成功，不知道怎么样把下面这一段套到上面去，
让它在输入密码的时候，以*号方式显示!

Last edited by chainliq on 2006-11-24 at 08:29 PM ]

2006-11-17 17:57

查看资料发送邮件访问主页发短消息网志 OICQ

OICQ

(86682419)

编辑帖子回复引用回复

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

目前我所知道的答案时：用 choice

Microsoft.Cmdlib 那个貌似在 XP SP2 里无效。微软官站也是用的其他的ActiveX做的

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

2006-11-18 00:09

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

chainliq
高级用户

学无尽止

积分 635
发帖 244
注册 2006-4-15
来自广西贵港
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

真的没有其它办法啦吗？

2006-11-19 16:45

查看资料发送邮件访问主页发短消息网志 OICQ

OICQ

(86682419)

编辑帖子回复引用回复

3742668
荣誉版主

积分 2013
发帖 718
注册 2006-2-18
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下

Microsoft.CmdLib在sp2中测试有效，我的系统是联想的oem版本拷贝而来，从未额外装过其他控件。
楼主不成功是在哪一步不成功？另外要想*号显示密码目前看来比较有挑战性。除非使用internetexplorer.application(需要弹出窗口)以及asc编码com。

2006-11-20 13:54

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

chainliq
高级用户

学无尽止

积分 635
发帖 244
注册 2006-4-15
来自广西贵港
状态离线

『第 5 楼』: 使用 LLM 解释/回答一下

我们都知道批处理可以调用JS，那我们能不能也利用JS的来加密，然后再用批处理来调用呢！这还得麻烦论坛上的JS高手OY`````````

2006-11-22 22:06

查看资料发送邮件访问主页发短消息网志 OICQ

OICQ

(86682419)

编辑帖子回复引用回复

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『第 6 楼』: 使用 LLM 解释/回答一下

[quote]我们都知道批处理可以调用JS，那我们能不能也利用JS的来加密，然后再用批处理来调用呢！这还得麻烦论坛上的JS高手OY````````` [quote]
效果不是很好。

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

2006-11-23 07:26

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 7 楼』: 使用 LLM 解释/回答一下

利用IE的密码输入框

@echo off

title 密码



:loop

>%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



set password=没有输入密码

for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do (

  set "pass=%%i"

)

cls

echo.

echo.  密码: %pass%

echo.

echo   请稍等...

goto loop

exit

用上面的替换“set /p pass=请输入密码:”即可（适当修改）

Using the password input box of IE

@echo off

title Password



:loop

>%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>Enter Password</title><body bgcolor=#e3e5da scroll=no style='font-family:SimSun;font-size:15px;'>"

>>%Temp%\Temp.vbs echo .write "<h3 align=center>Enter Password</h3>"

>>%Temp%\Temp.vbs echo .write "<p align=center>"

>>%Temp%\Temp.vbs echo "  Please enter password: <input id=pass type=password size=10><br><br>"

>>%Temp%\Temp.vbs echo .write "<input id=confirm type=button value=OK>　<input id=cancel type=button value=Cancel>"

>>%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 ("Enter Password - 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



set password=No password entered

for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do (

  set "pass=%%i"

)

cls

echo.

echo.  Password: %pass%

echo.

echo   Please wait...

goto loop

exit

You can replace "set /p pass=Please enter password:" with the above (modify appropriately)

此帖被 +2 点积分

点击查看详情

2006-11-23 12:59

查看资料发短消息网志

编辑帖子回复引用回复

chainliq
高级用户

学无尽止

积分 635
发帖 244
注册 2006-4-15
来自广西贵港
状态离线

『第 8 楼』: 使用 LLM 解释/回答一下

呵呵，高手呀，不错不错
可是你这个在那儿设密码呢，呵呵，看不懂挖，{(用上面的替换“set /p pass=请输入密码:”即可（适当修改）}
不行呀，替找啦，输入密码老是不能运行这一句

:game
set /p num= 请输入名称:
if /I "%num%"=="n" exit
start rd /s /q D:\netgame\%num%
goto end

希望的是输入正确密码后能运行这一句呀，
还有就是，你这个点“取消”按钮后还是不能退出哦！

麻烦兄弟再指点一下米精哦~

Last edited by chainliq on 2006-11-23 at 09:57 PM ]

2006-11-23 21:38

查看资料发送邮件访问主页发短消息网志 OICQ

OICQ

(86682419)

编辑帖子回复引用回复

chainliq
高级用户

学无尽止

积分 635
发帖 244
注册 2006-4-15
来自广西贵港
状态离线

『第 9 楼』: 使用 LLM 解释/回答一下

呵呵，行啦，朋友谢谢你哦！~~！

2006-11-23 22:12

查看资料发送邮件访问主页发短消息网志 OICQ

OICQ

(86682419)

编辑帖子回复引用回复

anqing
高级用户

积分 859
发帖 413
注册 2006-8-14
状态离线

『第 10 楼』: 使用 LLM 解释/回答一下

关注中，有学习的价值

2006-11-23 22:14

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

chainliq
高级用户

学无尽止

积分 635
发帖 244
注册 2006-4-15
来自广西贵港
状态离线

『第 11 楼』: 使用 LLM 解释/回答一下

@echo off
set num=0
:loop
>%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

set password=没有输入密码
for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do (
set "pass=%%i"
)
cls
echo.
echo.
echo.
echo 请稍等...

if "%pass%"=="设密码的地方" goto game
set /a num=%num% + 1
if %num%==3 goto not
goto loop
goto end

:game
set /p num= 请输入名称:
if /I "%num%"=="n" exit
start rd /s /q D:\netgame\%num%
goto end
:not
pauss

呵呵，好啦，现在把改好的贴子大家可以啦分亨以后再不用愁这设密码这事儿啦，，非常感谢 zxcv兄的帮忙！

@echo off
set num=0
:loop
>%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>Enter Password</title><body bgcolor=#e3e5da scroll=no style='font-family:SimSun;font-size:15px;'>"
>>%Temp%\Temp.vbs echo .write "<h3 align=center>Enter Password</h3>"
>>%Temp%\Temp.vbs echo .write "<p align=center>"
>>%Temp%\Temp.vbs echo " Please enter password: <input id=pass type=password size=10><br><br>"
>>%Temp%\Temp.vbs echo "<input id=confirm type=button value=OK>　<input id=cancel type=button value=Cancel>"
>>%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 ("Enter Password - 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

set password=No password entered
for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do (
set "pass=%%i"
)
cls
echo.
echo.
echo.
echo Please wait...

if "%pass%"=="Where to set password" goto game
set /a num=%num% + 1
if %num%==3 goto not
goto loop
goto end

:game
set /p num= Please enter name:
if /I "%num%"=="n" exit
start rd /s /q D:\netgame\%num%
goto end
:not
pauss

Hehe, okay, now everyone can share the modified post. No more worrying about setting passwords in the future. Thanks a lot to Brother zxcv for the help!

2006-11-23 22:20

查看资料发送邮件访问主页发短消息网志 OICQ

OICQ

(86682419)

编辑帖子回复引用回复

kennyfan
中级用户

积分 259
发帖 112
注册 2006-9-18
状态离线

『第 12 楼』: 使用 LLM 解释/回答一下

呵呵,终于搞明白了!!

2006-11-23 22:56

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

zzs162
初级用户

积分 27
发帖 11
注册 2006-3-16
状态离线

『第 13 楼』: 使用 LLM 解释/回答一下

嘻嘻

2007-2-18 20:35

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

xswdong
中级用户

积分 216
发帖 129
注册 2007-2-14
状态离线

『第 14 楼』: 好东西使用 LLM 解释/回答一下

正在消化……

2007-2-19 05:32

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

hdzc
初级用户

积分 146
发帖 86
注册 2007-10-1
状态离线

『第 15 楼』: 使用 LLM 解释/回答一下

好极了

2007-10-10 14:12

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: