Computer tricks to joke with VBS script

Let's use a simple way for our friends own joke.

But do not you try this trick on your computer, try klo means you mengisengin yourself & be able to say you do stupid actions .. Hehe .. Wkwk ..

Lets begin! Make sure you are typing Script Correct Below! Copy Paste Sometimes Unsuccessful Due to the difference in quotation marks ("") In Notepad, To Fix It Can Use TextPad..

1. Mengeject CD-Drive Continuous

Set oWMP = CreateObject(“WMPlayer.OCX.7″)

Set colCDROMs = oWMP.cdromCollection

do

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count – 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count – 1

colCDROMs.Item(i).Eject

Next

End If

wscript.sleep 5000

loop

Tips : Then save the "example.WBS" and Give to your friends

2. With the Enter key is Continuous

Set wshShell = wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “~(enter)”

loop

Tips : Then save the "example.WBS" and Give to your friends


3. With Slow Message Notepad "Hello, how are you? I am good thanks! "

WScript.Sleep 180000

WScript.Sleep 10000

Set WshShell = WScript.CreateObject(“WScript.Shell”)

WshShell.Run “notepad”

WScript.Sleep 100

WshShell.AppActivate “Notepad”

WScript.Sleep 500

WshShell.SendKeys “Hel”

WScript.Sleep 500

WshShell.SendKeys “lo ”

WScript.Sleep 500

WshShell.SendKeys “, ho”

WScript.Sleep 500

WshShell.SendKeys “w a”

WScript.Sleep 500

WshShell.SendKeys “re ”

WScript.Sleep 500

WshShell.SendKeys “you”

WScript.Sleep 500

WshShell.SendKeys “? ”

WScript.Sleep 500

WshShell.SendKeys “I a”

WScript.Sleep 500

WshShell.SendKeys “m g”

WScript.Sleep 500

WshShell.SendKeys “ood”

WScript.Sleep 500

WshShell.SendKeys ” th”

WScript.Sleep 500

WshShell.SendKeys “ank”

WScript.Sleep 500

WshShell.SendKeys “s! “

Tips : Then save the "example.WBS" and Give to your friends

4. With Backspace

MsgBox “Maaf, Anda Harus Mengulang Kembali”

Set wshShell =wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “{bs}”

loop

Tips : Then save the "example.WBS" and Give to your friends


5. With Continuous Open Calculator

@ECHO off

:top

START %SystemRoot%\system32\cacl.exe

GOTO top

Tips : Then save the "example.WBS" and Give to your friends

6. With Keyboard

Set wshShell = wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”

loop

Tips : Then save the "example.WBS" and Give to your friends

7. With Shutdown Computer Continuous

@echo off

msg * Komputer Anda Terinfeksi Virus

shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0

Tips : Then save the "example.WBS" and Give to your friends