批处理之家 - Powered by Discuz! Board

标题: [其他] [已解决]求助隐藏批处理自身的代码 [打印本页]

作者: yuan37 时间: 2012-9-28 12:52 标题: [已解决]求助隐藏批处理自身的代码

本帖最后由 yuan37 于 2013-7-10 11:28 编辑

搜了一下，网上有很多隐藏批处理自身的代码，试了都不行，还是黑框闪了一下，
有没有运行自身批处理时没有黑框出现的，先谢。

作者: bingxing8000 时间: 2012-9-28 13:33

用VBS，调用bat就可以了

作者: 0123456789 时间: 2012-9-28 13:36

Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c D:\1.bat",vbhide
把上面的代码写入记事本，另存为vbs文件，代码里D:\1.bat是你的bat的路径
这样就隐藏了。

作者: bingxing8000 时间: 2012-9-28 13:40

Set ws = CreateObject("Wscript.Shell")   
ws.run "cmd /c D:\1.bat",0
复制代码

把vbhide 改为0也可以
代码里D:\1.bat也可以改为DOS命令

作者: yuan37 时间: 2012-9-28 17:15

多谢楼上三位帮忙，马上试试!

作者: ny350101 时间: 2012-10-1 02:08

4楼，如果DOS命令为多条怎么写？

作者: angelbd 时间: 2012-10-1 07:02

严重关注，本人也习惯多条命令依次连写，如何最优化？

作者: apang 时间: 2012-10-1 08:56

回复 6# ny350101

Set ws = CreateObject("Wscript.Shell")   
ws.run "cmd /c copy C:\a.txt D:\ & copy C:\a.txt E:\",0
复制代码

作者: ny350101 时间: 2012-10-1 11:24

回复 8# apang

如果是这样的代码如何写？

@echo off
setlocal enabledelayedexpansion
for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
    set var=%%i
    set drive=!var:~-2!
    fsutil fsinfo drivetype !drive!|find "固定">nul && (
    if exist !drive!\RECYCLER rd/s/q !drive!\RECYCLER >nul 2>nul
    if exist !drive!\Recycled rd/s/q !drive!\Recycled >nul 2>nul
    )
)
taskkill /f /im explorer.exe >nul
start "" "explorer.exe"
复制代码

欢迎光临批处理之家 (http://www.bathome.net/)