Jump to content
Sign in to follow this  
w0uter

Windows ME

Recommended Posts

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.

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

My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll

Share this post


Link to post
Share on other sites

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 by Burrup

qq

Share this post


Link to post
Share on other sites

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.

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...