无忧启动论坛

 找回密码
 注册
搜索
一次装机 终生领工资最纯净的「微PE装机优盘」UEPON大师作品好系统,装机首选好系统

「简单绿色的装机助手」盘云出品

★IDC大全★服务器租赁、托管★优惠促销★助力无忧,捐助本站,加入VIP会员
查看: 368|回复: 13

[分享] bat转vbs,近似于静默执行bat

  [复制链接]
发表于 2018-9-14 17:14:46 | 显示全部楼层 |阅读模式
  1. @echo off
  2. set route=%cd%
  3. set ravel=
  4. set /p ravel=    请输入要转化的批处理:
  5. set "ravel=%ravel:"=%"
  6. if exist "%ravel%" goto go
  7. :go
  8. for /f "delims=*" %%a in ("%ravel%") do (
  9. cd /d "%%~dpa"
  10. set file=%%~na.vbs
  11. set ffile=%%~nxa
  12. )
  13. copy  %ffile% bak%ffile%
  14. for /f "delims=" %%a in ('type %ffile%') do (
  15. set "str=%%a"
  16. setlocal enabledelayedexpansion
  17. echo !str:^"=^"^"!>>temp
  18. endlocal
  19. )
  20. move /y temp %ffile%>nul
  21. echo set fso = createobject("scripting.filesystemobject")>>temp.vbs
  22. echo ' 读取文件>>temp.vbs
  23. echo set stream = fso.opentextfile("%ffile%",1)>>temp.vbs
  24. echo content = stream.readall()>>temp.vbs
  25. echo call stream.close()>>temp.vbs
  26. echo ' 替换字符串>>temp.vbs
  27. echo content = replace(content,"*","♀")>>temp.vbs
  28. echo ' 保存文件>>temp.vbs
  29. echo set stream = fso.opentextfile("%ffile%",2)>>temp.vbs
  30. echo call stream.write(content)>>temp.vbs
  31. echo call stream.close()>>temp.vbs
  32. start /w wscript temp.vbs
  33. del temp.vbs /q
  34. echo set fso=createobject("scripting.filesystemobject")>>%File%
  35. echo set ws=CreateObject("wscript.shell")>>%File%
  36. echo set fw=fso.createtextfile("1.bat",2)>>%File%
  37. for /f "delims=*" %%a in ('type %ffile%') do (
  38. echo fw.writeline("%%a"♂)>>%File%
  39. echo fw.close>>%File%
  40. echo ws.run "cmd /c 1.bat",vbhide,True>>%File%
  41. echo fso.deleteFile "1.bat">>%File%
  42. )
  43. move /y bak%ffile% %ffile%
  44. for /f "delims=" %%a in (%File%) do (
  45. set "str=%%a"
  46. setlocal enabledelayedexpansion
  47. echo !str:♀=*!>>temp
  48. endlocal
  49. )
  50. move /y temp %File%>nul
  51. for /f "delims=" %%a in (%File%) do (
  52. set "str=%%a"
  53. setlocal enabledelayedexpansion
  54. echo !str:♂=^)!>>temp
  55. endlocal
  56. )
  57. move /y temp %File%>nul
复制代码


bat2vbs.rar (714 Bytes, 下载次数: 38)

点评

6666666  发表于 2018-9-14 18:06
bat转exe不是更好吗?转vbs也没有必要。不过还是要支持你下  发表于 2018-9-14 17:29

评分

参与人数 1无忧币 +5 收起 理由
879792799 + 5 很给力!

查看全部评分

发表于 2018-9-14 17:27:49 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2018-9-14 17:37:05 | 显示全部楼层
还得输入?复杂了点呢
杂操作?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-9-14 17:49:29 来自手机 | 显示全部楼层
扔到打开的窗口里
回复 支持 反对

使用道具 举报

发表于 2018-9-14 20:39:03 来自手机 | 显示全部楼层
哇 楼主会写vbs
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-9-14 20:42:47 来自手机 | 显示全部楼层
拼凑的本事还是有的。我这个里面有个问题,就是那个右括号不知道为什么each不出来,没办法绕了个圈。
回复 支持 反对

使用道具 举报

发表于 2018-9-15 14:37:54 | 显示全部楼层
本帖最后由 guies 于 2018-9-15 14:41 编辑

生成的 1.bat 在 temp 下比較好,當前文件夾下當前使用者不一定有寫入的權限,另外一點就是不好看。
還有一點就是 vbs 無法按鼠標右鍵 以系統管理員身份執行
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-9-15 14:55:40 来自手机 | 显示全部楼层
vbs权限没有bat权限高,但是bat可以自己提权。生成的文件确实是去temp比较好。
回复 支持 反对

使用道具 举报

发表于 2018-9-15 15:20:45 | 显示全部楼层
直接用mshta那招,我习惯。
回复 支持 反对

使用道具 举报

发表于 2018-9-15 15:55:06 | 显示全部楼层
学习了,bat转vbs
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|手机版|Archiver|捐助支持本站|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2018-9-23 00:50

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表