Zisly Posted December 18, 2008 Share Posted December 18, 2008 If you're annoyed of people touching your PC when you tell them NOT tothen 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_pageDownload: http://www.mediafire.com/download.php?yjkgkmmuh3y Link to comment Share on other sites More sharing options...
FireFox Posted December 18, 2008 Share Posted December 18, 2008 @Zisly This script only check mouse pos and launch music, after user can do what he want on computer... Link to comment Share on other sites More sharing options...
Zisly Posted December 18, 2008 Author Share Posted December 18, 2008 I said scare, not block the access. -.- And it checks for keys also. Link to comment Share on other sites More sharing options...
FireFox Posted December 18, 2008 Share Posted December 18, 2008 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... Link to comment Share on other sites More sharing options...
Zisly Posted December 18, 2008 Author Share Posted December 18, 2008 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. Link to comment Share on other sites More sharing options...
FireFox Posted December 18, 2008 Share Posted December 18, 2008 Im not spamming, i just give you some ideas and report... Link to comment Share on other sites More sharing options...
Developers Jos Posted December 18, 2008 Developers Share Posted December 18, 2008 (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 December 18, 2008 by Jos SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Zisly Posted December 18, 2008 Author Share Posted December 18, 2008 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. Link to comment Share on other sites More sharing options...
FireFox Posted December 18, 2008 Share Posted December 18, 2008 @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 Link to comment Share on other sites More sharing options...
jvanegmond Posted December 18, 2008 Share Posted December 18, 2008 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 github.com/jvanegmond Link to comment Share on other sites More sharing options...
FireFox Posted December 18, 2008 Share Posted December 18, 2008 Wow your function about _IsAnyKeyPressed is better than the one i found from paulie Link to comment Share on other sites More sharing options...
jvanegmond Posted December 18, 2008 Share Posted December 18, 2008 Wow your function about _IsAnyKeyPressed is better than the one i found from paulie ... and to think it took me 2 minutes. github.com/jvanegmond Link to comment Share on other sites More sharing options...
ProgAndy Posted December 18, 2008 Share Posted December 18, 2008 (edited) 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 *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 Link to comment Share on other sites More sharing options...
FireFox Posted December 18, 2008 Share Posted December 18, 2008 @ProgAndy Nice one Link to comment Share on other sites More sharing options...
youknowwho4eva Posted December 18, 2008 Share Posted December 18, 2008 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 Link to comment Share on other sites More sharing options...
FireFox Posted December 18, 2008 Share Posted December 18, 2008 @youknowwho4eva Exactly ! I was searching for bsd picture Link to comment Share on other sites More sharing options...
Kiti Posted December 18, 2008 Share Posted December 18, 2008 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... Think outside the box.My Cool Lego Technic Website -- see walking bipeds and much more!My YouTube account -- see cool physics experimentsMy scripts:Minesweeper bot: Solves advanced level in 1 second (no registry edit), very improved GUI, 4 solving stylesCan't go to the toilet because of your kids closing your unsaved important work? - Make a specific window uncloseableCock Shooter Bot -- 30 headshots out of 30 Link to comment Share on other sites More sharing options...
FireFox Posted December 18, 2008 Share Posted December 18, 2008 @kiti Thanks but the topic is about somthing scaring... Link to comment Share on other sites More sharing options...
oMBRa Posted December 18, 2008 Share Posted December 18, 2008 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 Link to comment Share on other sites More sharing options...
Zisly Posted December 19, 2008 Author Share Posted December 19, 2008 not for hurt you but... LooooooooooooooooooooooooooooooooooooooooLI didn't thought about using a loop like Manadar showed Silly me xD Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now