批处理命令 生成一个vbs文件，然后循环运行 BAT文件创建VBS文件后并运行？

\u7528VBS\u5faa\u73af\u6267\u884c\u4e00\u4e2a\u6279\u5904\u7406\u6587\u4ef6(1.bat)\uff0c\u8981\u6c42\u662f:1.bat\u9700\u8981\u5faa\u73af\u6267\u884c\u3002

doCreateObject("WScript.Shell").Run "1.bat",0,Truewscript.Sleep 30000 loop

\u7528BAT\u521b\u5efaVBS\u811a\u672c\u5f88\u5bb9\u6613\uff0c\u4e3b\u8981\u7528\u5230ECHO >\u547d\u4ee4\u5efa\u597d\u4ee5\u540e\uff0c\u8981\u8fd0\u884cVBS\u811a\u672c\uff0c\u5c31\u8981\u8c03\u7528WSCRIPT.exe\u7a0b\u5e8f\u4e86\u3002\u547d\u4ee4\u683c\u5f0f\uff1awscript.exe \u811a\u672c\u540d\u79f0.vbs

@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

扩展阅读：bat批处理命令大全 ... vbs编程指令大全 ... move批处理移动pdf文件 ... bat脚本move命令 ... wincc退出命令vbs ... do msgbox ... 批处理命令大全及用法 ... 批处理命令教程 app ... move移动文件bat指令 ...