Input Assistant method with VBS implementation _VBS

Drag the script to echo to this script ... You can follow the instructions

Copy Code code as follows:

On Error Resume Next
Set arg=wscript.arguments
If Arg.count=0 then Wscript.Quit
‘——————-
' Enjoy it
' Code by Netpatch
‘——————-
Fname=inputbox ("Enter the path to echo):", "Input filename", "%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 "Dot ok 5 seconds after start"
Wshshell.appactivate "Command Prompt"
Wscript.Sleep 5000
Wshshell.appactivate "Command Prompt"

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