[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
chenlugen

Rank: 1

帖子
6 
积分
18 
技术
0  
捐助
0  
注册时间
2018-10-25 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2018-10-27 10:41 | 只看该作者

[文件操作] 【已解决】批处理如何在特定时间段设置启动程序次数？

本帖最后由 chenlugen 于 2018-10-29 21:32 编辑

帮我看看下面代码要如何改才能达到效果：我想实现8：00~18：00之间任一时间打开此批处理，都是打开day.dps，在其他时间则关闭day.dps后打开night.dps,反之亦然；
要实现BAT不退出，实现监控时间，时间段一变循环执行，但在相同时间段（即BAT意外被人关了，而文件未被关闭时，重新打开BAT时）只打开一次相同的文件。。。不知道描述清楚了没有！！！谢谢了！！！
  1. @echo off & title 根据时间段运行

  2. setlocal enabledelayedexpansion

  3. call :GetNowTime

  4.  

  5. :RunPart1

  6. ::8:00~18:00

  7. start "" "ppt\day.dps"

  8.  

  9. ::如果需要循环运行，请把下面的exit指令删除或用注释符进行屏蔽

  10. rem exit

  11. call :GetNowTime

  12.  

  13. :RunPart2

  14. ::18:01~7:59

  15. start "" "ppt\night.dps"

  16.  

  17. ::如果需要循环运行，请把下面的exit指令删除或用注释符进行屏蔽

  18. rem exit

  19. call :GetNowTime

  20. 

  21. :GetNowTime

  22. set NowTime=%time:~,8%

  23. set NowTime=%NowTime: =0%

  24. set NowTime=%NowTime::=%

  25. if %NowTime% geq 080000 (

  26.     if %NowTime% leq 180000 (

  27.         goto RunPart1

  28.     ) else (

  29.         goto RunPart2

  30.     )

  31. ) else (

  32.     goto RunPart2

  33. )

  34. goto :eof
复制代码
收藏 分享

flashercs

Rank: 6Rank: 6

帖子
1150 
积分
1997 
技术
239  
捐助
0  
注册时间
2017-3-20 
2楼
发表于 2018-10-28 08:22 | 只看该作者 
  1. @echo off & title 根据时间段运行

  2. setlocal enabledelayedexpansion

  3. :GetNowTime

  4. set NowTime=%time:~,8%

  5. set NowTime=%NowTime: =0%

  6. set NowTime=%NowTime::=%

  7. if %NowTime% geq 080000 (

  8.     if %NowTime% leq 180000 (

  9.         call :RunPart1

  10.     ) else (

  11.         call :RunPart2

  12.     )

  13. ) else (

  14.     call :RunPart2

  15. )

  16. REM 延迟10s

  17. timeout 10

  18. goto GetNowTime

  19. exit /b

  20.  

  21. :RunPart1

  22. ::8:00~18:00

  23. tasklist /fi "imagename eq night.dps"|find /i "night.dps"&&taskkill /f /t /im "night.dps"

  24. tasklist /fi "imagename eq day.dps"|find /i "day.dps"||start "" "ppt\day.dps"

  25. exit /b

  26.  

  27. :RunPart2

  28. ::18:01~7:59

  29. tasklist /fi "imagename eq day.dps"|find /i "day.dps"&&taskkill /f /t /im "day.dps"

  30. tasklist /fi "imagename eq night.dps"|find /i "night.dps"||start "" "ppt\night.dps"

  31. exit /b
复制代码

TOP

chenlugen

Rank: 1

帖子
6 
积分
18 
技术
0  
捐助
0  
注册时间
2018-10-25 
3楼
发表于 2018-10-28 17:21 | 只看该作者
本帖最后由 chenlugen 于 2018-10-29 21:32 编辑

回复 2# flashercs
感谢大侠的热心回复，明天去科室试试，主要是科室外接个宣传显示屏，PPt格式的宣传，看有没有能改进的地方，能实现：
1、如在是上班时间8：00~17：30自动打开day.dps并放映PPt，如期间PPT被关闭，能检测到并自动重新放映；
2.上班时间8：00~17：30 如果多次打开批处理，如PPT已打开，则进入监控操作，即不重复打开，如没有则重新打开
3.在其它时间，则关闭日间PPT，切换夜间PPT，实现日间所需功能！！！
求大侠帮助！！！！
好像用taskkill杀进程WPP.exe(WPS软件)的方法关闭PPT，第二次打开PPT时会报文件自动恢复等错误提示，不能实现自动放映...
谢谢！！！！

TOP

flashercs

Rank: 6Rank: 6

帖子
1150 
积分
1997 
技术
239  
捐助
0  
注册时间
2017-3-20 
4楼
发表于 2018-10-28 21:46 | 只看该作者
回复 3# chenlugen


    dps 怎么正确关闭?按ESC吗?

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14761 
积分
45932 
技术
846  
捐助
745  
注册时间
2008-6-9 
5楼
发表于 2018-10-29 08:49 | 只看该作者
回复 3# chenlugen


    Alt + F4 能正常关闭吗？
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

chenlugen

Rank: 1

帖子
6 
积分
18 
技术
0  
捐助
0  
注册时间
2018-10-25 
6楼
发表于 2018-10-29 21:30 | 只看该作者
感谢各位大大的热情解答，基本解决了问题！！！谢谢！！！

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14761 
积分
45932 
技术
846  
捐助
745  
注册时间
2008-6-9 
7楼
发表于 2018-10-30 08:33 | 只看该作者
回复 6# chenlugen


    用的什么方案？给大家分享一下吧
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

chenlugen

Rank: 1

帖子
6 
积分
18 
技术
0  
捐助
0  
注册时间
2018-10-25 
8楼
发表于 2018-11-2 19:54 | 只看该作者
回复 7# Batcher
基本上能实现要的功能，但还不太完善，版主大大能帮忙优化下吗？？？
有些代码只是作调试用的！！！
  1. :GetNowTime

  2. set NowTime=%time:~,8%

  3. set NowTime=%NowTime: =0%

  4. set NowTime=%NowTime::=%

  5. if %NowTime% geq 080000 (

  6.     if %NowTime% leq 180000 (

  7.         call :RunPart1

  8.     ) else (

  9.         call :RunPart2

  10.     )

  11. ) else (

  12.         call :RunPart2

  13. )

  14. REM 延迟5s

  15. choice /t 5 /d y /n >nul

  16. goto GetNowTime

  17. exit /b

  18.  

  19. :RunPart1

  20. ::8:00~18:00

  21. REM tasklist /v>taskinfo.txt

  22. tasklist /v /fi "Windowtitle eq Microsoft PowerPoint - [night [兼容模式]]"|findstr /i /c:"Microsoft PowerPoint - [night [兼容模式]]">>"taskinfo.txt"||goto rp1

  23. taskkill /fi "Windowtitle eq Microsoft PowerPoint - [night [兼容模式]]" /t>nul

  24. echo 结束-Windowtitle eq Microsoft PowerPoint - [night [兼容模式]]进程成功！>>BatRuninfo.txt

  25. :rp1

  26. REM 延迟3s

  27. choice /t 3 /d y /n >nul

  28. tasklist /v /fi "Windowtitle eq Microsoft PowerPoint - [day [兼容模式]]"|findstr /i /c:"Microsoft PowerPoint - [day [兼容模式]] ">>"taskinfo.txt"&&goto rp2||goto rp3

  29. :rp2

  30. goto :eof

  31. rem exit /b

  32. :rp3

  33. start "" "ppt\day.ppt"

  34. echo 打开ppt-Windowtitle eq Microsoft PowerPoint - [night [兼容模式]]成功！>>BatRuninfo.txt

  35. REM 延迟5s

  36. choice /t 5 /d y /n >nul

  37. call res\keyf5.vbs

  38. exit /b

  39.  

  40. :RunPart2

  41. ::18:01~7:59

  42. tasklist /v /fi "Windowtitle eq Microsoft PowerPoint - [day [兼容模式]]"|findstr /i /c:"Microsoft PowerPoint - [day [兼容模式]] ">>"taskinfo.txt"|| goto rp4

  43. taskkill /fi "Windowtitle eq Microsoft PowerPoint - [day [兼容模式]]" /t>nul

  44. echo 结束-Windowtitle eq Microsoft PowerPoint - [day [兼容模式]]进程成功！>>BatRuninfo.txt

  45. :rp4

  46. REM 延迟3s

  47. choice /t 3 /d y /n >nul

  48. tasklist /v /fi "Windowtitle eq Microsoft PowerPoint - [night [兼容模式]]"|findstr /i /c:"Microsoft PowerPoint - [night [兼容模式]]">>"taskinfo.txt"&&goto rp5||goto rp6

  49. :rp5

  50. exit /b

  51. :rp6

  52. echo 打开ppt-Windowtitle eq Microsoft PowerPoint - [night [兼容模式]]成功！>>BatRuninfo.txt

  53. REM 延迟10s

  54. choice /t 10 /d y /n >nul

  55. start "" "ppt\night.ppt"

  56. call res\keyf5.vbs

  57. exit /b
复制代码

TOP

返回列表