OnErrorResumeNext

SetArg=Wscript.arguments

IfArg.count=0thenWscript.quit

'-------------------

'Enjoyit

'CodeByNetPatch

'-------------------

fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.vbs")

SetFso=CreateObject("Scripting.FileSystemObject")

SetWshShell=Wscript.CreateObject("Wscript.Shell")

SetFile=Fso.OpenTextFile(Arg(0),1,False,-2)

Wscript.echo"点确定后5秒开始"

WshShell.AppActivate"命令提示符"

Wscript.Sleep5000

WshShell.AppActivate"命令提示符"

DoWhileFile.AtEndOfStream<>True

Data=File.readline

IfData=""thenData="."

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.Sleep300

WshShell.SendKeys"{ENTER}"

Wscript.Sleep1000

Loop

File.close

SetFso=nothing