-
色牲
发布于 2011-01-11 00:44
-
收藏
do.vbs复制代码 代码如下:'BY Coo_boi If WScript.Arguments.Count=0 Then WScript.Quit Dim fso,txt,htm txt=WScript.Arguments(0) Set fso=CreateObject("Scripting.FileSystemObject") Set htm=fso.CreateTextFile(txt&".htm",True) title=fso.G..