membuat pesan nongol terus menerus

kopikan kode berikut paada notepad lalu simpan dengan extensi .vbs
contoh  msg.vbs

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop