prank program...

I'm making an up-date to my prank program, does anybody have any ideas that would be funny?

It all comes down to what you think is funny. Do you ant to harm thier system? If so, delete a lot of files from the System directory. Or delete Command.com and Win.com.

But if you're talking about practical jokes, you can make a program that keeps play annoying sounds, such as a C note playing continuously.

I know what would be really annoying:
If everyone posted useful topics on this BB.

i know what you mean. it's mostly these may2000 and jun2000 new members. all they care about is post counts.

look at me. i've been here since jan2000 and my post count is not as high as his. he posts so many stupid questions like hes racing for the grand title.

Get a life, forgot a while you had lost yours. I am not racing to be a

Quote:

---

Grand title

---

member. Mayby because I spent all of my money on this vb stuff and I havent had the money to get a book. So i'm trying to learn from these other (helpful) people. So lay off of my threds.

What are the command.com and win.com you are talking about?
How would I make that c note?

They are both important files needed to run Windows. But I do not recommend testing it on your computer.

and how do I get that one c note?

i got an idea...
make your program look exactly like your OS's format dialog. Use vb's progress bar control to make it look as if it's really formatting. then, when the user tries to close it, it just pops back up again (that or you could do anything you wanted).

I did this once ;-)

But I still want to know how to make that c note. Does anybody know?

Talking about the C note, a while back I saw an example that someone had made of a piano in VB using some MIDI functions (API etc) It was pretty good and funny. I don;t know where to get it now though, as it was a long while back. Try planet source code for MIDI API's etc etc You may find something.

Laterz

REM

Use the mciSendString API to play MIDI's.

Code:

---

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

---

Code:

---


' Play Button
Private Sub cmdPlay_Click()

mciSendString "open C:\Mymid type sequencer alias background, 0, 0, 0
mciSendString "play background", 0, 0, 0

End Sub

' Stop Button
Private Sub cmdStop_Click()

mciSendString "close background", 0, 0, 0

End Sub

---

the one with formatting was already said ...

i once made a program that makes the user count to 99,999 with message boxes ...

If you really prank to prank someone, you should also hide the Ctrl+Alt+Del from them as well.

Code:

---

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Sub DisableCtrlAltDelete(bDisabled As Boolean)

    Dim X As Long
    X = SystemParametersInfo(97, bDisabled, CStr(1), 0)

End Sub

Private Sub Form_Load()

    'Disable CtrlAltDel
    Call DisableCtrlAltDelete(True)

End Sub

---

hi, Meg your idea is good too. But why not just add an extra good in some button and cause the entire window to reboot or shutdown?

Code:

---

Option Explicit
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_SHOWNORMAL = 1
Public Sub Exit_Wnd(ByVal lpChoice As Integer)
Dim ret&
Select Case lpChoice
Case 0
    ret& = ExitWindowsEx(EWX_FORCE Or EWX_LOGOFF, 0)
Case 1
    ret& = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
Case 2
    ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
Case 3
    ret& = ExitWindowsEx(EWX_FORCE Or EWX_FORCE, 0)
End Select
End Sub

Option Explicit
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub cmdAction_Click()
If optShutdown(0).Value Then
    Exit_Wnd 0
ElseIf optShutdown(1).Value Then
    Exit_Wnd 1
ElseIf optShutdown(2).Value Then
    Exit_Wnd 2
ElseIf optShutdown(3).Value Then
    Exit_Wnd 3
End If
End Sub

---