吸收器,托雷斯身价,仙逆txt
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
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!!
点击进行留言回复
相关文章:
-
-
-
-
用vbs实现文本循环读取
因为测试中需要读取一批url数据进行浏览,其实使用qtp本身的table能实现多种读取方式,但是因为需要tabel是使用excel保存的,在没有...
[阅读全文]
-
-
-
-
-
-
-
网友评论