Good Excel Practical Jokes, Pranks, Mean Tricks, etc.

[Oorang]

rofl

 

[Ed in Aus]

Thats just evil, I am going to try and do it too lol

 

[Cbrine]

I had a buddy of mine, who was a vb programer. He figured out how to override the Windows 95 start button, and have it run his code. He then recorded a wav file with a voice saying "I'M SURFING ****!"(Sounds like Horn and starts with P), this added to his vb program that turned off the mute, and turned the volume up to full blast, resulted in some interesting looks in our open office. We won't even talk about the time they pulled the HD on one of the IT guy's system while he was on vacation, and put a replacement drive in that was running windows 3.1 on DOS. We had a lot of fun at this office, alas he was the first one to go at the next office purge.

 

[graviz]

I think we need to bump this thread. It's a Friday and I need something productive to do. Does anyone have any code to un-mute a computer and play a wav or mp3 file. I've seen a couple posts of playing a beep or a sound on open but the issue is most people in my office have the notebooks muted so you can see my issue. Who will be the first one to write the code for this?

 

[goldfish]

Its already been written:

Option Explicit

Const VK_VOLUME_MUTE = &HAD 'Windows 2000/XP: Volume Mute key
Const VK_VOLUME_DOWN = &HAE  'Windows 2000/XP: Volume Down key
Const VK_VOLUME_UP = &HAF  'Windows 2000/XP: Volume Up key

Private Declare Sub keybd_event Lib "user32" ( _
   ByVal bVk As Byte, ByVal bScan As Byte, _
   ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Sub VolUp()
   keybd_event VK_VOLUME_UP, 0, 1, 0
   keybd_event VK_VOLUME_UP, 0, 3, 0
End Sub
Sub VolDown()
   keybd_event VK_VOLUME_DOWN, 0, 1, 0
   keybd_event VK_VOLUME_DOWN, 0, 3, 0
End Sub

Sub VolToggle()
   keybd_event VK_VOLUME_MUTE, 0, 1, 0
End Sub

Keep in mind even if you unmute, their volume may be down all the way down.

 

[SuperFerret]

Hmmm, if only i'd known about these in my last job! I coulda had so much fun!

Not VB or Excel but I once had to let an IT guy in to look at a friends PC while they were away (my friend was obsessed by him) and before he came I logged onto her PC and set her background and screensavers up with some fetish pictures (gimps and the like) needless to say when he'd finished he was bright red. I reset them all before my friend returned from her hols but the IT guy couldn't look at my friend straight after that.

I did confess after a few weeks and luckily both of them found it funny.

My dad's favorite is a friend of his visits a snooty golf club and takes his Financial Times to read in the club house. So when he left it on the side one day when he called in, my dad switched the inside pages with that from the Daily Sport and didn't say anything.
Apparently he got a few odd looks, but he saw the funny side and kept 'accidentally leaving his FT down after that'

 

[graviz]

Its already been written:

Option Explicit
 
Const VK_VOLUME_MUTE = &HAD 'Windows 2000/XP: Volume Mute key
Const VK_VOLUME_DOWN = &HAE  'Windows 2000/XP: Volume Down key
Const VK_VOLUME_UP = &HAF  'Windows 2000/XP: Volume Up key
 
Private Declare Sub keybd_event Lib "user32" ( _
   ByVal bVk As Byte, ByVal bScan As Byte, _
   ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Sub VolUp()
   keybd_event VK_VOLUME_UP, 0, 1, 0
   keybd_event VK_VOLUME_UP, 0, 3, 0
End Sub
Sub VolDown()
   keybd_event VK_VOLUME_DOWN, 0, 1, 0
   keybd_event VK_VOLUME_DOWN, 0, 3, 0
End Sub
 
Sub VolToggle()
   keybd_event VK_VOLUME_MUTE, 0, 1, 0
End Sub

Keep in mind even if you unmute, their volume may be down all the way down.

Any way to max the volume out?

 

[graviz]

Any way to max the volume out?

Nevermind, A loop on the volume up does wonders

 

[sxhall]

Simplicity is beauty....

This may have been posted before but change autocorrect to replace as typing a commonly used word. Spell check won't pick it up and how many people proof read as far as there name or job title?

Worked with a guy with a surname of Beasley, autocorrect to Beastly! It took him month's to realise it and then weeks to know why it was doing it. He only found out after he sent a job application off and they called asking for Mr Beastly

Simple and childish but effective.

Sxhall.

 

[MartinL]

cool but is there a test for the status of VK_VOLUME_MUTE as this code will mute a PC that is already un-muted!
Thus rendering the proverbial egg on your own face.