批处理代码,执行的时候怎么让它不显示dos窗口
@echooffsetlocalenabledelayedexpansionsetn=setp=D:\MyDocuments\MyPicturespushd%p%for/...
@echo off
setlocal enabledelayedexpansion
set n=
set p=D:\My Documents\My Pictures
pushd %p%
for /f "tokens=*" %%i in ('dir/b/od *.jpg') do (
set /a n+=1
if !n! leq 4 del "%%i"
)
以上是代码,执行的时候窗口会闪一下消失,如何做到连闪都不闪,完全隐藏。
我不懂代码,请把这段代码和加了隐藏窗口的代码,在完全的写一遍。叫我加个什么代码,我也不懂的怎么加。好像@echo off 这个就是隐藏的。但是怎么还会闪一下呢。隐藏的不彻底啊。 展开
setlocal enabledelayedexpansion
set n=
set p=D:\My Documents\My Pictures
pushd %p%
for /f "tokens=*" %%i in ('dir/b/od *.jpg') do (
set /a n+=1
if !n! leq 4 del "%%i"
)
以上是代码,执行的时候窗口会闪一下消失,如何做到连闪都不闪,完全隐藏。
我不懂代码,请把这段代码和加了隐藏窗口的代码,在完全的写一遍。叫我加个什么代码,我也不懂的怎么加。好像@echo off 这个就是隐藏的。但是怎么还会闪一下呢。隐藏的不彻底啊。 展开
4个回答
展开全部
批处理本身不具备隐藏功能,用vbs调用bat(vbs具有隐藏功能);
CreateObject("Wscript.Shell").run "cmd /c ""E:\My Batch\开机切换墙纸.bat""",vbhide
'E:\My Batch\开机切换墙纸.bat换成对应的bat完全路径即可。
CreateObject("Wscript.Shell").run "cmd /c ""E:\My Batch\开机切换墙纸.bat""",vbhide
'E:\My Batch\开机切换墙纸.bat换成对应的bat完全路径即可。
追问
怎么把我那原来的代码和你的代码整合在一起呢,然后怎么保存成可以执行的程序。
追答
你的目的是为了隐藏cmd窗口啊,如果整合在一起那怎么隐藏窗口(可以整合,但是前面已经说过了,批处理本身不具备隐藏功能)
展开全部
set ws=WScript.CreateObject("WScript.Shell")
ws.Run "e:\bat\task.bat", 0
把e:\bat\task.bat 换成你的那个批处理的绝对路径。
然后保存成 vbs 格式。
ws.Run "e:\bat\task.bat", 0
把e:\bat\task.bat 换成你的那个批处理的绝对路径。
然后保存成 vbs 格式。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-09-23
展开全部
在批处理文件的第一行添加“@echo off”即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~fs0 h",0)(window.close)&&exit
:begin
setlocal enabledelayedexpansion
set n=
set p=D:\My Documents\My Pictures
pushd %p%
for /f "tokens=*" %%i in ('dir/b/od *.jpg') do (
set /a n+=1
if !n! leq 4 del "%%i"
)
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~fs0 h",0)(window.close)&&exit
:begin
setlocal enabledelayedexpansion
set n=
set p=D:\My Documents\My Pictures
pushd %p%
for /f "tokens=*" %%i in ('dir/b/od *.jpg') do (
set /a n+=1
if !n! leq 4 del "%%i"
)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询