Berita Penting

Mau Menyampaikan Pesan dengan Cara yang Unik?

 
Picture of Raudhah, S.E., S.Kom., M.Kom.
Mau Menyampaikan Pesan dengan Cara yang Unik?
by Raudhah, S.E., S.Kom., M.Kom. - Saturday, 31 August 2013, 3:02 PM
 
Bagaimana kalau -kali ini- Anda biarkan Notepad melakukannya untuk Anda? Old but still gold, dan bisa membuat teman Anda ketakutan (atau paling tidak keheranan). Ketiklah di Notepad listing program di bawah ini:

WScript.Sleep 10000
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “Notepad”
WScript.Sleep 100
WshShell.AppActivate “Notepad”
WScript.Sleep 500
WshShell.SendKeys “Hai”
WScript.Sleep 500
WshShell.SendKeys ” a”
WScript.Sleep 500
WshShell.SendKeys “pa”
WScript.Sleep 500
WshShell.SendKeys ” ka”
WScript.Sleep 500
WshShell.SendKeys “bar?”
WScript.Sleep 500
WshShell.SendKeys ” Sa”
WScript.Sleep 500
WshShell.SendKeys “ya ”
WScript.Sleep 500
WshShell.SendKeys “ang”
WScript.Sleep 500
WshShell.SendKeys “go”
WScript.Sleep 500
WshShell.SendKeys “ta ”
WScript.Sleep 500
WshShell.SendKeys “FB ”
WScript.Sleep 500
WshShell.SendKeys “Page”
WScript.Sleep 500
WshShell.SendKeys ” RU”
WScript.Sleep 500
WshShell.SendKeys “MAH”
WScript.Sleep 500
WshShell.SendKeys ” LO”
WScript.Sleep 500
WshShell.SendKeys “GI”
WScript.Sleep 500
WshShell.SendKeys “KA”
WScript.Sleep 500
WshShell.SendKeys ” :>”

Simpan sebagai “BukanHantu.VBS” dan kirimkan pada teman Anda.

NotepadKetikSendiri