How can I disable right click? & F4?

[AzKay]

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

expandcollapse popup

$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 June 15, 2006 by AzKay

[nitekram]

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

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

[AzKay]

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

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

[AzKay]

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

[MagickCrafter]

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

[Sardith]

expandcollapse popup

$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

[Paulie]

expandcollapse popup

#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 June 15, 2006 by Paulie

[Busti]

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 June 16, 2006 by Busti

[Lett]

Try

BlockInput(1)

BlockInput(0)

For X Hours while you're sleeping