On Error resume next
Set Arg = wscript. Arguments
If Arg. Count = 0 then wscript. Quit
'-------------------
'Enjoy it
'Code by netpatch
'-------------------
Fname = inputbox ("Enter the echo path):", "input file name", "% 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 seconds after the point is determined"
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