Sign in to follow this  
Followers 0
Zisly

How to scare someone if they touch your PC

20 posts in this topic




@Zisly

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


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

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

And it checks for keys also.

Share this post


Link to post
Share on other sites

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...


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

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 by Jos

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

@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 :)


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

#13 ·  Posted (edited)

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

#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 by ProgAndy

*GERMAN* [note: you are not allowed to remove author / modified info from my UDFs]My UDFs:[_SetImageBinaryToCtrl] [_TaskDialog] [AutoItObject] [Animated GIF (GDI+)] [ClipPut for Image] [FreeImage] [GDI32 UDFs] [GDIPlus Progressbar] [Hotkey-Selector] [Multiline Inputbox] [MySQL without ODBC] [RichEdit UDFs] [SpeechAPI Example] [WinHTTP]UDFs included in AutoIt: FTP_Ex (as FTPEx), _WinAPI_SetLayeredWindowAttributes

Share this post


Link to post
Share on other sites

@ProgAndy

Nice one :)


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

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?.


Giggity

Share this post


Link to post
Share on other sites

@youknowwho4eva

Exactly ! I was searching for bsd picture :)


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

Try this:

#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... :)

Share this post


Link to post
Share on other sites

@kiti

Thanks but the topic is about somthing scaring...


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

not for hurt you but... LooooooooooooooooooooooooooooooooooooooooL

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

Silly me xD

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0