中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-04 23:01 |
共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » 用批处理生成VBS文件遇到了问题,高手帮忙 |
| 可打印版本 925 / 9 |
| 第1楼 trickster | 发表于 2007-06-12 16:00 |
| 初级用户 发帖 33 积分 63 | |
|
用批处理生成VBS文件遇到了问题,高手帮忙 在产生下面这段代码时遇到了问题:
ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then VOL_PROD_KEY=InputBox("Powered By metang.blogbus.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","CM3HY-26VYW-6JRYC-X66GX-JVY2D") if VOL_PROD_KEY="" then 刚开始我是在每行前加ECHO 结尾加>>CDKEY.VBS,但生成的"cdkey.vbs文件却不正确,由于我对VBS脚本不懂,特请高手帮忙,谢谢 |
|
| 第2楼 wudixin96 | 发表于 2007-06-12 16:14 |
| 银牌会员 发帖 931 积分 1,928 | |
|
这个脚本，网上到处都是。
|
|
| 第3楼 trickster | 发表于 2007-06-12 16:27 |
| 初级用户 发帖 33 积分 63 | |
|
我知道这段代码网上到处是,但我要的是怎么样用批处理生成VBS文件
|
|
| 第4楼 wudixin96 | 发表于 2007-06-12 16:31 |
| 银牌会员 发帖 931 积分 1,928 | |
|
把你P代码贴上来。
|
|
| 第5楼 HAT | 发表于 2007-06-12 16:44 |
| 版主 发帖 5,017 积分 9,023 | |
| 第6楼 trickster | 发表于 2007-06-12 16:44 |
| 初级用户 发帖 33 积分 63 | |
|
下面是应该生成的VBS脚本的完整代码,我是在先将下面代码每行前加ECHO 结尾处加>>cdkey.vbs 保存为bat文件,但运行后生成的cdkey.vbs跟下面代码不符,问题主要出在有IF语句的行,,但由于我不懂VBS脚本,所以始终处理不好,还请帮帮忙,谢了
ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then VOL_PROD_KEY=InputBox("Powered By metang.blogbus.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","CM3HY-26VYW-6JRYC-X66GX-JVY2D") if VOL_PROD_KEY="" then Wscript.quit end if else VOL_PROD_KEY = Wscript.arguments.Item(0) end if VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") result = Obj.SetProductKey (VOL_PROD_KEY) if err = 0 then Wscript.echo "OK！去微软验证吧！" end if if err <> 0 then Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。" Err.Clear end if Next |
|
| 第7楼 trickster | 发表于 2007-06-12 17:12 |
| 初级用户 发帖 33 积分 63 | |
Originally posted by HAT at 2007-6-12 04:44 PM: |
|
| 第8楼 wudixin96 | 发表于 2007-06-12 17:16 |
| 银牌会员 发帖 931 积分 1,928 | |
| 第9楼 Vampire | 发表于 2007-06-12 17:29 |
| 初级用户 发帖 78 积分 176 | |
|
ECHO 写脚本时得注意一些符号的问题，最保险的办法就是将涉及符号的地方都加^以使之不被生成脚本的批处理识别，反正批处理不会将首个^整到生成文件里的（两个^^连起来就别说了哈）。
|
|
| 第10楼 trickster | 发表于 2007-06-12 17:32 |
| 初级用户 发帖 33 积分 63 | |
|
谢谢各位,已解决
|
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |