Windows ME

[w0uter]

if i use the code below on my Windows ME machine

i am able to move my mouse TROUGH the left side of the screen

witch makes it REAPPEAR at the right

(same goes for bottom->top, top->bottom and right->left)

any idee what is cousing this.

expandcollapse popup

Global $Paused = 1

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
    WEnd
    $ms = MouseGetPos()
EndFunc  ;==>TogglePause

HotKeySet("{PAUSE}", "TogglePause")

While 1

While Not $paused
    
    $ms = MouseGetPos()
    
    $rr = Random(1, 8, 1)
    
    Select
        Case $rr = 1
            MouseMove($ms[0] + 5, $ms[1] + 5, 0)
            MouseMove($ms[0] - 5, $ms[1] - 5, 0)
        Case $rr = 2
            MouseMove($ms[0] + 5, $ms[1] - 5, 0)
            MouseMove($ms[0] - 5, $ms[1] + 5, 0)
        Case $rr = 3
            MouseMove($ms[0] - 5, $ms[1] + 5, 0)
            MouseMove($ms[0] + 5, $ms[1] - 5, 0)
        Case $rr = 4
            MouseMove($ms[0] - 5, $ms[1] - 5, 0)
            MouseMove($ms[0] + 5, $ms[1] + 5, 0)
        Case $rr = 5
            MouseMove($ms[0] + 0, $ms[1] + 5, 0)
            MouseMove($ms[0] - 0, $ms[1] - 5, 0)
        Case $rr = 6
            MouseMove($ms[0] - 0, $ms[1] - 5, 0)
            MouseMove($ms[0] + 0, $ms[1] + 5, 0)
        Case $rr = 7
            MouseMove($ms[0] - 5, $ms[1] - 0, 0)
            MouseMove($ms[0] + 5, $ms[1] + 0, 0)
        Case $rr = 8
            MouseMove($ms[0] + 5, $ms[1] - 0, 0)
            MouseMove($ms[0] - 5, $ms[1] + 0, 0)
    EndSelect
    
WEnd

WEnd

[buzz44]

I'm running XP and its fine, not that, that helps. What you are explaining reminds me alot of this script . It should have no effect on you cause your mouse is already doing it lol.

_MouseWrap()

Func _MouseWrap()
   While 1
      $pos = MouseGetPos()
      If $pos[0] < 2 Then MouseMove(@DeskTopWidth - 2, $pos[1], 1)
      If $pos[0] > @DeskTopWidth - 2 Then MouseMove(2, $pos[1], 1)
      If $pos[1] < 2 Then MouseMove($pos[0], @DesktopHeight - 2, 1)
      If $pos[1] > @DeskTopHeight - 2 Then MouseMove($pos[0], 2, 1)
   Wend
EndFunc

Not my creation.

Edited April 21, 2005 by Burrup

[therks]

Hmm, this used to happen on older versions of AutoIt. For example, I have a compiled version of this code:

CODE

#NoTrayIcon

HotKeySet('!^{END}', 'CloseMe')

Func CloseMe()

Exit

EndFunc

Func DoIt()

Global $i

$i = $i + 1

$s = Round(sin($i/5)*5)

$c = Round(cos($i/5)*5)

$m = MouseGetPos()

MouseMove($m[0]-$s, $m[1]+$c, 0)

ToolTip($i)

EndFunc

While 1

DoIt()

WEnd

And when I run it, if I put my mouse in the corner of the screen it will jump around to all four corners. Yet, running this code with my current AutoIt installation, it does not actually jump around, it just sits in one corner.

Heh, I had a lot of fun with that little code.. I put it in my Mom's startup folder. She was trying to close it with Task Manager, by right clicking on the process and selecting end.