TV ONLINE MULTI CAHANNEL

Read more »

TVone

Nick's nicotiness




jadwal acara dan situs resmi TV ONE www.tvone.co.id

Read more »

sample

Read more »

LET'S PLAY WITH NOTEPAD

Mau ngerjain temen sampe dia ketakutan ? tanpa resiko tanpa bahaya just for fun, mari kita gunakan notepad sebagai bahan utamanya, saya akan tulis berbagai script notepade dibawah ini, silahkan dipilih sesuai selera


HOW TO USE ??? Gampang ko

* buka notepad
* copy script dibawah ini
* save as dengan nama apa aja tapi wajib ekstensi .VBS
* pancing teman anda membuka file tersebut, caranya tergantung kepintaran anda supaya temen mau   ngeclick file nya


1 ENTER TERUS MENERUS

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

2 PESAN SEREM LAMBAT MUNCUL SENDIRI 

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 “hihihi...”
WScript.Sleep 500
WshShell.SendKeys “HEY... ”
WScript.Sleep 500
WshShell.SendKeys “, KA”
WScript.Sleep 500
WshShell.SendKeys “MU”
WScript.Sleep 500
WshShell.SendKeys “SE ”
WScript.Sleep 500
WshShell.SendKeys “GE”
WScript.Sleep 500
WshShell.SendKeys “RA”
WScript.Sleep 500
WshShell.SendKeys “LAH”
WScript.Sleep 500
WshShell.SendKeys “BER”
WScript.Sleep 500
WshShell.SendKeys “TO”
WScript.Sleep 500
WshShell.SendKeys ”BAT”
WScript.Sleep 500
WshShell.SendKeys “HI..”
WScript.Sleep 500
WshShell.SendKeys “HI........ “ 

3 CD/DVD ROM KELUAR MASUK

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  

4 AUTO BACKSPACE

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

5 KEYBOARD ISENG

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

6 ALAY GENERATOR

Script ini cocok buat ngerjain temen anda yg anti alay krna jika kna script ini dia akan menjadi alay dengan sendirinya

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop 

Masi banyak lagi, tapi sementara ini aja dulu, SELAMAT MENCOBA

100% aman dicoba di PC sendiri

Read more »

ANTV

 Nobar sambil chat Gan, buat para pecinta LIGA INDONESIA diseluruh dunia yg ga bisa nonton langsung di TV, selamat nonton

nick

Read more »

GAMBAR UNIK

PERSEPSI.
Mungkin pada tahu arti persepsi, betul? Kalo menurut saya sih persepsi itu tentang bagaimana cara seseorang memandang suatu hal.

Awalnya waktu saya sedang mencari suatu foto (yang tidak ada kaitannya ama persepsi), saya nemu gambar ini :

Semua garis diagonal Paralel.
Buktikan dengan penggaris

Lingkaran di atas sempurna.

Semua kotak sempurna bentuknya, tidak ada yang bengkok.

Percayalah, tidak ada bulatan / titik hitam di sudut-sudut kotak

Bagaimana sebuah tangga tidak ada turunnya.

Perhatikan titik hitam di tengah (Fokus selama beberapa detik). Lalu tarik kepala anda menjauh dari gambar. Anda akan melihat roda berputar.
Anda pasti melihat roda-roda berputar, betul??

Perhatikan titik hitam di tengah selama beberapa lama (Fokus hanya pada titik tersebut). Anda akan melihat bulatan warna lain akan menghilang.

Berapa jumlah orang di atas yang benar, 12 atau 13?
Hmm... Ajaib

Kenapa hal tersbut bisa terjadi ? Pasti banyak yang bingung bukan. think
Menurut saya, itu semua terjadi karena adanya distorsi dari hal-hal di sekitarnya. itu yang membuat kita kurang bisa membedakan mana yang benar atau yang salah.

Jadi, persepsi kita menentukan langkah kita selanjutnya.

Kalau persepsi kita udah negatif duluan, selanjutnya langkah yang kita ambil pasti cenderung negatif, Coba dipikirkan dulu.. think

Read more »

Buat Komputer Anda Berbicara

Lagi kesepian ? bosen main game ? ga bisa tidur ? atau mau belajar ngucapin vokal bahasa inggris ? ayo kita paksa komputer kita berbicara sesuai perintah kita. caranya gampang

1. Buka notepad

2. copy paste script di bawah ini ke notepad yg tadi anda buka

Dim pesan, sapi
pesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Inilah suara-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan

3. Save As dengan nama apa aja tapi wajib menggunakan Extension .VBS

4. Click 2x File tersebut lalu isikan kata-kata yg anda mau :D "apa yang terjadi ??" komputer anda akan mengucapkan kata2 yg anda tulis,

Silakan coba di PC anda karena ini 100% aman

Selamat Mencoba

Read more »