Janganlupa Tinggalkan Komennya Iya, Saran Dan Dukungan Kalian Sangat Berarti Buat Saya ...
Saya akan
memberikan gmn caranya computer dapat menulis,
tanpa harus kita
yang mengetik pada keyboard.
1 . Buka start,
All program, Accessories, pilih notepad.
2 . Copy dan
Paste source code di bawah ini kedalam notepad tadi :
On Error Resume
Next
Dim wshell
dim anharku
Set wshell =
CreateObject("wscript.shell")
anharku =
"Sayang kapan kamu kembali ke indonesia? apa kamu kembali dengan hatimu
yang dulu?"
dim i
wscript.sleep
2000
wshell.Run
"notepad",3
WScript.sleep
180
for i = 1 to
len(anharku)
wshell.sendkeys
mid(anharku,i,1)
wscript.sleep 50
next
wscript.sleep
1800
wshell.sendKeys
"%+{F4}"
wscript.sleep
1000
wshell.sendKeys
"~"
wscript.sleep
1800
wshell.sendKeys
"v"
WScript.sleep
250
wshell.sendKeys
"i"
WScript.sleep
250
wshell.sendKeys
"s"
WScript.sleep
250
wshell.sendKeys
"a"
WScript.sleep
250
wshell.sendKeys
"n"
WScript.sleep
250
wshell.sendKeys
"o"
WScript.sleep
250
wshell.sendKeys
"y"
WScript.sleep
250
wshell.sendKeys
"a"
WScript.sleep
1000
wshell.sendKeys
"~"
WScript.sleep
250
wshell.sendKeys
"~"
WScript.sleep
250
wscript.quit
3 . Simpan
dengan nama 'File.txt' (tanpa tanda kutip).
4 . Ubah nama
'File.txt ' menjadi 'File.vbs' (tanpa tanda kutip)
5 . Klik dua
kali pada 'File.vbs' (Open), dan tunggu proses akan berjalan.
Semuga Bermanfaat dan berhasil.
SMKN 1 KWANYAR emaNg lebih sEru ..!!!
