trap cursor

[XTensionX]

hi, im trying to make the cursor trapped inside my input box, but i dont know why it doesn't work

here is my code

#include <Misc.au3>
    
$input = InputBox ("Example", "please type your text here","","",150,80)
$Pos = WinGetPos($input)
_MouseTrap($Pos[0], $Pos[1], $Pos[0] + $Pos[2], $Pos[1] + $Pos[3])

can anyone tell me what i did wrong?

thanks

Edit: Damn wrong section sry :S

Edited August 31, 2010 by XTensionX

[kaotkbliss]

I've seen on the forums similar situations and the explination given was something along the lines of:

When the code hits the input box line, it pauses until the input box is complete, then moves on.

I can't remember the solution, but some searching should help you out.

[XTensionX]

  On 8/31/2010 at 2:16 AM, 'kaotkbliss said:

I've seen on the forums similar situations and the explination given was something along the lines of:

When the code hits the input box line, it pauses until the input box is complete, then moves on.

I can't remember the solution, but some searching should help you out.

i've been looking around for a while myself aswell.. but i cant seem to find a working answer to this problem

[UEZ]

The problem is that InputBox stops the script and is waiting for an input - no other functions e.g. AdlibRegister() will not be performed!

There is an example in the help file:

#include <GuiConstantsEx.au3>
#include <Misc.au3>

Opt("MustDeclareVars", 1)

_Main()

Func _Main()
 Local $GUI, $coords[4]

 $GUI = GUICreate("Mouse Trap Example", 392, 323)

 GUISetState()

 While 1
 $coords = WinGetPos($GUI)
 _MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
 Switch GUIGetMsg()
 Case $GUI_EVENT_CLOSE
 ExitLoop
 Case Else
 ;;;
 EndSwitch
 WEnd
 _MouseTrap()
 Exit
EndFunc ;==>_Main

You have to create a GUI!

Br,

UEZ

Edited August 31, 2010 by UEZ

[XTensionX]

  On 8/31/2010 at 5:57 PM, 'UEZ said:

The problem is that InputBox stops the script and is waiting for an input - no other functions e.g. AdlibRegister() will not be performed!

There is an example in the help file:

#include <GuiConstantsEx.au3>
#include <Misc.au3>

Opt("MustDeclareVars", 1)

_Main()

Func _Main()
 Local $GUI, $coords[4]

 $GUI = GUICreate("Mouse Trap Example", 392, 323)

 GUISetState()

 While 1
 $coords = WinGetPos($GUI)
 _MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
 Switch GUIGetMsg()
 Case $GUI_EVENT_CLOSE
 ExitLoop
 Case Else
 ;;;
 EndSwitch
 WEnd
 _MouseTrap()
 Exit
EndFunc ;==>_Main

You have to create a GUI!

Br,

UEZ

i looked into this example aswell.. and i can get the mousetrap working on GUI, but i need it to work on a input box, so theres no way the _mousetrap would work on a input box? :/

[kaotkbliss]

In otherwords, you have to create a gui that looks and acts just like an inputbox.

[XTensionX]

  On 8/31/2010 at 7:19 PM, 'kaotkbliss said:

In otherwords, you have to create a gui that looks and acts just like an inputbox.

oh i see gna have to remake my script a little then

[martin]

No need to do much at all, certainly no need to make your own gui. I think the code below does what you want .

#include <Misc.au3>
#include <timers.au3>

 $t1 = _Timer_SetTimer(0,50,"Trap")
$input = InputBox ("Example 001", "please type your text here","","",150,80)

func Trap($a,$b,$c,$d)
    Local $margin = 6;might be better to keep cursor within client area
    $pos=wingetpos("Example 001")
    _MouseTrap($Pos[0]+$margin, $Pos[1]+$margin, $Pos[0] + $Pos[2]-$margin, $Pos[1] + $Pos[3]-$margin)
    _Timer_KillAllTimers(0)
EndFunc

The margin is needed to prevent sizing arrows appearing.

Edited August 31, 2010 by martin

[UEZ]

Nice to know that _Timer_SetTimer() is skipping this limit! But after resizing the window "trapping" is not working anymore

Br,

UEZ

[XTensionX]

  On 8/31/2010 at 9:43 PM, 'martin said:

No need to do much at all, certainly no need to make your own gui. I think the code below does what you want .

#include <Misc.au3>
#include <timers.au3>

 $t1 = _Timer_SetTimer(0,50,"Trap")
$input = InputBox ("Example 001", "please type your text here","","",150,80)

func Trap($a,$b,$c,$d)
    Local $margin = 6;might be better to keep cursor within client area
    $pos=wingetpos("Example 001")
    _MouseTrap($Pos[0]+$margin, $Pos[1]+$margin, $Pos[0] + $Pos[2]-$margin, $Pos[1] + $Pos[3]-$margin)
    _Timer_KillAllTimers(0)
EndFunc

The margin is needed to prevent sizing arrows appearing.

thanks it works

but sizing arrow still apears, and after after i resize it/move the input box, the mousetrap doesnt work no more :/

[martin]

  On 9/3/2010 at 9:24 PM, 'XTensionX said:

thanks it works

but sizing arrow still apears, and after after i resize it/move the input box, the mousetrap doesnt work no more :/

I tried this on XP and the margin of 6 keeps the cursor away from the edges so I cannot resize. Maybe you and Uez are using W7. In that case maybe in W7 you need to increase the margin, and maybe have a different margin at the top as my comment in the function. Or if you are resizing using Alt SPACE then choosing sizing, move the killAlltimers line like this

#include <Misc.au3>
#include <timers.au3>

 $t1 = _Timer_SetTimer(0,50,"Trap")
$input = InputBox ("Example 001", "please type your text here","","",150,80)
_Timer_KillAllTimers(0)

func Trap($a,$b,$c,$d)
    Local $margin = 6;might be better to keep cursor within client area
    $pos=wingetpos("Example 001")
    _MouseTrap($Pos[0]+$margin, $Pos[1]+$margin, $Pos[0] + $Pos[2]-$margin, $Pos[1] + $Pos[3]-$margin)
    ;_Timer_KillAllTimers(0)
EndFunc

[XTensionX]

  On 9/6/2010 at 5:45 AM, 'martin said:

I tried this on XP and the margin of 6 keeps the cursor away from the edges so I cannot resize. Maybe you and Uez are using W7. In that case maybe in W7 you need to increase the margin, and maybe have a different margin at the top as my comment in the function. Or if you are resizing using Alt SPACE then choosing sizing, move the killAlltimers line like this

#include <Misc.au3>
#include <timers.au3>

 $t1 = _Timer_SetTimer(0,50,"Trap")
$input = InputBox ("Example 001", "please type your text here","","",150,80)
_Timer_KillAllTimers(0)

func Trap($a,$b,$c,$d)
    Local $margin = 6;might be better to keep cursor within client area
    $pos=wingetpos("Example 001")
    _MouseTrap($Pos[0]+$margin, $Pos[1]+$margin, $Pos[0] + $Pos[2]-$margin, $Pos[1] + $Pos[3]-$margin)
    ;_Timer_KillAllTimers(0)
EndFunc

it works ^^

thanks, and yes im using W7 =]