Есть программа, написанная на Microsoft Quick Basic v.4.50, которая пингует сайт и при не получении ответа от сайта в течении 120 секунд производит перезагрузку.
есть 2 причины моей просьбы:
1. при запуске данной программы запускается также непонятный процесс под названием "ntvdm.exe", который вешает комп на 98% быстродействия (QB 4.5 не способен компилировать под современные ОС);
вот снимок экрана:
2. EXE-файл нижеприведённой программы не способен запуститься через команду Start и запускать его можно только из BAT-файла простым вызовом типа: "c:\cc.exe" - тут не получиться задать минимальный приоритет работы программы;
Код:
ON ERROR GOTO er
ex% = 0
WHILE ex% < 12
SHELL "ping /n 1 google.com|Find /I " + CHR$(34) + "TTL=" + CHR$(34) + ">qqqq"
OPEN "qqqq" FOR INPUT AS #1
IF NOT EOF(1) THEN LINE INPUT #1, a$ ELSE a$ = ""
CLOSE #1
l% = LEN(a$)
IF l% = 0 THEN ex% = ex% + 1 ELSE ex% = 0
SLEEP 10
GOTO jump
er:
CLOSE #1
jump:
WEND
SHELL "shutdown -t 0 -r -f"
END
коммент к строке 4:
это Batch-команда (т.е. команда, вызываемая из BAT-файла, которая сохраняет значение пинга в файл qqqq без расширения):
Код:
ping /n 1 google.com|Find /I "TTL=">qqqq
а так - вроде как обычный Бейсик.....
огромная просьба:
перепишите мне пожалуйста данный код программы на язык C и скомпилируйте EXE-файл
есть вариант использования Batch-команд:
Код:
echo off
SetLocal EnableExtensions
if "%~1"=="" (start "" /normal "%~fs0" ~& exit)
:begin
ping -n 6 127.1 >NUL
ping -n 1 google.com|Find /I "TTL=" && (set n=0 & goto begin) || set /a n+=1
if "%n%"=="12" shutdown -t 0 -r -f
goto begin
но и этот вариант у меня "не прошёл"
- претензий к коду Batch у меня нет
просто в процессе продолжительной работе вылазит сообщение об ошибке, касающееся Ping.exe
- я точно не знаю в чем причина этого сообщения, но одно могу сказать точно:
пока я не нажму "Ок" в данном окне сообщения, - то Batch-программа работать не будет
(т.е. в любом случае нужно убрать окно сообщения об ошибке, - в противном случае код Batch-файла приостанавливает свою работу)