Question

批处理命令 生成一个vbs文件，然后循环运行

打开bat后，输入｛一段数字｝，点击确定后， 将输入的｛那段数字｝替换到下面代码的｛替换｝那里，然后在C盘生成有下面代码的vbs文件。 之后循环运行，goto

Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.baidu.com/s?wd=数字",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "结果.txt",2

Answer 1

@echo off
:a
set/p num=请输入数字：
(echo Set xPost = createObject^("Microsoft.XMLHTTP"^)
echo xPost.Open "GET","www.baidu.com/s?wd=%num%",0
echo xPost.Send^(^)
echo Set sGet = createObject^("ADODB.Stream"^)
echo sGet.Mode = 3
echo sGet.Type = 1
echo sGet.Open^(^)
echo sGet.Write^(xPost.responseBody^)
echo sGet.SaveToFile "结果.txt",2)>C:\Baidu.vbs
C:\Baidu.vbs
goto a

追问

怎么在goto a前面把返回的那个 结果.txt的内容 显示出来。

如果可以的话再计个次数

跪地拜谢，答完马上给分。

追答

set c=1
:a
.
.
.
前面省略代码
type C:\结果.txt
echo 第 %c% 次
set /a c#=1
pause
goto a

把井号改为加号