Jumpa lagi dengan saya wahai para pembaca
sekalian....
:D
Di postingan ini, saya akan nge-share mengenai si Ms Word yang edan versi 3
Nah, bagi yang belum baca mengenai versi-versi yang sebelumnya bisa dibaca di link berikut
1. Ms Word Edan V.1
2. Ms Word Edan V.2
Nah di versi 3 ini, ada trik baru bikin si Ms Word jadi makin EDAN !!!
Langsung aja yak...
Untuk langkah awalnya, sama kaya di versi-versi sebelumnya...
Lalu silahkan copas script di bawah ini...
Sub typeRand()
Dim counter As String
counter = CStr(Int((30 - 1 + 1) * Rnd + 1))
Application.OnTime When:=Now + TimeValue("00:00:" + counter), _
Name:="TimedClose"
End Sub
Sub TimedClose()
Dim maindocument As Document
Set maindocument = activedocument
counter = CStr(Int((5 - 1 + 1) * Rnd + 1))
Select Case counter
Case 1
Selection.TypeText Text:=" SELAMAT "
Case 2
Selection.TypeText Text:=" KOMPUTER ANDA "
Case 3
Selection.TypeText Text:=" KESURUPAN "
Case 4
Selection.TypeText Text:=" HANTU CYBER"
Case 5
Selection.TypeText Text:=" -by Zet "
End Select
Call typeRand
End Sub
*untuk efekya, silahkan dites sendiri yak, karena ini gak bahaya kok
:)
Demikian dari saya...
Dan tak lupa serta tak lelah saya tegaskan...!!!
SEGALA RESIKO DARI PENYALAHGUNAAN MATERI INI ADALAH TANGGUNG JAWAB ANDA PRIBADI !!
Jadi bijaklah dalam menggunakan ilmu anda...
:)
2 komentar
cara balikin ke awal lagi gm bro??
masuk lagi ke work space di ms word
hapus scriptnya
save
:)