@echo off

set MyServer=192.168.2.28
:loop
Color 0e

echo %MyServer%
@%SystemRoot%\system32\ping.exe -n 1 -l 1 -w 1 %MyServer% | findstr /r /c:"[0-9] *ms"
if errorlevel 1 goto NoServer

for /f "tokens=2 delims==" %%a in ('wmic OS Get localdatetime /value') do set "dt=%%a"
set "YY=%dt:~2,2%" & set "YYYY=%dt:~0,4%" & set "MM=%dt:~4,2%" & set "DD=%dt:~6,2%"
set "HH=%dt:~8,2%" & set "Min=%dt:~10,2%" & set "Sec=%dt:~12,2%"

set "datetimestamp=%YYYY%%MM%%DD%%HH%%Min%" 
set "tegnapi=%YYYY%%MM%"
set "datetimestampcsaknap=%YYYY%%MM%%DD%"
set "datetimestampcsakora=%YYYY%%MM%%DD%%HH%" 
set "csaknap=%DD%"
set "csakora=%HH%"
set /a "csaknapplusz=%csaknap%+1"
set /a "csaknapminusz=%csaknap%-1"
set "tegnapi=%YYYY%%MM%%csaknapminusz%"

if not exist "b:\htdocs\vnc\%MyServer%\jpg" md b:\htdocs\vnc\%MyServer%\jpg
if not exist "b:\htdocs\vnc\%MyServer%\jpg\%csaknap%" md b:\htdocs\vnc\%MyServer%\jpg\%csaknap%


if not exist "b:\htdocs\vnc\%MyServer%\gif" md b:\htdocs\vnc\%MyServer%\gif
if not exist "b:\htdocs\vnc\%MyServer%\gif\%csaknap%" md b:\htdocs\vnc\%MyServer%\gif\%csaknap%
if not exist "b:\htdocs\temp\%MyServer%\" md b:\htdocs\temp\%MyServer%\

echo del %MyServer%\jpg\%csaknapplusz%\*.jpg/gif
del b:\htdocs\vnc\%MyServer%\jpg\%csaknapplusz%\*.jpg
del b:\htdocs\vnc\%MyServer%\gif\%csaknapplusz%\*.gif

set "downloaddir=b:\htdocs\vnc\%MyServer%\jpg\%csaknap%\"
set "downloaddirgif=b:\htdocs\vnc\%MyServer%\gif\%csaknap%\"


set "downloadjpg=b:\htdocs\vnc\%MyServer%\jpg\%csaknap%\%datetimestamp%.jpg"
set "downloadgif=b:\htdocs\vnc\%MyServer%\gif\%csaknap%\%datetimestamp%.gif"
set "downloadgifcsakora=b:\htdocs\vnc\%MyServer%\gif\%csaknap%\%datetimestampcsakora%*.gif"

set "vncconfig=-allowblank -nocursor -compresslevel 9 -vncQuality 1 -quality 1 -count 1 -passwd b:\vnc-project\bat\ide.txt"

echo download


  
if %MyServer%==192.168.2.28 b:\bat\vncsnapshot.exe %vncconfig% %MyServer% %downloadjpg%


@REM echo dell null files
@REM cd %downloaddir%
@REM forfiles /c "cmd /c if @fsize==0  echo hibas: @file"
@REM forfiles /c "cmd /c  if @fsize==0  del @file"

echo jpg to gif
@REM i_view64.exe /clippaste
@rem echo wget datetojpg.php
@rem b:\bat\wget --timeout=10 --waitretry=10 --tries=1 --quiet -O - http://192.168.1.16/szoglete40/crontab/datetojpg.php --user=joremeny --password=remenysegfoka >%downloaddirgif%%datetimestamp%datetime.gif
@rem echo IrfanView
@REM if exist %downloadjpg% C:\IrfanView\i_view64.exe %downloadjpg%  /resample /jpgq=1 /resize=(640,480) /aspectratio /jpgq=1 /convert=%downloadgif% 

set "datetimestampgif=%YYYY%-%MM%-%DD% %HH%:%Min%" 

echo ImageMagick %datetimestampgif%
if exist %downloadgif% C:\ImageMagick\magick convert -page +380 -fill darkred -pointsize 12 -size 240x label:"%datetimestampgif%" b:\htdocs\vnc\datetime.gif
if exist %downloadjpg% C:\ImageMagick\magick %downloadjpg% -resize 640 -strip -quality 50 -interlace Plane -gaussian-blur 0.05 -colorspace RGB  -coalesce null: b:\htdocs\vnc\datetime.gif -compose dissolve  -layers composite %downloadgif%

@rem if exist %downloadgif% C:\ImageMagick\magick %downloadgif% -coalesce null: %downloaddirgif%%datetimestamp%datetime.gif -compose CopyOpacity -layers composite %downloadgif%
@rem if exist %downloadgif% C:\ImageMagick\magick.exe   composite -compose Dst_Over -tile pattern:checkerboard %downloaddirgif%%datetimestamp%datetime.gif  b:\
@rem echo C:\IrfanView\i_view64.exe %downloadjpg% /resample /jpgq=1 /resize=(640,480) /aspectratio /advancedbatch /ini=b:\bat\i_view64\i_view64.ini  /convert=%downloadgif% 
echo gifsicle
if exist %downloadgif% b:\bat\gifsicle.exe --no-warnings  --crop-transparency --no-comments --no-extensions --no-names --interlace -O3 --resize-fit-width 640 --delay=20 --colors 48 --lossy=180 --loop %downloadgifcsakora% --output b:\htdocs\temp\%MyServer%\%csakora%.gif
@rem   --use-colormap web --no-transparent

dir b:\htdocs\temp\%MyServer%\%csakora%*.gif

:NoServer
Color 0c


if %MyServer%==192.168.2.28 (SET "MyServer=192.168.2.28" & goto loop)
if %MyServer%==192.168.1.18 (SET "MyServer=192.168.1.51" & goto loop)


@goto loop

goto :EOF
@end // end batch / begin JScript chimera

var server = WSH.Arguments(0),
    port = WSH.Arguments(1),
    protocol = port == 443 ? 'https' : 'http',
    URL = protocol + '://' + server + ':' + port + '/',
    XHR = WSH.CreateObject('Microsoft.XMLHTTP');

XHR.open('GET', URL);
XHR.setRequestHeader('User-Agent','XMLHTTP/1.0');
XHR.send('');
while (XHR.readyState != 4) WSH.Sleep(25);
WSH.Quit(XHR.status - 200);