主页 > 知识库 > vbs输入助手执行会调用好多乱的进程

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

热门标签:上海办理400电话选号 天津智能外呼系统排名 智云亿呼电话机器人 机器人打电销适用于美业吗 外呼系统说话声音小怎么办 企业400电话办理价钱低 龙岩400电话申请 外呼系统群 墨西哥地图标注app
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输入助手执行会调用好多乱的进程》,本文关键词  vbs,输入,助手,执,行会,调用,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《vbs输入助手执行会调用好多乱的进程》相关的同类信息!
  • 本页收集关于vbs输入助手执行会调用好多乱的进程的相关信息资讯供网民参考!
  • 推荐文章