Gak usah basa basi,gak usah banyak banyak cakap..
langsung aja..
chekidot ^ ^
langsung aja..
chekidot ^ ^
Membuat Lampu Disco ( lampu keyboard Dugem )
Caranya:
buka notepad Kemudian copast kode berikut ini . . .
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}"script.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
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
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