winsfly

@echo off
title 禁止关闭！！！
mode con lines=1 cols=20
REM 几十个供销商网站地址全部放到URL.txt里面，每行一个网址
taskkill /f /im iexplore.exe
for /f "tokens=1 delims=\" %%i in ('type "URL.txt"') do (
    call :OpenURL "%%i"
)
goto :eof

:OpenURL
start "" "%systemdrive%\Program Files\Internet Explorer\iexplore.exe" %1

:CheckProc
tasklist /nh | find /i "iexplore.exe"
if errorlevel 1 (
    goto :eof
) else (
    goto :CheckProc
)
复制代码