YAMM Yet Another Move Mouse application

[Marcelos]

In my work place they blocked the application movemouse. so y decided to do one by myself , to cheat the system.

I have used some peaces of code from another scripts I have, and also I have found in this forum

Hope this helps

expandcollapse popup

$version="0.2"

#include <Misc.au3>
If _Singleton(@ScriptName, 1) = 0 Then ; allow only one instance
    MsgBox(0, "Warning", "An occurence of " & @ScriptName & " is already running")
    Exit
EndIf

#region tray icon
    #NoTrayIcon
    Opt("TrayIconHide", 0)
    Opt("TrayMenuMode", 1)
    TraySetToolTip("Ratoner "&  $version)
    Local $exititem = TrayCreateItem("Exit")
    TraySetState(1) ; Show the tray menu.
#endregion
#region variables
    $BlockScreensaver=1
    $flagMouse=1
    $MouseNotMovedCounter=0
    $posMouseMovedX=0
    $posMouseMovedY=0
    $Counter= 0
#endregion
#region main
    Local $hTimer = TimerInit()
    while 1
        $Counter=$Counter+1
        if $Counter>1000 then
            CheckifMouseMove()
            if $MouseNotMovedCounter>2 then moveMouse()
            $Counter= 0
        endif
        Switch TrayGetMsg()
            Case $exititem
                exit
        EndSwitch
        sleep(50)
    wend
#endregion

#region functions
    func CheckifMouseMove()
;~      ConsoleWrite("+CheckifMouseMove()" & @crlf)
        $posMouseMoved = MouseGetPos()
        if $posMouseMovedX<>$posMouseMoved[0]or $posMouseMovedY <> $posMouseMoved[1] then
            $posMouseMovedX=$posMouseMoved[0]
            $posMouseMovedY=$posMouseMoved[1]
            $MouseNotMovedCounter=0
;~          ConsoleWrite('>$MouseNotMovedCounter = ' & $MouseNotMovedCounter & @crlf )
        Else
            ;$MouseMoved=0
            $MouseNotMovedCounter=$MouseNotMovedCounter+1
;~          ConsoleWrite('--$MouseNotMovedCounter = ' & $MouseNotMovedCounter & @crlf )
        endif
    EndFunc
    func moveMouse()
;~      ConsoleWrite("+moveMouse" & @crlf)
        Local $posMouse = MouseGetPos()
        $flagMouse=$flagMouse*-1
        Local $new_y = $posMouse[1] + $flagMouse ; + (10*$flagMouse)
        MouseMove($posMouse[0],$new_y)
        $MouseNotMovedCounter=0
;~                  ConsoleWrite("+mouseMove $MouseNotMovedCounter" & $MouseNotMovedCounter & @crlf)
    endfunc
#endregion

 

[junkew]

I assume you do this to keep your computer not getting locked

another trick vbscript is to numlock on/off not converted to AutoIT code (I assume if mousemove gets blocked by policy its just a matter of time they block other tools) so far never seen getting wscript locked out by policy

' Function to prevent locking the screen
Function BlinkNumlock()
    Dim WxhShell

    Set WxhShell = CreateObject("WScript.Shell")
     WxhShell.SendKeys "{NUMLOCK}"
     WxhShell.SendKeys "{NUMLOCK}"
     Set WxhShell = Nothing
End Function