[已解决]VBS生成VBS

zinet

请问如何让vbs运行时生成另外一个指定代码的vbs
例如：要执行运行1.vbs代码如下
Set a = CreateObject("Wscript.Shell")
a.Run("http://www.baidu.com")
wscript.sleep 1000
Set b = CreateObject("Wscript.Shell")
b.Run"qq.exe"                           
wscript.sleep 2000
a.run"taskkill /f /im 126.exe",0
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.SendKeys"+{TAB}"
如何让上面代码运行时把红色那部分代码生成为2.vbs
注：1.vbs运行时不用执行红色那部分代码（红色那部分代码只作生成用），而直接跳过红色继续执行余下命令

[ 本帖最后由 zinet 于 2009-5-4 12:25 编辑 ]

rat

1. With CreateObject("Scripting.FileSystemObject").CreateTextFile("2.vbs", True)
   
2.         .WriteLine "Set b = CreateObject(""Wscript.Shell"")"
   
3.         .WriteLine "b.Run""qq.exe"""
   
4.         .WriteLine "wscript.sleep 2000"
   
5.         .WriteLine "a.run""taskkill /f /im 126.exe"",0"
   
6.         .Close
   
7. End With

复制代码