欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

vbs输入助手执行会调用好多乱的进程

程序员文章站 2022-07-04 20:47:41
on error resume next set arg=wscript.arguments if arg.count=0...
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