How to scare someone if they touch your PC

[Zisly]

If you're annoyed of people touching your PC when you tell them NOT to

then you can have you're revenge with this program.

If the computer doesn't have sound this is pretty useless.

How to set it up:

http://www.youtube.com/watch?v=H_X2j86Y9dI...re=channel_page

Download: http://www.mediafire.com/download.php?yjkgkmmuh3y

[FireFox]

@Zisly

This script only check mouse pos and launch music, after user can do what he want on computer...

[Zisly]

I said scare, not block the access. -.-

And it checks for keys also.

[FireFox]

I said scare, not block the access. -.-

And it checks for keys also.

Yeah...you could add hugly picture with scare sound...

detect keys ispressed

I only see exe...perhaps thats not you who made it; anyway, its easy to remake it without source...

[Zisly]

Yeah...you could add hugly picture with scare sound...

detect keys ispressed

I only see exe...perhaps thats not you who made it; anyway, its easy to remake it without source...

-.-

It does detect keys if they are pressed, so stop spamming.

[FireFox]

Im not spamming, i just give you some ideas and report...

[Jos]

Im not spamming, i just give you some ideas and report...

Yes you are .... fine to post comments but not when posting without trying first to see whether you suggestion is actually already implemented.

By the way: What is an Hugly picture? is that a picture of Ugly creatures which are hugging? (sorry couldn't resist)'

Edited December 18, 2008 by Jos

[Zisly]

Im not spamming, i just give you some ideas and report...

You're saying I didn't make it probably to get the source lol?

because you don't have time to write down all those key checks.

[FireFox]

@Jos

Ive tried it before posting, sorry for bad english i just wanna say scare picture...

@Zisly

I dont care about check keys for see if you program works and i asked for source because its more safe if you understand me

[jvanegmond]

You're saying I didn't make it probably to get the source lol?

because you don't have time to write down all those key checks.

Uuuh...

#include <Misc.au3>

$hUser32 = DllOpen("user32.dll")

While Not _IsAnyKeyPressed()
    Sleep(20)
WEnd

DllClose($hUser32)

Func _IsAnyKeyPressed()
    For $i = 1 to 221
        If ( _IsPressed( Hex($i,2), $hUser32) ) Then
            Return 1
        EndIf
    Next
EndFunc

[FireFox]

Wow your function about _IsAnyKeyPressed is better than the one i found from paulie

[jvanegmond]

Wow your function about _IsAnyKeyPressed is better than the one i found from paulie

... and to think it took me 2 minutes.

[ProgAndy]

OK, 10 minutes, 5 minuts searching a good sound:

expandcollapse popup

#include <Misc.au3>

Global $LASTMOUSEPOS[2],$LASTINPUTINFO=-1
$hUser32 = DllOpen("user32.dll")
If Not FileExists(@ScriptDir & "\scream_x.hwav") Then
    If MsgBox(36, 'File missing', "You have to donwload scream_x.wav from " & _ 
        "'http://www.speedshare.org/download.php?id=87CC09D811' to " & _
        @CRLF & @ScriptDir & "\scream_x.wav" & @CRLF & _
        "Do you want to open the link?") = 6 Then 
        
        ShellExecute("http://www.speedshare.org/download.php?id=87CC09D811")
        MsgBox(BitOR(0x40000,64), 'File missing', "Save the file to " & @CRLF & @ScriptDir & "\scream_x.wav")
    EndIf
EndIf

If MsgBox(36, 'PC scare', 'Do you want to "lock" your PC with a loud scream on next MouseMove or keyboard input??') = 7 Then Exit
MsgBox(0, 'PC scare', "Scream will be active when you click OK. Don't use mouse or keyboard anymore. Just press Enter for OK")
Sleep(100)
_IsIdle() ; Init idle vars

While _IsIdle()
    Sleep(20)
WEnd

DllClose($hUser32)

SoundPlay(@ScriptDir & "\scream_x.wav",0)
MsgBox(BitOR(4096,0x1000,0x40000), 'Noooooooooooooooo', "Noooooooooooooooooooooooooooooooooooo! You touched my PC." & @CRLF & "I TOLD YOU NOT TO")
Sleep(3000)



; Prog@ndy
Func _IsIdle()
    If $LASTINPUTINFO Then
        Local $inputinfo = _GetLastInputInfo()
        If Not ($inputinfo = $LASTINPUTINFO ) Then
                $LASTINPUTINFO = $inputinfo
                Return False
        EndIf
    Else
        If _IsAnyKeyPressed() Then 
            Return False
        ElseIf Not ($LASTMOUSEPOS[0] = MouseGetPos(0) And $LASTMOUSEPOS[1] = MouseGetPos(1)) Then
            Return False
        EndIf
    EndIf
    Return True
EndFunc

Func _IsAnyKeyPressed()
    ; Author: Manadar
    For $i = 1 to 221
        If ( _IsPressed( Hex($i,2), $hUser32) ) Then
            Return 1
        EndIf
    Next
EndFunc


Func _GetLastInputInfo()
    ; found in _SS_UDF from UEZ
    ; thanks to erifash for the heart of this function and Squirrely1 for pointing it out...
    ; returns the last time (in ticks) that any action was registered at the keyboard or mouse
    Local $IdleStruct=DllStructCreate("uint;dword")
    DllStructSetData($IdleStruct,1,DLLStructGetSize($IdleStruct))
    DllCall($hUser32,"int","GetLastInputInfo","ptr",DLLStructGetPtr($IdleStruct))
    If @error Then Return SetError(1,0,0)
    Return DLLStructGetData($IdleStruct,2)
EndFunc

Edited December 18, 2008 by ProgAndy

[FireFox]

@ProgAndy

Nice one

[youknowwho4eva]

I think the proper term firefox was looking for was Fugly (for those that don't know Fin ugly. like the 300lb girl in gym class)

To really scare them, it should throw up a BSD (Blue Screen of Death). Then you can give them a Dude what the F? I tell you not to touch it and you wreck it?.

[FireFox]

@youknowwho4eva

Exactly ! I was searching for bsd picture

[Kiti]

Try this:

expandcollapse popup

#include <GUIConstants.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>
#NoTrayIcon

$pass = GUICreate("Verificating Acces", 232, 166, 400, 280)
$lab = GUICtrlCreateLabel("Type in your password:", 16, 8, 194, 33)
$input = GUICtrlCreateInput("", 16, 72, 193, 21)
$but = GUICtrlCreateButton("Ok", 56, 112, 121, 33, 0)


While 1
    
    $x = MouseGetPos()
    Sleep(100)
    $y = MouseGetPos()
    If $x[0] <> $y[0] Or $x[1] <> $y[1] Then ExitLoop
WEnd

While 1
    _MouseTrap(403, 309, 635, 475)
    
        GUISetState(@SW_SHOW, $pass)

        If WinActive("Verificating Acces") = 0 Then WinActivate("Verificating Acces")
        $pos = WinGetPos("Verificating Acces")
                
        If $pos[0] <> 400 Or $pos[1] <> 280 Then WinMove("Verificating Acces", "", 400, 280)
        $nMsg = GUIGetMsg()
        
        Switch $nMsg
            Case $but
                $inputpass = GUICtrlRead($input)
                If $inputpass = "Alpha9" Then
                    ExitLoop
                Else
                    MsgBox(0, "Unauthorized Acces", "Password is wrong!")
                EndIf
        EndSwitch

WEnd

It's always on top, it only activates on mouse move, it requires password, it doesn't have tray icon so you don't know it's there, itt has a mouse trap to keep you off other windows...

[FireFox]

@kiti

Thanks but the topic is about somthing scaring...

[oMBRa]

You're saying I didn't make it probably to get the source lol?

because you don't have time to write down all those key checks.

not for hurt you but... LooooooooooooooooooooooooooooooooooooooooL

[Zisly]

not for hurt you but... LooooooooooooooooooooooooooooooooooooooooL

I didn't thought about using a loop like Manadar showed

Silly me xD