Question

Bat高手们,帮我看看这段代码有没有问题,vbs一直运行不起来.我只有5悬赏分了...求解.

代码:
@Echo off
color 2f
if exist "%tmp%\run.vbs" del /q "%tmp%\run.vbs"
set /p time=倒计时几秒=
echo\&echo\&echo\&echo\
echo Set WshShell = CreateObject("WScript.Shell")>"%tmp%\run.vbs"
echo Dim CloseTime,i>>"%tmp%\run.vbs"
echo CloseTime = %time%>>"%tmp%\run.vbs"
echo For i = CloseTime To 1 Step - 1>>"%tmp%\run.vbs"
echo WshShell.popup "倒计时剩下" & i,1秒,"计时",0>>"%tmp%\run.vbs"
echo Wscript.Sleep 1000>>"%tmp%\run.vbs"
echo Next>>"%tmp%\run.vbs"
echo MsgBox "时间到!">>"%tmp%\run.vbs"
echo Set WshShell = Nothing>>"%tmp%\run.vbs"
cls
set /p start=现在开始倒计时吗(Yes or No):
if /i "%start%"=="Yes" (
cd %tmp%
start run.vbs
exit
)
if /i "%start%"=="No" (
copy %tmp%\run.vbs 倒计时.vbs
exit
)

Answer 1

bat里面0-9放在<<,>>,<,>旁边是代表的句柄，而不是普通数字，0，1，2，是预设好的。你试下，运行你一开始的bat，然后打开生成的run.vbs，可以发现echo For i = CloseTime To 1 Step - 1>>"%tmp%\run.vbs"这行实际输入是echo For i = CloseTime To 1 Step -，1没有被输入
，应为它是输出句柄，也就是代表前面的内容，所以可以这样改：
@Echo off
color 2f
if exist "%tmp%\run.vbs" del /q "%tmp%\run.vbs"
set /p time=倒计时几秒=
echo\&echo\&echo\&echo\
echo Set WshShell = CreateObject("WScript.Shell")>"%tmp%\run.vbs"
echo Dim CloseTime,i>>"%tmp%\run.vbs"
echo CloseTime = %time% 1>>"%tmp%\run.vbs"
echo For i = CloseTime To 1 Step - 1 1>>"%tmp%\run.vbs"
echo WshShell.popup "倒计时剩下" ^& i,1秒,"计时",0 1>>"%tmp%\run.vbs"
echo Wscript.Sleep 1000>>"%tmp%\run.vbs"
echo Next>>"%tmp%\run.vbs"
echo MsgBox "时间到!">>"%tmp%\run.vbs"
echo Set WshShell = Nothing>>"%tmp%\run.vbs"
cls
set /p start=现在开始倒计时吗(Yes or No):
if /i "%start%"=="Yes" (
cd %tmp%
start run.vbs
exit
)
if /i "%start%"=="No" (
copy %tmp%\run.vbs 倒计时.vbs
exit
)
>>前是数字的那几行，数字后先空一格，再加1，代表前面的输出，注意哪行%time%后面也要加，不然输入0-9就无效了
&在bat里有特殊含义，做输出时要用^&转义
例外vbs代码 WshShell.popup "倒计时剩下" ^& i,1秒,"计时",0
好像有错

Answer 2

杯具，看了半天感觉没问题......自己试了下，结果...
这两句...巧合了。
echo For i = CloseTime To 1 Step - 1>>"%tmp%\run.vbs"
echo WshShell.popup "倒计时剩下" & i,1秒,"计时",0>>"%tmp%\run.vbs"
1>>，0>>，系统会默认为是一种输出方式，而不是把1和0输出来，你稍微空格下。

追问

那你把更改过的BAT代码发上来，我是新手。。。

那你把更改过的BAT代码发上来

追答

@Echo off
color 2f
if exist "%tmp%\run.vbs" del /q "%tmp%\run.vbs"
set /p time=倒计时几秒=
echo\&echo\&echo\&echo\
echo Set WshShell = CreateObject("WScript.Shell")>"%tmp%\run.vbs"
echo Dim CloseTime,i>>"%tmp%\run.vbs"
echo CloseTime = %time%>>"%tmp%\run.vbs"
echo For i = CloseTime To 1 Step - 1 >>"%tmp%\run.vbs"
echo WshShell.popup "倒计时剩下" & i,1秒,"计时",0 >>"%tmp%\run.vbs"
echo Wscript.Sleep 1000 >>"%tmp%\run.vbs"
echo Next>>"%tmp%\run.vbs"
echo MsgBox "时间到!">>"%tmp%\run.vbs"
echo Set WshShell = Nothing>>"%tmp%\run.vbs"
cls
set /p start=现在开始倒计时吗(Yes or No):
if /i "%start%"=="Yes" (
cd %tmp%
start run.vbs
exit
)
if /i "%start%"=="No" (
copy %tmp%\run.vbs 倒计时.vbs
exit
)

就是把1>>或者0>>,改成 1 >>或者 0 >>，中间空格一下而已。