Cara Menjahili Teman Dan Bermain Dengan Bahasa Pemograman

 Ok., Pada malem yang hujan ini aku mau ngeposting tentang cara menjahili teman dan bermain dengan bahasa pemograman . Banyak orang yang berkata ini adalah " Virus Komputer" tapi itu hanya omong kosong .
Itu bukan virus tapi program yang ngaku" jadi Virus :D

Penasaran ???

Ok , langsung aja ke langkah" untuk membuat program yang ngaku" jadi virus
 

• Masuk Ke Start menu , All program , accessories , Notepad
• Setelah notepad terbuka , Copas Script di bawah ke dalam notepad

1. Program  pembuat pesan otomatis , yang buat sasaran menjadi jengkel

@ECHO off

:

Begin

msg * Haloo ?

msg * Lagi apa nih ?

msg * Weww ketahuan nih..

msg * Hayooo ngaku..

msg * Ye ye ketauan yeye ketahuan

msg * Aku matiin saja gimana

msg * Mau............................

GOTO BEGIN

simpan dengan berekstensi .bat contoh usil.bat

NB : pesan nya bisa di ubah " sesuka kamu 

2. Membuat Program Wants to Be A Milionaire

@echo

off title quiz wants to be a millionaire 

:menu

cls

echo jika kamu kena virus apa yang kamu lakukan?

pause

echo pilih yang mana? :

echo 1. Matikan Komputer

echo 2. Format Komputer

echo 3. Yahhhh...

set input=nothing

set /p input=Choice:

if %input%==1 shutdown -s -t 30

if %input%==2 del c:\xxx

if %input%==3 @ECHO off

msg * Kurang Beruntung nih

msg * Kurang Iman kali 

msg * Aduh ini gimana kok tambah parah

msg * Masukin ke UGD aja ya

msg * Telpon 311 saja ya

@ECHO off 

:top START %SystemRoot%

\system32\notepad.exe

GOTO top

Simpan dengan .bat contoh contoh = Kuis Wants to be a millionaire.bat

3. Membuka notepad terus-menerus

@ECHO off

:top

START %SystemRoot%

\system32\notepad.exe

GOTO top

Simpan dengan ektensi .bat

4.  Shutdown sendiri dan kirim pesan otomatis

Set wshShell

=wscript.CreateObject

"WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop

Simpan dengan .vbs

5. Program CD Room terbuka dan tertutup terus

Set oWMP = CreateObject

("WMPlayer.OCX.7")

Set colCDROMs =

oWMP.cdromCollection

do

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End If

wscript.sleep 5000

loop

6. Program Tekan enter terus menerus

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep  100

wshshell.sendkeys "~(enter)"

loop

 7. Terus menekan Caps lock

MsgBox "Balik lagi ah...saltik"

Set wshShell  =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys  "{bs}"

loop

 Simapn dengan file berformat  .vbs

Gimana Mudah kan ?

Cara nonaktifkan kembali ?

Cara nya Tekan CTRL +ALT + DEL
kalau gak bisa Buka " CMD" ketik "taskmgr"
kalau udah cari file nama yang disimpan tadi Contoh " Usil.bat"
dan klik " End Proggres"

NB : Jangan praktekin cara ini ke komputer sekolah , kalau di warnet sih boleh " aja :D

( kalau ada resiko tanggung sendiri Ya :D )