无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 24946|回复: 45
打印 上一主题 下一主题

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

    [复制链接]
跳转到指定楼层
1#
发表于 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, 下载次数: 302)

点评

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

评分

参与人数 5无忧币 +25 收起 理由
smdx + 5
蓝星明月 + 5 很给力!
lookerJ + 5 很给力!
zqjiang + 5 赞一个!
879792799 + 5 很给力!

查看全部评分

来自 2#
 楼主| 发表于 2018-9-15 17:07:43 | 只看该作者
中间文件全部改到临时文件目录
bat2vbs.rar (876 Bytes, 下载次数: 91)
回复

使用道具 举报

3#
发表于 2018-9-14 17:27:49 | 只看该作者
谢谢分享,支持下载
回复

使用道具 举报

4#
发表于 2018-9-14 17:37:05 | 只看该作者
还得输入?复杂了点呢
杂操作?
回复

使用道具 举报

5#
 楼主| 发表于 2018-9-14 17:49:29 来自手机 | 只看该作者
扔到打开的窗口里
回复

使用道具 举报

6#
发表于 2018-9-14 20:39:03 来自手机 | 只看该作者
哇 楼主会写vbs
回复

使用道具 举报

7#
 楼主| 发表于 2018-9-14 20:42:47 来自手机 | 只看该作者
拼凑的本事还是有的。我这个里面有个问题,就是那个右括号不知道为什么each不出来,没办法绕了个圈。
回复

使用道具 举报

8#
发表于 2018-9-15 14:37:54 | 只看该作者
本帖最后由 guies 于 2018-9-15 14:41 编辑

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

使用道具 举报

9#
 楼主| 发表于 2018-9-15 14:55:40 来自手机 | 只看该作者
vbs权限没有bat权限高,但是bat可以自己提权。生成的文件确实是去temp比较好。
回复

使用道具 举报

10#
发表于 2018-9-15 15:20:45 | 只看该作者
直接用mshta那招,我习惯。
回复

使用道具 举报

11#
发表于 2018-9-15 15:55:06 | 只看该作者
学习了,bat转vbs
回复

使用道具 举报

12#
发表于 2018-10-19 10:53:43 | 只看该作者
谢谢分享。!~~~
回复

使用道具 举报

13#
发表于 2018-10-25 22:19:40 来自手机 | 只看该作者
压缩包密码什么
回复

使用道具 举报

14#
发表于 2018-10-26 13:18:40 | 只看该作者
确实很实用,收下了,谢谢楼主分享 支持!支持!!非常感谢!楼主辛苦了!!,
回复

使用道具 举报

15#
 楼主| 发表于 2018-10-26 14:34:24 来自手机 | 只看该作者
没有密码。
回复

使用道具 举报

16#
 楼主| 发表于 2019-3-28 08:49:42 | 只看该作者
没必要转exe,没有什么实际意义,还更容易被报毒。
回复

使用道具 举报

17#
发表于 2019-3-28 08:54:34 | 只看该作者
下载看看,分享一下
回复

使用道具 举报

18#
发表于 2019-3-29 15:20:05 | 只看该作者
学习了,bat转vbs
回复

使用道具 举报

19#
发表于 2020-2-5 22:54:08 | 只看该作者
谢谢楼主的分享!这种分享的精神帮助了很多人~!这个绝对要顶!!!
回复

使用道具 举报

20#
发表于 2020-2-13 15:39:48 | 只看该作者
谢谢分享
回复

使用道具 举报

21#
发表于 2020-2-13 15:39:52 | 只看该作者
谢谢分享
回复

使用道具 举报

22#
发表于 2020-7-24 19:21:21 | 只看该作者
kk
回复

使用道具 举报

23#
发表于 2020-7-25 14:54:42 | 只看该作者
1111111111111111111111111111111111111
回复

使用道具 举报

24#
发表于 2020-7-29 15:30:30 | 只看该作者
学习了,bat转vbs
回复

使用道具 举报

25#
发表于 2020-9-13 13:00:04 | 只看该作者
正需要这个谢谢
回复

使用道具 举报

26#
发表于 2020-9-13 13:00:35 | 只看该作者
正需这个感谢分享!
回复

使用道具 举报

27#
发表于 2020-9-16 06:25:03 | 只看该作者
感谢分享
回复

使用道具 举报

28#
发表于 2020-9-16 06:57:00 | 只看该作者
谢谢!!! 支持!!!  谢谢!!! 支持!!!  谢谢!!! 支持!!!
回复

使用道具 举报

29#
发表于 2020-11-9 13:06:13 | 只看该作者
非常实用啊,感谢分享了。一直用vbs调用bat隐藏窗口运行。这样方便多了。
回复

使用道具 举报

30#
发表于 2020-11-11 21:28:38 来自手机 | 只看该作者
多谢多谢了
回复

使用道具 举报

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

本版积分规则

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

闽公网安备 35020302032614号

GMT+8, 2024-12-12 07:07

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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