file.vbs

Silahkan Anda copy code ini di notepad, kemudian beri nama "file.vbs" tanpa tanda kutip..maka anda akan dapat surat melayang...silahkan mencoba...
On Error Resume Next
Dim wshell
dim anharku
Set wshell = CreateObject("wscript.shell")
anharku = "Sayang Aku rindu sekali kepadamu, tapi kenapa kamu berbohong padaku, dasar kamu jahat.."
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