Komputer Dapat menulis sendiri

Computer dapat menulis sendiri?? kok bisa ??

Kali ini saya akan memberikan gimana 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 = "Nama saya kifli jika anda mengaku anda narsis, eeeiiiittttt jangan dulu soalnya anda belummengunjungi blog yang satu ini namanya apajoyangnganasuka. maulinknya ? nih aku kasih http://kiflipatamani.co.cc .............hahahahahahahaha salam dari kifli.."
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