Welcome !

After experiencing a lot of down time, We decided to move this site to CrystalTech.com. CrystalTech.com is powered by only the finest Windows servers providing the best performance, reliability, and value anywhere.

Simple Annoying VBS Code.

Author	Message

VBS Beginner

Total Posts : 5
Scores: -2
Reward points : 0
Joined: 1/29/2010
Status: offline

Simple Annoying VBS Code. Saturday, February 13, 2010 2:42 PM (permalink)

I call it DaMinimizer.By the Name, You may already know what it does.
Code:
lol = msgbox("I am Going to Minimize your Work!!YAY!!!!",15,"Woohoo!")
Do
Set WSHShell = WScript.CreateObject("WScript.Shell")
set shell = wscript.CreateObject("Shell.Application" )
wscript.sleep 100
Shell.MinimizeAll
Loop

It Minimizes all windows constantly, pretty annoying.
Try it if you would like to.

ebgreen

Total Posts : 8088
Scores: 95
Reward points : 0
Joined: 7/12/2005
Status: offline

Re:Simple Annoying VBS Code. Sunday, February 14, 2010 4:29 AM (permalink)

Thank you for sharing. Generally for the Post A Script section, we encourage people to follow good coding standards and best practices. I would encourage you to clean up the code that you have posted.

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

TomRiddle Total Posts : 608 Scores: 12 Reward points : 0 Joined: 2/7/2008 Location: Australia Status: offline	Re:Simple Annoying VBS Code. Thursday, February 25, 2010 4:20 PM (permalink) 0 I can confirm it is a very annoying script. -join([int[]][char[]]'Ut\|jwXmjqq%Wzqjx'\|%{[char]($_-5)})
	#3

M0N0P0LY

Total Posts : 1
Scores: 0
Reward points : 0
Joined: 3/14/2010
Status: offline

Re:Simple Annoying VBS Code. Monday, March 15, 2010 6:11 AM (permalink)

A similar idea, maybe less disruptive and irritating.
Code:
MsgBox "In Out In Out Shake it all about" ,15, "M0n0p0ly says"
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 100
loop

black.script Total Posts : 1 Scores: 0 Reward points : 0 Joined: 4/11/2010 Status: offline	Re:Simple Annoying VBS Code. Sunday, April 11, 2010 11:32 PM (permalink) 0 thats very annoying
	#5