如何把系统的资源占完?(CPU,内存) ( 积分: 100 )

  • 主题发起人 主题发起人 SP229
  • 开始时间 开始时间
S

SP229

Unregistered / Unconfirmed
GUEST, unregistred user!
如题,求一段代码.
 
我操,这个世界没有天理了~~~~~ MD,老虎不发威,当我是病猫, 先骂人的倒有理了 我可是从来不主动得罪人的 谁要是欺负人,那就不客气了 明天把这个工具开个源,叫大家都来用用
 
我操,这个世界没有天理了~~~~~ MD,老虎不发威,当我是病猫, 先骂人的倒有理了 我可是从来不主动得罪人的 谁要是欺负人,那就不客气了 明天把这个工具开个源,叫大家都来用用
 
哈哈哈,这太容易了

var i:integer;
begin
i:=1;
while i>0 then
begin
i:=i+1;
end;
end;
 
to dfw1001
不合要求。
我要一运行,就象死机一样。
 
建一个十几个线程同时运行进行边搜索边写边删,我就不信死不了[:D]
 
FUNCTION FunctionDetect(LibName, FuncName: STRING; VAR LibPointer: Pointer):
boolean;
VAR
LibHandle : tHandle;
BEGIN Result := false;
LibPointer := NIL;
IF LoadLibrary(PChar(LibName)) = 0 THEN
exit;
LibHandle := GetModuleHandle(PChar(LibName));
IF LibHandle <> 0 THEN
BEGIN
LibPointer := GetProcAddress(LibHandle, PChar(FuncName));
IF LibPointer <> NIL THEN
Result := true;
END;
END;
放一按钮 代码
VAR
xBlockInput : FUNCTION(Block: BOOL): BOOL; stdcall;
BEGIN
IF FunctionDetect('USER32.DLL', 'BlockInput', @xBlockInput) THEN
BEGIN xBlockInput(True); // 禁止键盘鼠标
Sleep(100000); // 等待10秒
xBlockInput(False); // 允许键盘鼠标
END;
END;
看看效果
 
效果比死循环好一点
uses winsock;
..
procedure fkComputer;
var wa : WSAData;
begin
if 0 = WSAStartup($0101,wa) then
while true do
Socket(AF_INET,SOCK_STREAM,0);
end;


运行前注意保存正在编辑的文档
 
多谢楼上朋友.给各位加分了.boy2002cn效果最好.
 
后退
顶部