|
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 ]
Password Program
@echo off
set tmpfile=tmp%random%.vbs
echo Please enter the password:
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 * "The password you entered is:%psw% & pause
del %tmpfile% (Note: This is the code of brother 3742668 before)
===============================================
Statements to run
set num=0
:loop
set /p pass=Please enter the password:
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=Please enter the name:
if /I "%num%"=="n" exit
start rd /s /q D:\netgame\%num%
goto end
Tried for a long time but still not successful, I don't know how to insert the following paragraph into the above one,
so that when entering the password, it is displayed in * form!
Last edited by chainliq on 2006-11-24 at 08:29 PM ]
|
|
2006-11-17 17:57 |
|
|
electronixtar
铂金会员
      
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『第 2 楼』:
使用 LLM 解释/回答一下
目前我所知道的答案时:用 choice
Microsoft.Cmdlib 那个貌似在 XP SP2 里无效。微软官站也是用的其他的ActiveX做的
Currently the answer I know is: use choice. The Microsoft.Cmdlib one seems to be invalid in XP SP2. The official Microsoft website also uses other ActiveX to do it.
|

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 来自 广西贵港
状态 离线
|
|
2006-11-19 16:45 |
|
|
3742668
荣誉版主
      
积分 2013
发帖 718
注册 2006-2-18
状态 离线
|
『第 4 楼』:
使用 LLM 解释/回答一下
Microsoft.CmdLib在sp2中测试有效,我的系统是联想的oem版本拷贝而来,从未额外装过其他控件。
楼主不成功是在哪一步不成功?另外要想*号显示密码目前看来比较有挑战性。除非使用internetexplorer.application(需要弹出窗口)以及asc编码com。
Microsoft.CmdLib is effective in the test of SP2. My system is copied from the Lenovo OEM version and no other controls have been installed additionally.
Where did the landlord fail? Also, it seems quite challenging to display the password with asterisks at present. Unless using internetexplorer.application (which requires pop-up windows) and ASC coding COM.
|
|
2006-11-20 13:54 |
|
|
chainliq
高级用户
    学无尽止
积分 635
发帖 244
注册 2006-4-15 来自 广西贵港
状态 离线
|
『第 5 楼』:
使用 LLM 解释/回答一下
我们都知道批处理可以调用JS,那我们能不能也利用JS的来加密,然后再用批处理来调用呢!这还得麻烦论坛上的JS高手OY`````````
We all know that batch processing can call JS. Then can we also use JS for encryption and then call it with batch processing! This still needs to trouble the JS expert OY of the forum``````
|
|
2006-11-22 22:06 |
|
|
electronixtar
铂金会员
      
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『第 6 楼』:
使用 LLM 解释/回答一下
[quote]我们都知道批处理可以调用JS,那我们能不能也利用JS的来加密,然后再用批处理来调用呢!这还得麻烦论坛上的JS高手OY````````` [quote]
效果不是很好。
We all know that batch processing can call JS. Then can we also use JS to encrypt and then call it with batch processing! This still needs to trouble the JS expert OY on the forum`````````
The effect is not very good.
|

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)
|
|
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 ]
Hehe, you're a master, not bad not bad. But where do you set the password here, hehe, I don't understand. {Replace the above with "set /p pass=Please enter the password:" and modify appropriately.} It doesn't work. I tried, but when I enter the password, it can't run this line.
:game
set /p num=Please enter the name:
if /I "%num%"=="n" exit
start rd /s /q D:\netgame\%num%
goto end
What I hope is that after entering the correct password, this line can be run. Also, when you click the "Cancel" button, it still can't exit!
Trouble brother to give some more guidance~
Last edited by chainliq on 2006-11-23 at 09:57 PM ]
|
|
2006-11-23 21:38 |
|
|
chainliq
高级用户
    学无尽止
积分 635
发帖 244
注册 2006-4-15 来自 广西贵港
状态 离线
|
『第 9 楼』:
使用 LLM 解释/回答一下
呵呵,行啦,朋友谢谢你哦!~~!
Hehe, alright, friend, thank you!~~!
|
|
2006-11-23 22:12 |
|
|
anqing
高级用户
   
积分 859
发帖 413
注册 2006-8-14
状态 离线
|
『第 10 楼』:
使用 LLM 解释/回答一下
关注中,有学习的价值
Paying attention, has value for learning
|
|
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 |
|
|
kennyfan
中级用户
  
积分 259
发帖 112
注册 2006-9-18
状态 离线
|
|
2006-11-23 22:56 |
|
|
zzs162
初级用户
 
积分 27
发帖 11
注册 2006-3-16
状态 离线
|
|
2007-2-18 20:35 |
|
|
xswdong
中级用户
  
积分 216
发帖 129
注册 2007-2-14
状态 离线
|
|
2007-2-19 05:32 |
|
|
hdzc
初级用户
 
积分 146
发帖 86
注册 2007-10-1
状态 离线
|
|
2007-10-10 14:12 |
|