修复倒计时问题、优化倒计时计算、增加任务计划自启动 - 20241031

Author: cjhdevact

Assets/SettingUI.png

@@ -1,4 +1,6 @@
-# CountDownControl - 倒计时小工具
+<h1 align="center">
+  CountDownControl - 倒计时小工具
+</h1>
 
 ## 关于本项目
 

ReadMe.md

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' 方法是按如下所示使用“*”:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.0.0.24101")> 
-<Assembly: AssemblyFileVersion("1.0.0.24101")> 
+<Assembly: AssemblyVersion("1.0.1.24102")> 
+<Assembly: AssemblyFileVersion("1.0.1.24102")> 

Src/CountDownControl.suo

@@ -121,6 +121,15 @@ if "%aa%" == "1" echo 
 if "%aa%" == "1" echo.
 if "%aa%" == "1" Reg add HKLM\Software\Microsoft\Windows\CurrentVersion\run /v CountDownControl /t REG_SZ /d "%programfiles%\CJH\CountDownControl\CountDownControl.exe" /f
 echo.
+choice /C YN /T 5 /D Y /M "是(Y)否(N)要添加任务计划级自动启动项（5秒后自动选择Y）"
+if errorlevel 1 set bk=1
+if errorlevel 2 set bk=2
+if "%bk%" == "1" echo.
+if "%bk%" == "1" echo 如果长时间停留在此操作，请检测是否被杀毒软件拦截。
+if "%bk%" == "1" echo.
+if "%bk%" == "1" schtasks.exe /Delete /TN \CJH\CountDownControl /F
+if "%bk%" == "1" schtasks.exe /create /tn \CJH\CountDownControl /xml "%~dp0CountDownControl.xml"
+echo.
 choice /C YN /T 5 /D Y /M "是(Y)否(N)要安装策略到当前系统（安装后可以使用组策略编辑倒计时小工具的策略）（5秒后自动选择Y）"
 if errorlevel 1 set ac=1
 if errorlevel 2 set ac=2
@@ -137,6 +146,7 @@ if "%ad%" == "1" if exist "%systemdrive%\ProgramData\Microsoft\Windows\Start Men
 if "%ad%" == "1" call mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%systemdrive%\ProgramData\Microsoft\Windows\Start Menu\Programs\倒计时小工具\倒计时小工具.lnk""):b.TargetPath=""%programfiles%\CJH\CountDownControl\CountDownControl.exe"":b.WorkingDirectory=""%programfiles%\CJH\CountDownControl"":b.Save:close")
 
 copy /y "%~dp02-卸载.bat" "%programfiles%\CJH\CountDownControl\Uninstall.bat"
+copy /y "%~dp0CountDownControl.xml" "%programfiles%\CJH\CountDownControl\CountDownControl.xml"
 
 echo.
 choice /C YN /T 5 /D Y /M "是(Y)否(N)添加卸载程序列表（5秒后自动选择Y）"
@@ -182,6 +192,15 @@ if "%aa%" == "1" echo 
 if "%aa%" == "1" echo.
 if "%aa%" == "1" Reg add HKLM\Software\Microsoft\Windows\CurrentVersion\run /v CountDownControl /t REG_SZ /d "%programfiles%\CJH\CountDownControl\CountDownControl.exe" /f
 echo.
+choice /C YN /T 5 /D Y /M "是(Y)否(N)要添加任务计划级自动启动项（5秒后自动选择Y）"
+if errorlevel 1 set bk=1
+if errorlevel 2 set bk=2
+if "%bk%" == "1" echo.
+if "%bk%" == "1" echo 如果长时间停留在此操作，请检测是否被杀毒软件拦截。
+if "%bk%" == "1" echo.
+if "%bk%" == "1" schtasks.exe /Delete /TN \CJH\CountDownControl /F
+if "%bk%" == "1" schtasks.exe /create /tn \CJH\CountDownControl /xml "%~dp0CountDownControl.xml"
+echo.
 choice /C YN /T 5 /D Y /M "是(Y)否(N)要安装策略到当前系统（安装后可以使用组策略编辑倒计时小工具的策略）（5秒后自动选择Y）"
 if errorlevel 1 set ac=1
 if errorlevel 2 set ac=2
