Sign in to follow this  
Followers 0
AzKay

How can I disable right click? & F4?

9 posts in this topic

#1 ·  Posted (edited)

Yeah, Im making a prank program, it runs an annoying flash, the flash is looped, so basically, while im asleep, no one can get on my laptop. ( Cause theres this guy that sometimes comes over, and goes on my computer, without asking ( I wake up around midday, he comes when im asleep :D ) ) So yeah, ive got my script all done, im pretty sure. I just need to block F4 ( so he cant use alt f4 ) and I want to disable right click.

heres my script:

$Run = "+{F1}"
$Close = "+{F2}"
$Loit = "Loit.txt"
HotKeySet($Close, "Close")
HotKeySet($Run, "_Run")
HotKeySet("{ESC}", "DoNothing")
Opt("MouseCoordMode", 2)

While 1
    ProcessClose("taskmgr.exe")
    WinSetOnTop("Macromedia Flash Player", "", 1)
    Sleep(1)
WEnd

Func _Run()
Run("Flash.exe")
WinWait("Macromedia Flash Player 8")
WinActivate("Macromedia Flash Player 8")
Sleep(100)
MouseClick("left", 19, -11)
Sleep(100)
MouseClick("Left", 19, 11) 
WinWait("Open")
ControlSend("Open", "", 525, $Loit)
ControlSend("Open", "", 525, "{ENTER}")
WinWait("Macromedia Flash Player 8")
MouseClick("Left", 51, -11)
Sleep(100)
MouseClick("Left", 59, 95)
EndFunc

Func Close()
    ProcessClose("Flash.exe")
    ProcessClose("Loit.exe")
EndFunc

Func DoNothing()
EndFunc

Basically, this script, opens Loit.txt in flash player, and plays the flash, the last mouseclick makes the flash full screen. ( not that anyone needs to know, but just incase someone knows a better way.)

PS::

Ive made myself paranoid, while working on this, I had to restart due to a mistake I did.. I think I just found, a script that would make me paranoid for a long time... Can I pm the script to someone, and they can tell me if there would be a way around it? ( I dont mean, pm the script, I mean the code. )

Edited by AzKay

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites



Yeah, Im making a prank program, it runs an annoying flash, the flash is looped, so basically, while im asleep, no one can get on my laptop. ( Cause theres this guy that sometimes comes over, and goes on my computer, without asking ( I wake up around midday, he comes when im asleep :D ) )

Are you using windows above 98 - cause they have a screen saver that you can use that is password protected. :D


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

Are you using windows above 98 - cause they have a screen saver that you can use that is password protected. :D

Im using XP, but I wanna do it my way, then I can say I made my own script xD

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

Im using XP, but I wanna do it my way, then I can say I made my own script xD

Yes im bumping for no reason, well, only cause im impatient

# MY LOVE FOR YOU... IS LIKE A TRUCK- #

Share this post


Link to post
Share on other sites

Im using XP, but I wanna do it my way, then I can say I made my own script xD

AutoItSetOption ( "OnExitFunc", "Exitfunc" ) May help you, and as for the maximize thingy,

WinSetState($name, "", @SW_MAXIMIZE)

where $name = The name of the window

Share this post


Link to post
Share on other sites

$Run = "+{F1}"
$Close = "+{F2}"
$Loit = "Loit.txt"
HotKeySet($Close, "Close")
HotKeySet($Run, "_Run")
HotKeySet("{ESC}", "DoNothing")
Opt("MouseCoordMode", 2)

While 1
     If _IsPressed('73') = 1 Then 
sleep(100) 
    Else 
    ProcessClose("taskmgr.exe")
    WinSetOnTop("Macromedia Flash Player", "", 1)
    Sleep(1)
EndIf
WEnd

Func _Run()
Run("Flash.exe")
WinWait("Macromedia Flash Player 8")
WinActivate("Macromedia Flash Player 8")
Sleep(100)
MouseClick("left", 19, -11)
Sleep(100)
MouseClick("Left", 19, 11)
WinWait("Open")
ControlSend("Open", "", 525, $Loit)
ControlSend("Open", "", 525, "{ENTER}")
WinWait("Macromedia Flash Player 8")
MouseClick("Left", 51, -11)
Sleep(100)
MouseClick("Left", 59, 95)
EndFunc

Func _IsPressed($hexKey)

  Local $aR, $bO
  $hexKey = '0x' & $hexKey
  $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
  If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then
     $bO = 1
  Else
     $bO = 0
  EndIf
  Return $bO
EndFunc 

Func Close()
    ProcessClose("Flash.exe")
    ProcessClose("Loit.exe")
EndFunc

Func DoNothing()
EndFunc


[font="Verdana"]Valik:Get it straight - I'm not here to say please, I'm here to help - if my help's not appreciated then lotsa luck, gentlemen.[/font]

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

#NoTrayIcon
#include <GuiConstants.au3>

Opt('GuiCloseOnEsc',1)

HotKeySet("qwer", "Term")

$check= MouseGetPos()
AdlibEnable("CheckPos")

Func CheckPos()
$Check2=MouseGetPos()
If $Check2<>$Check then BlockWanker()
EndFunc

Func BlockWanker()
GuiCreate("", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
GuiSetBkColor(0x00000)
$label = GuiCtrlCreateLabel("Get Off My Computer *Name*!", 100, @DesktopHeight/2-100, @DesktopWidth-200, 100)
GuiCtrlSetFont($label, 30, 500, 4, "Arial")
GuiCtrlSetColor($label, 0xff0000)

GuiSetState()

While 1
$msg=GuiGetMsg()
If $msg=$GUI_EVENT_CLOSE then 
exitloop
Else
Continueloop
Endif
Wend
EndFunc

Func Term()
Exit 0
EndFunc

Does this do something like what you want?

It Checks if the mouse has moved and if it has Creates a black Gui with a message

That wont go away until "qwer" is pressed simultaneously

Note: quick replay that is untested

Edited by Paulie

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

1.

while 1
 mousemove( random(0,@desktopwidht,1) , random(0,@desktopheight,1),1)
 sleep(1)
wend
oÝ÷ Ûf®¶­s`¢6æ6ÇVFRfÇC¶Ö62æS2fwC°§vÆR¢bö7&W76VB"FVâÖ÷W6V6Æ6²gV÷C¶ÆVgBgV÷C²ÆÖ÷W6VvWG÷2ÓÆÖ÷W6VvWG÷2Ãç6ÆVW§vVæ@

searched for smt. like this ?

Edited by Busti

My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity

Share this post


Link to post
Share on other sites

Try

BlockInput(1)

BlockInput(0)

For X Hours while you're sleeping :D

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