Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Windows > перегрузка компа

Автор: ПапаМишка 22.7.2006, 10:06

Доброго времени суток!

Может кто сталкивался как сделать в винде, или проги специальные может есть?

как сделать так, что бы если компьютер определённое время стоит без интернета, он сам перегружался ?

Автор: Romikgy 22.7.2006, 17:16

Цитата(ПапаМишка @ 22.7.2006, 09:06

)

проги специальные может есть?

может Cronn поможет , если нет , то имхо самому писать надо будет

Автор: ПапаМишка 22.7.2006, 21:10

Извините.... а что за Cronn ?

Автор: Ch0bits 22.7.2006, 23:43

Планировщик такой - http://ru.wikipedia.org/wiki/Cron
Только он под *nix писан, но под Windows тоже есть порт - http://cronw.sourceforge.net/

Автор: zetMode 22.7.2006, 23:48

ПапаМишка наверняка имел ввиду nnCron.
а вообще, по идее, можно на VBS и виндовый шедулер заморочица smile

Автор: Ch0bits 23.7.2006, 00:15

http://www.nncron.ru/
Только он shareware на 30 дней. smile

Автор: Ch0bits 23.7.2006, 00:37

Цитата(Romikgy @ 22.7.2006, 18:16

)

то имхо самому писать надо будет

Цитата(zetMode @ 23.7.2006, 00:48

)

можно на VBS и виндовый шедулер заморочица

На словах все умные, а кто писать будет?
Нате вот. Проверял на своём модемном соединении.

Код


program Project2;

uses SysUtils, Windows, WinInet;

function IsConnected: Boolean;
var
    flags: DWORD;
begin
    Result := InternetGetConnectedState(@flags, 0);
end;

procedure Reboot;
var
    p: pchar;
begin
    GetMem(p, 255);
    GetSystemDirectory(p, 254);
    WinExec(pchar(p + '\shutdown.exe -r -t 05'), 0);
end;

begin
    while (1 = 1) do begin
        if not IsConnected then Reboot;
        Sleep(10000); // Проверяет подключение каждые 10 сек
    end;
end.

Добавлено @ 00:41
Для тех, кто без Delphi прикрепляю бинарник.
http://webfile.ru/1032868

Автор: ПапаМишка 23.7.2006, 18:32

Ch0bits

СУПЕР!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Агромное СПАСИБА!!!!!!

Завтра на работе попробую