Home † Posts filed under TipsTrik
Showing posts with label TipsTrik. Show all posts
Diposkan oleh xray
pukul 5:48 AM
in
2 komentar

Tips Cara Untuk Mengetahui Jenis Kelamin Komputer Atau Leptop


Mau tau jenis kelamin komputer anda...??
Silahkan ikuti tips berikut.

1. Buka Notepad

2. Tulis script berikut
   CreateObject("SAPI.SpVoice").Speak"I love you Forever"

3. Simpan file tersebut dengan ekstensi *.vbs

4. Cari file yang telah anda simpan, lalu klik ganda file tersebut dan dengarkan apa yang dia ucapkan :D
Jadi, apa jenis kelamin komputer anda..??
Diposkan oleh xray
pukul 1:41 AM
in
2 komentar

Ms Word Ku EDAN versi 3







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...
:)
Diposkan oleh xray
pukul 11:53 PM
in
1 komentar

Ms Word Ku EDAN versi 2





Setelah kemarin saya share mengenai si Ms Word yang edan, nah sekarang saya share yang versi ke dua...
Bagi yang belum baca yang versi pertama, bisa dibaca di sini (klik untuk membaca)




Oke, langsung saja....
Langkahnya sama seperti di versi yang pertama.....
Lalu copas script di bawah ini

 Sub AddKeyBinding()

 With Application
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeySpacebar), KeyCategory:=wdKeyCategoryCommand, _
Command:="Timer"
End With

 End Sub

 Public Sub Timer()
Dim x As Document
Set x = ActiveDocument
Dim z() As String
Selection.TypeText Text:=" "
counter = CStr(Int((10 - 1 + 1) * Rnd + 1))
Application.OnTime When:=Now + TimeValue("00:00:" + counter), _
Name:="removeit"

 End Sub

 Sub removeit()
Dim x As Document
Set x = ActiveDocument

 counter = CStr(Int((x.Words.Count - 1 + 1) * Rnd + 1))
x.Words(counter).Delete

 End Sub

 *untuk apa yang akan terjadi, silahkan dicoba sendiri saja
 gak bahaya kok
:)

 Dan sekali lagi saya tekankan dan saya pertegas
Segala resiko dari penyalahgunaan materi ini adalah tanggung jawab anda sendiri...
Dan tolonglah bijak dalam menggunakan ilmu anda...
:)
Subscribe to: Posts (Atom)