bat文件关闭打开的图片时弹出提示框

发布时间 2023-11-27 17:06:07作者: Dolen
@echo off&cd\&color 0a&cls

echo set windows default picture view

reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".jpg" /t REG_SZ /d PhotoViewer.FileAssoc.Tiff /f

reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".jpeg" /t REG_SZ /d PhotoViewer.FileAssoc.Tiff /f

reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".bmp" /t REG_SZ /d PhotoViewer.FileAssoc.Tiff /f

reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".png" /t REG_SZ /d PhotoViewer.FileAssoc.Tiff /f

echo set windows default picture view success

chcp 65001

start F:\相片\大合照2023.jpg


setlocal enabledelayedexpansion
:startPra
tasklist |find "dllhost.exe"
ping -n 5 127.0.0.1>nul
goto endPra


:endPra
set Vbscript=Msgbox("你的电脑将在五分钟后关机,是否继续?",1,"系统提醒")
for /f "Delims=" %%a in ('MsHta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(%Vbscript:"=""%)"^)(Close^)') do Set "MsHtaReturnValue=%%a"
set ReturnValue1=同意关机
set ReturnValue2=取消操作
echo 你点击了!ReturnValue%MsHtaReturnValue%!
if %MsHtaReturnValue% == 1 (
    start F:\相片\大合照2023.jpg
) else (
    echo 取消成功!!!
)
pause