On Error Resume Next Set Arg=Wscript.arguments If Arg.count=0 then Wscript.quit '------------------- 'Enjoy it 'Code By NetPatch '------------------- fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.vbs") Set Fso=CreateObject("Scripting.FileSystemObject") Set WshShell=Wscript.CreateObject("Wscript.Shell") Set File=Fso.OpenTextFile(Arg(0),1,False,-2) Wscript.echo "点确定后5秒开始" WshShell.AppActivate "命令提示符" Wscript.Sleep 5000 WshShell.AppActivate "命令提示符" Do While File.AtEndOfStream <> True Data=File.readline If Data="" then Data="." Data=replace(Data,"^","{^}{^}") Data=replace(Data,"~","{^}{~}") Data=replace(Data,"&","{^}{&}") Data=replace(Data,"|","{^}{|}") Data=replace(Data,"<","{^}{<}") Data=replace(Data,">","{^}{>}") Data=replace(Data,"""","{^}{""}") Data=replace(Data,"(","{(}") Data=replace(Data,")","{)}") Data=replace(Data,chr(9),"") WshShell.SendKeys "echo "&Data&">>"&fname Wscript.Sleep 300 WshShell.SendKeys "{ENTER}" Wscript.Sleep 1000 Loop File.close Set Fso=nothing