Просмотр полной версии : нужна программа...
sTe[A]LeR
27.11.2009, 16:07
нужна программа, которая снизит производительность компьютера : загрузит проц пустыми вычислениями или заставит тормозить видюху...
Кто что подскажет ?
[Abbath]
27.11.2009, 16:27
касперский
хахахахха =) прав 100%
запусти пассворд рековерси с приоритетом реального времени
у меня зависает комп
\\ChaOs//
27.11.2009, 16:55
@echo off
:s
start 123
goto:s
скопируй это в блокнот и сохрани как 123.bat, потом запусти.
sTe[A]LeR
27.11.2009, 17:08
@echo off
:s
start 123
goto:s
скопируй это в блокнот и сохрани как 123.bat, потом запусти.
эт немного не то . . . мне не нужно запускать что -либо стопитцот раз, тем более все это сделать нужно так, чтоб было без палева,
касперский отличное решение
LiteMentaL
27.11.2009, 17:20
касперский однозначно... но вот мне не помагает... слишком мощная машина :(
-Unlocked-
27.11.2009, 17:23
Лайтментал крут. Понел, лило, у него 2 ядра, ему на каждое ядро надо по касперскому.
поставь два касперского :Р
-Unlocked-, ну и пусть у него два ядра, зато у Лило три ноги :)
ErrorNeo
27.11.2009, 18:44
Грузилка v1.0
описание:
Программа совершенно ничего не делает.
Но не делает она это в 4 потока с критическим системным приоритетом, таким образом способна отправить в полную кому совершенно любую, не важно скольки-ядерную систему.
Более мощный процессор, в данном случае, лишь позволяет программе ничего не делать с большей эффективностью, чем медленный.
код программы:
program Program1;
uses
Classes;
const
threads=4; //количество потоков, в которое работает программа.
//Должно превышать количество ядер для того,
//чтобы была возможность полностью загрузить их все.
type
TMyThread = class(TThread)
public
constructor Create; overload;
protected
procedure Execute; override;
end;
constructor TMyThread.Create;
begin
Create(true);
FreeOnTerminate := True;
Priority := tpLower;
// priority:=tpTimeCritical;
Resume;
end;
//thread
procedure TMyThread.Execute;
begin
while true do;
end;
//body
var
i:integer;
MyThread : array of TMyThread;
begin
setlength(MyThread,threads);
for i:=0 to threads-1 do MyThread[ i]:=TMyThread.Create;
repeat until false;
end.
{example written by E.N.}демо версия:
http://slil.ru/28262330
(в ней приоритет у потоков, создаваемых программой выставлен как низкий)
для того, чтобы версия стала злой - достаточно заменить в коде строку
Priority := tpLower; на
priority := tpTimeCritical;
Язык программы - Delphi.
Злая версия отправляет систему в такой коматоз, что невозможно вызвать даже Диспетчер Задач, или же просто нажать конпку Пуск. Хотя мышка по-прежнему периодически дергается...
так же возможно выставление и других приоритетов, по желанию.
tpIdle = &HFFFFFFF1 -15 Lowest thread priority
tpLowest = &HFFFFFFFE -2 Indicates 2 points below normal priority for the priority class.
tpBellowNormal = &HFFFFFFFF -1 Indicates 1 point below normal priority for the priority class.
tpNormal = &H0 0 Indicates normal priority for the priority class.
tpAboveNormal = &H1 1 Indicates 1 point above normal priority for the priority class.
tpHighest = &H2 2 Indicates 2 points above normal priority for the priority class.
tpTimeCritical = &HF 15 Indicates a base-priority level of 15.
sTe[A]LeR
27.11.2009, 19:17
Огромное спасибо ErrorNeo за помощь !!!
PHOEN_i_X
27.11.2009, 19:52
Ну как уже предлагали ав ) а лучше 3, чтобы конфликтовали )
winlogon.exe
27.11.2009, 20:56
касперский, доктор веб, фаер, и еще не мало программулин стоит и не сколько не лагает пк))
vBulletin® v3.8.14, Copyright ©2000-2026, vBulletin Solutions, Inc. Перевод: zCarot