Jumat, 01 April 2011

Bermain Main Dengan Script

Gak usah basa basi,gak usah banyak banyak cakap..
langsung aja..
chekidot ^ ^


Membuat Lampu Disco ( lampu keyboard Dugem ) 
Caranya: 
buka notepad Kemudian copast kode berikut ini . . .


CODE :
Set wshShell =w
script.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"

loop


kalo udah klik Save as simpan dengan nama Disco.vbs


Membuat Komputer anda Berbicara


Caranya :
buka notepad Kemudian copast kode berikut ini . . .


CODE : 
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Jujurlah Padaku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg


kalo udah klik Save as kemudian pilih all files lalu kasih nama ngobrol.vbs
NB : yg bertulisan merah silahkan diganti dengan keinginan anda


SELAMAT MENCOBA !!

Tidak ada komentar:

Posting Komentar