无忧启动论坛

标题: bat转vbs，近似于静默执行bat [打印本页]
作者: 窄口牛    时间: 2018-9-14 17:14
标题: bat转vbs，近似于静默执行bat
  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)
作者: xujinbiao    时间: 2018-9-14 17:27
谢谢分享，支持下载
作者: xman00    时间: 2018-9-14 17:37
还得输入？复杂了点呢
杂操作？
作者: 窄口牛    时间: 2018-9-14 17:49
扔到打开的窗口里
作者: nttwqz    时间: 2018-9-14 20:39
哇 楼主会写vbs
作者: 窄口牛    时间: 2018-9-14 20:42
拼凑的本事还是有的。我这个里面有个问题，就是那个右括号不知道为什么each不出来，没办法绕了个圈。
作者: guies    时间: 2018-9-15 14:37
本帖最后由 guies 于 2018-9-15 14:41 编辑

生成的 1.bat 在 temp 下比較好，當前文件夾下當前使用者不一定有寫入的權限，另外一點就是不好看。
還有一點就是 vbs 無法按鼠標右鍵 以系統管理員身份執行
作者: 窄口牛    时间: 2018-9-15 14:55
vbs权限没有bat权限高，但是bat可以自己提权。生成的文件确实是去temp比较好。
作者: kingshui    时间: 2018-9-15 15:20
直接用mshta那招，我习惯。
作者: promrhxq    时间: 2018-9-15 15:55
学习了，bat转vbs
作者: 窄口牛    时间: 2018-9-15 17:07
中间文件全部改到临时文件目录
bat2vbs.rar (876 Bytes, 下载次数: 91)
作者: nbhai2018    时间: 2018-10-19 10:53
谢谢分享。！~~~
作者: 9859270@qq.com    时间: 2018-10-25 22:19
压缩包密码什么
作者: ydnw2568    时间: 2018-10-26 13:18
确实很实用,收下了,谢谢楼主分享 支持!支持!!非常感谢!楼主辛苦了！！,
作者: 窄口牛    时间: 2018-10-26 14:34
没有密码。
作者: 窄口牛    时间: 2019-3-28 08:49
没必要转exe，没有什么实际意义，还更容易被报毒。
作者: 2011npwjm    时间: 2019-3-28 08:54
下载看看，分享一下
作者: Dream漂移    时间: 2019-3-29 15:20
学习了，bat转vbs
作者: feelien    时间: 2020-2-5 22:54
谢谢楼主的分享!这种分享的精神帮助了很多人～！这个绝对要顶！！！
作者: niceqwer555    时间: 2020-2-13 15:39
谢谢分享
作者: niceqwer555    时间: 2020-2-13 15:39
谢谢分享
作者: mimixixi    时间: 2020-7-24 19:21
kk
作者: zzyclss    时间: 2020-7-25 14:54
1111111111111111111111111111111111111
作者: bijiaolan    时间: 2020-7-29 15:30
学习了，bat转vbs
作者: 水墨轩    时间: 2020-9-13 13:00
正需要这个谢谢
作者: 水墨轩    时间: 2020-9-13 13:00
正需这个感谢分享！
作者: yzw92    时间: 2020-9-16 06:25
感谢分享
作者: 蓝星明月    时间: 2020-9-16 06:57
谢谢！！！ 支持！！！  谢谢！！！ 支持！！！  谢谢！！！ 支持！！！
作者: smdx    时间: 2020-11-9 13:06
非常实用啊，感谢分享了。一直用vbs调用bat隐藏窗口运行。这样方便多了。
作者: tcog    时间: 2020-11-11 21:28
多谢多谢了
作者: ddzyhhh    时间: 2020-12-30 10:38
bat转exe不是更好吗？转vbs也没有必要。
不过还是要支持你下
作者: wang@qq.com    时间: 2021-1-8 11:32
谢谢分享，支持下载
作者: snk23    时间: 2022-11-22 09:09
下载试试
作者: 2012myjoys    时间: 2022-11-22 09:48
学习一下，试试看怎么用
作者: wahmlt    时间: 2022-11-25 07:24

感谢楼主分享资源
作者: zllfcx    时间: 2022-11-27 15:54
感谢分享
作者: 阖闾小小卡    时间: 2022-11-28 16:38
可以没有那个黑窗口吗?
作者: laonat    时间: 2022-12-1 18:27
谢谢分享
作者: ak009    时间: 2022-12-1 23:51
感谢分享
作者: Liyoulove    时间: 2022-12-5 17:13
很给力,支持一下
作者: 610644034    时间: 2023-1-21 14:24
每一次看到什么bat转exe，或者转bat之类的，都是不自觉的恶心！最近看了三体，感觉某一些人真的是“农场里的地地道道火鸡”
作者: hackerxmls    时间: 2023-1-25 16:49
感谢分享
作者: yjkl    时间: 2023-2-4 11:48

感谢分享
作者: rongke    时间: 2023-2-12 22:21
vbs权限没有bat权限高，一直用vbs调用bat隐藏窗口运行



欢迎光临 无忧启动论坛 (http://bbs.c3.wuyou.net/) Powered by Discuz! X3.3