手机
当前位置:查字典教程网 >脚本专栏 >vbs >vbs输入助手执行会调用好多乱的进程
vbs输入助手执行会调用好多乱的进程
摘要:OnErrorResumeNextSetArg=Wscript.argumentsIfArg.count=0thenWscript.quit...

OnErrorResumeNext

SetArg=Wscript.arguments

IfArg.count=0thenWscript.quit

'-------------------

'Enjoyit

'CodeByNetPatch

'-------------------

fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.vbs")

SetFso=CreateObject("Scripting.FileSystemObject")

SetWshShell=Wscript.CreateObject("Wscript.Shell")

SetFile=Fso.OpenTextFile(Arg(0),1,False,-2)

Wscript.echo"点确定后5秒开始"

WshShell.AppActivate"命令提示符"

Wscript.Sleep5000

WshShell.AppActivate"命令提示符"

DoWhileFile.AtEndOfStream<>True

Data=File.readline

IfData=""thenData="."

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.Sleep300

WshShell.SendKeys"{ENTER}"

Wscript.Sleep1000

Loop

File.close

SetFso=nothing

【vbs输入助手执行会调用好多乱的进程】相关文章:

用vbs实现zip功能的脚本

vbs引用另一个vbs的代码

getSQLinfo.vbs 获得SQL数据/日志空间使用情况的脚本

用vbs实现的强制杀进程的脚本

关于脚本调用外部对像和类型库

用VBS可执行程序+Xmlhttp下载备份网上文件的代码

用vbs实现的瞬间关闭多个系统进程的脚本

vbs下通过日期查找文件夹的代码

运行同一目录下的可执行程序的VBS代码

vbs更改3389远程桌面端口的脚本

精品推荐
分类导航