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, 下载次数: 318)

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

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

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

恐龙 · 发表于 2025-6-29 12:44:31

下载看看，分享一下

afang158 · 发表于 2025-5-28 22:12:52

很给力

bldbld · 发表于 2025-5-28 22:12:16

学习一下

cnjd1079 · 发表于 2025-5-28 22:11:45

收下了

dpxjjy · 发表于 2025-5-28 22:11:12

很好很好

idcicp · 发表于 2025-5-28 22:10:47

不错不错

kxsz2025 · 发表于 2025-5-28 22:10:18

多谢多谢

tong2025tong · 发表于 2025-5-28 22:09:42

谢谢分享

xh2025168 · 发表于 2025-5-28 22:09:17

支持下载

俪尚皇 · 发表于 2025-5-28 22:08:30

下载试试

太湖哥 · 发表于 2025-5-28 22:07:57

多谢了

技束源 · 发表于 2025-5-28 22:07:03

正需这个

甲方 · 发表于 2025-5-28 22:06:34

支持你下

菲菲18866 · 发表于 2025-5-28 22:05:51

近似于静默执行bat

我是李刚 · 发表于 2025-5-28 22:04:49

bat转vbs

ol8080 · 发表于 2025-5-28 18:00:30

多谢多谢了

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

谢谢分享，支持下载

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

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

点评

评分