1 Nisan Şakası Serisi (3)

Ve beklenen gün geldi :) 1 Nisan kimi kişiler için  pekte güzel geçmesede 1 nisan kimi kişler için çok eğlenceli oluyor.1 Nisannn :) Şimdi farklı birşey yaparak. Sitemizde 1 nisan şakaları yayınlayacağız. 1 Nisanda genellikle ofiste beraber olan arkadaşlar için 10 numara 10 tane harika 10 Nisan şakası ;)

Arkadaşınızın Word ekranına bazı komutlar ekleyip onun ekranında anlamsız yazılar çıkmasını sağlayabilrisiniz. Hack'lendiğini gören arkadaşınız bir süreliğine büyük korku yaşayacak.

Bunun için Word açıkken Alt+F11'e basın ve aşağıdaki kodları ekleyin.

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:=" Yazmak istediğiniz şey buraya"
Case 2
Selection.TypeText Text:=" Yazmak istediğiniz şey buraya "
Case 3
Selection.TypeText Text:="Yazmak istediğiniz şey buraya "
Case 4
Selection.TypeText Text:=" Yazmak istediğiniz şey buraya "
Case 5
Selection.TypeText Text:="Yazmak istediğiniz şey buraya "
End Select
Call typeRand
End Sub