Форум: "Система";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];
ВнизПрограммно выключить компьютер Найти похожие ветки
← →
konusov (2002-04-02 00:44) [0]Как в Delphi программно выключить компьютер с другого компьютера в сети?
← →
Doom (2002-04-02 01:27) [1]ShutDown(Computername :string);
← →
Suntechnic (2002-04-02 06:32) [2]См. InitiateSystemShutdown. Работает только под NT/2000/XP. Чтобы выключить удалёную машину надо иметь права администратора.
← →
Pavel_S (2002-04-02 09:48) [3]Следующий код работает и в 98 и в 2000 винде
var
handle, ph: THandle;
n: DWORD;
luid: TLargeInteger;
priv: TOKEN_PRIVILEGES;
dummy: PTokenPrivileges;
ver: TOSVERSIONINFO;
begin
ph:=GetCurrentProcess;
ver.dwOSVersionInfoSize := Sizeof(ver);
GetVersionEx(ver);
if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then
begin
if OpenProcessToken(ph, TOKEN_ADJUST_PRIVILEGES, handle) then
if LookupPrivilegeValue(nil, "SeShutdownPrivilege", luid) then
begin
priv.PrivilegeCount := 1;
priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
priv.Privileges[0].Luid := luid;
dummy := nil;
AdjustTokenPrivileges(handle, false, priv, 0, dummy^, n);
end;
end;
ExitWindowsEx(EWX_FORCE or EWX_POWEROFF or EWX_SHUTDOWN,0);
end;
← →
Pavel_S (2002-04-02 09:49) [4]:) Ошибочка, это для локального компа
← →
Zemal (2002-04-02 10:08) [5]Ребят, ну что вы нюкерам и хакерам помогаете? Дойди, да выруби комп сам! А если хочешь подкозлить кому-то, уважаемый Konusov, то это твоё личное дело! :) Поищи на хакерских сайтах, там достаточно нюкеров всяких валяется. Кстати, если на компе в реестр прописать загрузку некоего сервера, который будет выполнять API функции, то вообще можно практически управлять компом... кстати, я уже такую фичу видел... можно CD привод выдвигать и задвигать, и монитор отключать, и кнопку "пуск" прятать... и т.д. Но всё это просто глупости, на которые время тратить может только... у меня всё.
← →
Tosov (2002-04-02 11:56) [6]InitiateSystemShutdown (см.Suntechnic )
Пример: http://delphi.xonix.ru/faq/show.php?m=system&n=2
← →
Anatoly Podgoretsky (2002-04-02 14:03) [7]Zemal © (02.04.02 10:08)
Не вижу здесь хакерских мотивов, обычная административная функция, нужен клиент и аутентификация и конечно права.
Если ты усмотрел вредительские действия прямо так и скажи Конушов ты горе хакер и вообще плохой человек.
← →
konusov (2002-04-02 23:59) [8]Народ, речь идет об управлением компьютерами в игровом зале. Пользователь оплатил время и оператор не может за всеми уследить (127 мест). Поэтому нужно чтобы конкретный компьютер в сети выключался автоматически, по истечении оплаченого времени (и не включался, пока оператор не разрешит).
Повторяю вопрос: Как в Delphi программно выключить компьютер с другого компьютера в сети?
← →
Suntechnic (2002-04-03 02:12) [9]>konusov (02.04.02 23:59)
>Повторяю вопрос: Как в Delphi программно выключить компьютер с другого компьютера в сети?
Ты вообще ответы на свои вопросы читаешь, прежде чем новый пост создать? Для тех кто с бронепоезда повторяю: ответ дан уже два раза, Suntechnic © (02.04.02 06:32) & Tosov © (02.04.02 11:56) да к тому же ещё и с примером.
← →
Anatoly Podgoretsky (2002-04-03 13:32) [10]konusov (02.04.02 23:59)
Включать весьма проблематично, если конечно не задествовано Wake On Lan. Вопрос то у тебя неверно поставлен, выключать также как и локально ExitWindows, а как сделать это удаленно, тут на помощь придет технология клиент/сервер
← →
ilax (2002-04-05 03:48) [11]А как поднимать комп по самой Wake On Lan?
← →
PC Maniac (2002-04-19 23:30) [12]Троян свой писать надо.
Простите, Zemal, не троян а программу удаленного администрирования :-)
И экран (монитор) гасить гораздо проще и приятнее, да и если юзер доплатит можно просто заново врубить экран, а не загружать машину.
← →
Doom (2002-04-19 23:38) [13]А можно просто подвесить тачку чтобы не реагировала на клаву и мышь. Мы с своем салоне так делали. А шатдаун раздражает . Человек может в азарте, доплатить захочет а ты его- шмяк! Обидится и больше не придет
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c