用vbs实现的输入助手附使用方法

//把要ECHO的脚本,拖到此脚本上…根据提示操作即可 


复制代码 代码如下:

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