Komputer dapat menulis sendiri, Bagaimana caranya ???

Rabu, 17 Agustus 2011

Komputer dapat menulis sendiri, Bagaimana caranya ???, kali ini saya akan membahas suatu tips/cara bagaimana suatu komputer dapat menulis sendiri tanpa harus kita mengetik pada keyboard, tentunya hal ini dapat bermanfaat sebagai sebuah ucapan kepada seorang sahabat, pacar, atau siapa saja yang kita inginkan untuk niat yang baik :-). Oke berikut adalah cara sederhana bagaimana suatu komputer bisa menulis sendiri.

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 Dimana Kamu sekarang? telah lama aku mencarimu tapi aku tak jua menemukanmu, sayank, apakah kamu tahu ?? aku sungguh merindukanmu, kembalilah aku sangat mencintaimu,. ?"
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 . Setelah itu Simpan dengan nama 'File.txt' (tanpa tanda kutip).
4 . Ubah nama 'File.txt ' menjadi 'File.vbs' (tanpa tanda kutip)
5 . Dan Terakhir Klik dua kali pada 'File.vbs' (Open), Lihat hasilnya :-).