I really need a good prank

[run_GMoney]

So April Fools Day is over and unfortunately for the parties involved, a few of my co-workers decided to completely switch around my desk with another co-worker. It was annoying, and we had to spend about 45 minutes to switch it back. Of course we got it done before anyone else showed up AND haven't made mention of it since. That has to annoy them. Through some great detective work and string pulling, we've discovered our culprits. I'm spiteful, but not malicious, so I'd like to enact revenge. My co-worker that had his stuff switched with mine, however, is doubly spiteful as well as malicious. So another April Fools joke just won't do it. But I don't want to be malicious, just completely bother and annoy the piss out of the perpetrators. So far, we've electronically unplugged the network card of one of them. She of course came to me. "My network isn't working. Is the cable unplugged?" So, I walked her to her cable to show that is was indeed plugged in. We've also been working in conjunction with our network administrator to bump their connection down to priority 50 or so. However, I'm still not satisfied. I need some more ideas. Something that says, "Never mess with the computer guy at work." So who's got something for me?

[kleinma]

put some laxative in their food... it won't annoy the piss out of them... but something else

[fungi]

subsribe them to some delightful mailing lists...

[run_GMoney]

Originally posted by fungi
subsribe them to some delightful mailing lists...

I've actually done the "Stop Bed Wetting" mailing list thing. That's a good one. I'd rather do something to their computer so they know it's me. I've got some time on my hands, but not enough to develop an app to install on their computer. If there was one handy though...

[kleinma]

Originally posted by run_GMoney
I've actually done the "Stop Bed Wetting" mailing list thing. That's a good one. I'd rather do something to their computer so they know it's me. I've got some time on my hands, but not enough to develop an app to install on their computer. If there was one handy though...

write a small app that keeps shelling IE to porn sites every few minutes....

[run_GMoney]

lol, oh man that would be hilarious. I just might look into that one. Thanks

[kleinma]

it would be pretty simple.. something like

'Form Code
Private Sub Form_Load()
    Me.Visible = False
    SetTimer Me.hwnd, 0, 60000, AddressOf TimerProc 'once per minute
End Sub
    
 
Private Sub Form_Unload(Cancel As Integer)
    KillTimer Me.hwnd, 0
End Sub
 
'Module Code
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
 
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    ShellExecute hwnd, vbNullString, "www.pornsite.com", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

[run_GMoney]

This is freaking hilarious. I'm gonna install it ASAP. When would be a good time to execute it, do you think?

I'm thinking of maybe installing a site on their machine and just have them open that, so that way something will show up even when they don't have a network connection...that we conveniently will be disabling.

[fungi]

Be careful though as porn could be interpeted as malicious.

How about a cuckoo-clock service that marks each hour by opening/closing
the cd-tray the appopriate number of times...

[kleinma]

Originally posted by fungi
Be careful though as porn could be interpeted as malicious.

How about a cuckoo-clock service that marks each hour by opening/closing
the cd-tray the appopriate number of times...

lol that is pretty funny...make the PC speaker beep too...

yeah i agree the porn thing could be a little up there.. but it doesn't have to be "porn" you could use the code with any site or sites

[Memnoch1207]

Follow them home, and blow up their houses...I find that always says "You messed with the wrong Mother****er!"

[run_GMoney]

Yeah I tested it with my own site on my computer. Works like a charm. Can I modify the code so that it accesses an array of web sites, say 10 of them, and loops through them?

[kleinma]

sure you can

'Form Code
Private Sub Form_Load()
    Me.Visible = False
    call Module1.LoadURLS
    SetTimer Me.hwnd, 0, 60000, AddressOf TimerProc 'once per minute
End Sub
    
 
Private Sub Form_Unload(Cancel As Integer)
    KillTimer Me.hwnd, 0
End Sub
 
'Module Code
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
 
Dim strURL(9) As String
 
Public Sub LoadURLS()
    strURL(0) = "www.site1.com"
    strURL(1) = "www.site2.com"
    'etc etc
End Sub
 
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    Static i As Integer
    
    If i = 10 Then
        i = 0
    End If
    
    ShellExecute hwnd, vbNullString, strURL(i), vbNullString, vbNullString, SW_SHOWNORMAL
    
    i = i + 1
End Sub

[run_GMoney]

I dont know why but it makes my brain hurt to look at APIs. I think it's the long function declaration statements. One of these days I gotta learn that stuff. But that's neither here nor there. Thanks again.

[kleinma]

lol i thought that at first too.. but they make a lot more sense to me now... with that code.. if you use it.. make sure you enter 10 array elements (0-9) because there is no code to check if the array has a blank item in it...

[run_GMoney]

Yeah I noticed that. I could just change the value of i in that if statement though depending how many sites I put in the array, couldn't I?

[kleinma]

Originally posted by run_GMoney
Yeah I noticed that. I could just change the value of i in that if statement though depending how many sites I put in the array, couldn't I?

yup

[run_GMoney]

We've turned this thread into a virtual API walkthrough. I got a couple more questions/clarifications for you. If want to use a timer, the SetTimer and KillTimer APIs would be the same every time, correct?

Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Also the ShellExecute API doesn't need to specify the actual program to use? Like, just specifying a website will be enough to launch the default browser? If I wanted to open notepad instead of a website, would I just put notepad.exe in place of the name of the web site?

[kleinma]

yeah the api declarations aren't going to change ever...

yup you can shell to notepad just the same

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Command1_Click()
    ShellExecute Me.hwnd, vbNullString, "notepad.exe", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

or if there is a specific text file to open.. shell that instead of "notepad.exe" and it will open the text file in the default txt editor...

think of shellexecute like double clicking a file

[Spooner]

[note to self]
Never annoy these guys
(or if I do, don't let them know it was me)
[/note to self]

[dogsby]

Personally, I use exlax brownies to "smooth over any hard feelings" except, there is no exlax in them, just tell them after they eat some that there is some in there and sit back and watch them run to the potty. Did it at work a few weeks ago, and damn was it fun

I love the cuckoo clock/cdrom idea though

Dogsby

[alkatran]

Pay your friend 20 bucks you run into work, grab them, tie them up and throw them into a closet for 2 hours.

Hey, it works. They'll never bother you again.

[Slaine]

One cuckoo application just for you wicked lot!

[seec77]

hmm... nice pranks, but i have something that can make a vb program access all the cds a box has... here is the source code for an ocx, which btw includes to other nice controls!

[seec77]

as a little prank, you can put whoopee cutions on their chairs... maybe even the chairs they're going to sit at in meetings!