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

时间:2022-08-31 00:16:06

//把要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