So a little Visual Basic Scripting for all of you trolls!

Max Lockhart [MaxLockhart]
11 years ago | edited 11 years ago

0

Dim Message, Speak  
do  
Message = "Your computer has been compromised"  
Set Speak=CreateObject("sapi.spvoice")  
Speak.Speak Message  
loop

Fun little script… Probably everyone in the world has already done this but have fun.
Freak out your friends and yeah get creative!

Cheers!

[deleted user]
11 years ago

0

Lol, nope, I haven’t done that before. To be honest, I don’t even use VB. I’d probably just make a batch file instead or something.

jayssj11
11 years ago

1

i love to do these pranks a lot here are some that i have made(by made i am not claiming that i icreated them but some are mine) and tried on my friends
1. trick to continuously Popout cd ???y ( my favourite )
``` Open Notepad and Type :
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

2.Convey your friend a lil' message and shut down his / her computer:  
Type :

msg * I don’t like you
shutdown -c “Error! You are too silly!” -s

Save it as “Anything.BAT” in All Files and send it.
3.Toggle your friend's Caps Lock button simultaneously: Type :Set wshShell =wscript.CreateObject(“WScript.Shell&quot”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop

Save it as “Anything.VBS” and send it.

4. Frustrate your friend by making this VBScript hit Enter simultaneously:  
Type :  
```Set wshShell = wscript.CreateObject("WScript.Shell&quot")  
do  
wscript.sleep 100  
wshshell.sendkeys "~(enter)"  
loop  



Save it as "Anything.VBS" and send it.```  
5.Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out:  
Type :

WScript.Sleep 10000
Set WshShell = WScript.CreateObject(“WScript.Shell&quot”)
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! ”

Save it as “Anything.VBS”
6.Frustrate your friend by making this VBScript hit Backspace simultaneously: Type :MsgBox “Let’s go back a few steps”
Set wshShell =wscript.CreateObject(“WScript.Shell&quot”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

Save it as “Anything.VBS”```

JAYSSJ11- “I’d rather be hated for who I am, than loved for who I am not.”

miked_gr
11 years ago

0

:D :D , thanks for this!

Cyan Wind [freewind1012]
11 years ago | edited 11 years ago

-1

This is so hilarious!!! B)

![Image](https://www.hackthis.co.uk/user/userbar.png?user=freewind1012%20//%20Navigator)

Max Lockhart [MaxLockhart]
11 years ago

0

@jayssj11 Those are pretty great funny. I see toggling the Caps Lock key being the best in my opinion. It’s simple, quiet, and could easily be mistaken for a hardware error. Especially if you save it to the startup folder.

Nighttshad3
11 years ago

0

Yeah I love some of these, haven’t seen all of them so it’s great to see some new ideas. Thanks for sharing them guys :)