@@ -200,6 +219,7 @@ if "%ad%" == "1" call mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell
 if "%ad%" == "1" call mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%systemdrive%\ProgramData\Microsoft\Windows\Start Menu\Programs\倒计时小工具\倒计时小工具（32位）.lnk""):b.TargetPath=""%programfiles%\CJH\CountDownControl\x86\CountDownControl.exe"":b.WorkingDirectory=""%programfiles%\CJH\CountDownControl\x86"":b.Save:close")
 
 copy /y "%~dp02-卸载.bat" "%programfiles%\CJH\CountDownControl\Uninstall.bat"
+copy /y "%~dp0CountDownControl.xml" "%programfiles%\CJH\CountDownControl\CountDownControl.xml"
 
 echo.
 choice /C YN /T 5 /D Y /M "是(Y)否(N)添加卸载程序列表（5秒后自动选择Y）"

Src/CountDownControl/Form1.vb

@@ -103,6 +103,7 @@ if "%PROCESSOR_ARCHITECTURE%"=="AMD64" goto x64
 
 :x86
 Reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\run /v CountDownControl /f
+schtasks.exe /Delete /TN \CJH\CountDownControl /F
 del /q "%windir%\PolicyDefinitions\CountDownControl.admx"
 del /q "%windir%\PolicyDefinitions\zh-CN\CountDownControl.adml"
 del /q "%windir%\PolicyDefinitions\en-US\CountDownControl.adml"
@@ -144,6 +145,7 @@ goto enda
 
 :x64
 Reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\run /v CountDownControl /f
+schtasks.exe /Delete /TN \CJH\CountDownControl /F
 del /q "%windir%\PolicyDefinitions\CountDownControl.admx"
 del /q "%windir%\PolicyDefinitions\zh-CN\CountDownControl.adml"
 del /q "%windir%\PolicyDefinitions\en-US\CountDownControl.adml"

Src/CountDownControl/Form2.vb

@@ -83,14 +83,19 @@ echo.
 echo         1  添加自动启动
 echo         2  删除自动启动
 echo.
-echo         3  退出
+echo         3  添加自动启动（任务计划模式）
+echo         4  删除自动启动（任务计划模式）
+echo.
+echo         5  退出
 echo.
 echo ========================================================
 echo.
 set /p chooice=请输入对应的数字以执行相应的操作：
 if "%chooice%" == "1" goto ad1
 if "%chooice%" == "2" goto de1
-if "%chooice%" == "3" goto enda
+if "%chooice%" == "3" goto ad2
+if "%chooice%" == "4" goto de12
+if "%chooice%" == "5" goto enda
 echo.
 echo 无效的选项，任意键返回。 & pause >nul
 goto main
@@ -104,6 +109,16 @@ Reg add HKLM\Software\Microsoft\Windows\CurrentVersion\run /v CountDownControl /
 echo 添加成功，任意键返回... & pause > nul
 goto main
 
+:ad2
+cls
+echo ====================================================
+echo                  倒计时小工具自动启动管理
+echo ====================================================
+schtasks.exe /Delete /TN \CJH\CountDownControl /F
+schtasks.exe /create /tn \CJH\CountDownControl /xml "%~dp0CountDownControl.xml"
+echo 添加成功，任意键返回... & pause > nul
+goto main
+
 :de1
 cls
 echo ====================================================
@@ -113,4 +128,13 @@ Reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\run /v CountDownContro
 echo 删除成功，任意键返回... & pause > nul
 goto main
 
+:de12
+cls
+echo ====================================================
+echo                  倒计时小工具自动启动管理
+echo ===================================================
+schtasks.exe /Delete /TN \CJH\CountDownControl /F
+echo 删除成功，任意键返回... & pause > nul
+goto main
+
 :enda