Computer Based Practical Jokes.

Home Forums General Chat General Discussion Computer Based Practical Jokes.

Viewing 1 post (of 1 total)
  • Author
    Posts
  • Avatar
    topper
    Member
    #102705

    Any one got any good ones ?

    The VB script below is good for a laugh, it swaps the mouse buttons then TSR and monitors for them changing back, then swaps them again…..and again…….and again.

    Really gets on peoples nerves !! Copy text below and save as *.vbs

    ‘Script to constantly swap mouse buttons over. Topper 14/01/2005
    Const HKEY_CURRENT_USER = &H80000001

    strComputer = “.”

    Set ScriptMe=GetObject(“winmgmts:{impersonationLevel=impersonate}!\” & _
    strComputer & “rootdefault:StdRegProv”)
    Set oSHApp = CreateObject(“Shell.Application”)
    Set oShell = CreateObject(“WScript.Shell”)
    Continue = “1”

    While (Continue = “1”)

    strKeyPath = “Control PanelMouse”

    strValueName = “SwapMouseButtons”
    stValue = “1”

    ScriptMe.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,stValue

    oSHApp.ControlPanelItem cstr(“main.cpl”)
    ‘ alt. oShell.Run “control main.cpl”

    Do Until oShell.AppActivate (“Mouse Properties”)
    Loop
    oShell.SendKeys “~”

    wscript.sleep 90000

    wend

Viewing 1 post (of 1 total)

You must be logged in to reply to this topic.