Selamat datang di forum Cyber-XP
Di Forum kami menyediakan Sofware²
Terhangat dan Terpopuler..
Klu yg udah punya Id Langsung Log in aja
Jika ingin Daftar gampang kok caranya
Tinggal Klik Pendaftaran / Register
Lalu isi semua data diri anda
Dan jangan lupa datang kembali



 
IndeksHomeFAQPendaftaranLogin

Share | 
 

 Trik Iseng²

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
ipank
Member
Member


Post : 66
Join date : 15.12.10

PostSubyek: Trik Iseng²    Sun Feb 20, 2011 3:16 pm

1. Iseng Mengeject CD-Drive Terus Menerus


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

Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda

2. Iseng Dengan Tombol Enter Terus Menerus

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

Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda

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

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! “

Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda

4. Iseng Dengan Backspace

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

Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda

5. Iseng Dengan Membuka Calculator Terus Menerus

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

Kemudian save dengan “SUKASUKAANDA.BAT” & Berikan keteman Anda

6. Iseng Dengan Keyboard

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

Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda

7. Iseng Dengan Shutdown Computer

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

Kemudian save dengan “SUKASUKAANDA.BAT” & Berikan keteman Anda


Quote :
NB : 1. JANGAN DI GUNAKAN DI KOMPUTER PUNYA SENDIRI KARENA BERAKIBAT FATAL !!!
2. Saya Tidak akan bertanggung jawab
Kembali Ke Atas Go down
ubasape
Moderator
Moderator


Post : 152
Join date : 14.03.11
Lokasi Lokasi : yogyakarta
Humor Humor : bagian ini ane kesusahan mengisinya, heheh

PostSubyek: Re: Trik Iseng²    Fri Mar 25, 2011 10:55 pm

ngeri juga neh gan, mo nyoba kompi orang lain jg gk tegaan ane gan, lebih milih gk nyoba aja skalian, heheh, btw nice post gan, thnks
Kembali Ke Atas Go down
http://www.facebook.com/umbozo
 

Trik Iseng²

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 

 Similar topics

-
» Tips Berguna di Kehidupan Sehari-hari
» YoYo
» Asking membuka toko variasi motor
» TIPS TELP GRATIS BUAT HANDPHONE,,TERBUKTI NYATA BRO!!!
» (Ask) Cara agar motor ga hilang
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
 :: Bacaan dan Ilmu pengetahuan :: Tutorial & Tips-