bat转vbs，近似于静默执行bat

窄口牛 · 发表于 2018-9-14 17:14:46

@echo off
set route=%cd%
set ravel=
set /p ravel= 请输入要转化的批处理:
set "ravel=%ravel:"=%"
if exist "%ravel%" goto go
:go
for /f "delims=*" %%a in ("%ravel%") do (
cd /d "%%~dpa"
set file=%%~na.vbs
set ffile=%%~nxa
)
copy %ffile% bak%ffile%
for /f "delims=" %%a in ('type %ffile%') do (
set "str=%%a"
setlocal enabledelayedexpansion
echo !str:^"=^"^"!>>temp
endlocal
)
move /y temp %ffile%>nul
echo set fso = createobject("scripting.filesystemobject")>>temp.vbs
echo ' 读取文件>>temp.vbs
echo set stream = fso.opentextfile("%ffile%",1)>>temp.vbs
echo content = stream.readall()>>temp.vbs
echo call stream.close()>>temp.vbs
echo ' 替换字符串>>temp.vbs
echo content = replace(content,"*","♀")>>temp.vbs
echo ' 保存文件>>temp.vbs
echo set stream = fso.opentextfile("%ffile%",2)>>temp.vbs
echo call stream.write(content)>>temp.vbs
echo call stream.close()>>temp.vbs
start /w wscript temp.vbs
del temp.vbs /q
echo set fso=createobject("scripting.filesystemobject")>>%File%
echo set ws=CreateObject("wscript.shell")>>%File%
echo set fw=fso.createtextfile("1.bat",2)>>%File%
for /f "delims=*" %%a in ('type %ffile%') do (
echo fw.writeline("%%a"♂)>>%File%
echo fw.close>>%File%
echo ws.run "cmd /c 1.bat",vbhide,True>>%File%
echo fso.deleteFile "1.bat">>%File%
)
move /y bak%ffile% %ffile%
for /f "delims=" %%a in (%File%) do (
set "str=%%a"
setlocal enabledelayedexpansion
echo !str:♀=*!>>temp
endlocal
)
move /y temp %File%>nul
for /f "delims=" %%a in (%File%) do (
set "str=%%a"
setlocal enabledelayedexpansion
echo !str:♂=^)!>>temp
endlocal
)
move /y temp %File%>nul

复制代码

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

窄口牛 · 发表于 2018-9-15 17:07:43

中间文件全部改到临时文件目录

bat2vbs.rar (876 Bytes, 下载次数: 91)

rongke · 发表于 2023-2-12 22:21:07

vbs权限没有bat权限高，一直用vbs调用bat隐藏窗口运行

yjkl · 发表于 2023-2-4 11:48:44

感谢分享

hackerxmls · 发表于 2023-1-25 16:49:44

感谢分享

610644034 · 发表于 2023-1-21 14:24:56

每一次看到什么bat转exe，或者转bat之类的，都是不自觉的恶心！最近看了三体，感觉某一些人真的是“农场里的地地道道火鸡”

Liyoulove · 发表于 2022-12-5 17:13:34

很给力,支持一下

ak009 · 发表于 2022-12-1 23:51:35

感谢分享

laonat · 发表于 2022-12-1 18:27:56

谢谢分享

阖闾小小卡 · 发表于 2022-11-28 16:38:22

可以没有那个黑窗口吗?

zllfcx · 发表于 2022-11-27 15:54:05

感谢分享

wahmlt · 发表于 2022-11-25 07:24:49

感谢楼主分享资源

2012myjoys · 发表于 2022-11-22 09:48:30

学习一下，试试看怎么用

snk23 · 发表于 2022-11-22 09:09:15

下载试试

wang@qq.com · 发表于 2021-1-8 11:32:05

谢谢分享，支持下载

ddzyhhh · 发表于 2020-12-30 10:38:02

bat转exe不是更好吗？转vbs也没有必要。
不过还是要支持你下

tcog · 发表于 2020-11-11 21:28:38

多谢多谢了

smdx · 发表于 2020-11-9 13:06:13

非常实用啊，感谢分享了。一直用vbs调用bat隐藏窗口运行。这样方便多了。

蓝星明月 · 发表于 2020-9-16 06:57:00

谢谢！！！支持！！！谢谢！！！支持！！！谢谢！！！支持！！！

yzw92 · 发表于 2020-9-16 06:25:03

感谢分享

水墨轩 · 发表于 2020-9-13 13:00:35

正需这个感谢分享！

水墨轩 · 发表于 2020-9-13 13:00:04

正需要这个谢谢

bijiaolan · 发表于 2020-7-29 15:30:30

学习了，bat转vbs

zzyclss · 发表于 2020-7-25 14:54:42

1111111111111111111111111111111111111

mimixixi · 发表于 2020-7-24 19:21:21

niceqwer555 · 发表于 2020-2-13 15:39:52

谢谢分享

niceqwer555 · 发表于 2020-2-13 15:39:48

谢谢分享

feelien · 发表于 2020-2-5 22:54:08

谢谢楼主的分享!这种分享的精神帮助了很多人～！这个绝对要顶！！！

Dream漂移 · 发表于 2019-3-29 15:20:05

学习了，bat转vbs

2011npwjm · 发表于 2019-3-28 08:54:34

下载看看，分享一下

窄口牛 · 发表于 2019-3-28 08:49:42

没必要转exe，没有什么实际意义，还更容易被报毒。

窄口牛 · 发表于 2018-10-26 14:34:24

没有密码。

		自动登录	找回密码
密码			注册

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

点评

评分

浏览过的版块