服务器之家

服务器之家 > 正文

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

时间:2020-07-18 11:29     来源/作者:VBS教程网
  1. On Error Resume Next  
  2. Set Arg=Wscript.arguments  
  3. If Arg.count=0 then Wscript.quit  
  4. '-------------------  
  5. 'Enjoy it  
  6. 'Code By NetPatch  
  7. '-------------------  
  8. fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.vbs")  
  9.  
  10. Set Fso=CreateObject("Scripting.FileSystemObject")  
  11. Set WshShell=Wscript.CreateObject("Wscript.Shell")  
  12. Set File=Fso.OpenTextFile(Arg(0),1,False,-2)  
  13.  
  14. Wscript.echo "点确定后5秒开始"  
  15. WshShell.AppActivate "命令提示符"  
  16. Wscript.Sleep 5000  
  17. WshShell.AppActivate "命令提示符"  
  18.  
  19. Do While File.AtEndOfStream <> True  
  20. Data=File.readline  
  21. If Data="" then Data="."  
  22. Data=replace(Data,"^","{^}{^}")  
  23. Data=replace(Data,"~","{^}{~}")  
  24. Data=replace(Data,"&","{^}{&}")  
  25. Data=replace(Data,"|","{^}{|}")  
  26. Data=replace(Data,"<","{^}{<}")  
  27. Data=replace(Data,">","{^}{>}")  
  28. Data=replace(Data,"""","{^}{""}")  
  29. Data=replace(Data,"(","{(}")  
  30. Data=replace(Data,")","{)}")  
  31. Data=replace(Data,chr(9),"")  
  32. WshShell.SendKeys "echo "&Data&">>"&fname  
  33. Wscript.Sleep 300  
  34. WshShell.SendKeys "{ENTER}"  
  35. Wscript.Sleep 1000  
  36. Loop  
  37. File.close  
  38. Set Fso=nothing  
标签:

相关文章

热门资讯

2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享 2020-04-07
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意 2019-07-07
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
返回顶部