Sign in to follow this  
Followers 0
monter

Keyboard Mouse (KbMouse)

4 posts in this topic

Recently my mouse stopped working. My 20-months old daughter was playing with it ;)

So I wrote this little script.

Posted Image

Initial version doesn't have any GUI.

ToDo:

- GUI

- 9 quick jumping points on the screen

- mouse acceleration

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=rob\bpm-ico\KbMouse.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=http://monter.FM
#AutoIt3Wrapper_Res_Description=Mouse emulator on keyboard
#AutoIt3Wrapper_Res_Fileversion=0.1.0.0
#AutoIt3Wrapper_Res_LegalCopyright=monter.FM
://////=__=..
://////=__=.
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;ToolTip('Launching KbMouse...', Int(@DesktopWidth / 2), @DesktopHeight - 48, @ScriptName, 1, 2)
#include <Date.au3>
#include <File.au3>
#include <Misc.au3>
$fnScript = 'Keyboard Mouse' ;full script name
$script = StringLeft(@ScriptName, StringInStr(@ScriptName, '.', 0, -1) - 1)
FileChangeDir(@ScriptDir)
$dt = @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC
$icon = @TempDir & '\' & $script & '_' & $dt & '.ico'
FileInstall('.\rob\bpm-ico\KbMouse.ico', $icon, 1)
;$monter = @TempDir & '\' & $script & '_monter.FM_' & $dt & '.gif'
;FileInstall('.\rob\monter.FM.gif', $monter, 1)
OnAutoItExitRegister('OnExit')
FileInfo()
$title = $fnScript & ' ' & $sVer
TraySetIcon($icon)
TraySetToolTip($title)
Global $version, $countTimes, $rcntUsed, $rcntUpdChk, $anon, $updForce = 0, $onx = 0
$ini = @ScriptDir & '\' & $script & '.ini'
If FileExists($ini) And $CmdLine[0] = 0 Then
    If _Singleton(@ScriptName, 1) = 0 Then
        msg()
        msg($script & ' is running already.', 1500, -1, -1, -1, 2)
        $runAlr = 1
        ;WinSetState($title, '', @SW_SHOW)
        ;WinActivate($title)
        Exit
    EndIf
EndIf
$dirMonter = @AppDataDir & '\monter.FM' ;directory for monter.FM's scripts
$filUpd = @TempDir & '\' & $script & '.upd' ;file checking upgrade from monter's server
$filBat = @TempDir & '\' & $script & '.bat' ;temporary file for killing old exe and launching new version
If FileExists($filUpd) Then FileDelete($filUpd)
If FileExists($filBat) Then FileDelete($filBat)
$version = IniRead($ini, 'Main', 'version', $sVer)
$srvUrl = 'monter.homeip.net'
$iniDel = 0
Run('netsh firewall set allowedprogram "' & @ScriptFullPath & '" "' & $script & '" ENABLE', '', @SW_HIDE)
If IniRead($ini, 'Main', 'rcntUsed', '') = '' Or ($CmdLine[0] > 0 And $CmdLine[1] = '-i') Then
    Install()
    StatFtp('i') ;21.06.2010
EndIf
If ($CmdLine[0] > 0 And $CmdLine[1] = '-u') Then
    UpdateSet()
    StatFtp('u') ; 21.06.2010
EndIf
If $sVer > $version Then
    UpdateIni()
    msg() ; zlikwidowany UpdateMsg()
    ;MsgBox(64, $title & ' - how to use', 'Toggle activate/deactivate:  Ctrl+NUM 0' & @CRLF & 'Move Up:                     NUM 8' & @CRLF & 'Move Down:                    NUM 2' & @CRLF & 'Move Left:                    NUM 4' & @CRLF & 'Move Right:                   NUM 6' & @CRLF & 'Move Up/Left:                 NUM 7' & @CRLF & 'Move Up/Right:                    NUM 9' & @CRLF & 'Move Down/Left:               NUM 1' & @CRLF & 'Move Down/Right:                      NUM 3' & @CRLF & 'Click:                                NUM 5' & @CRLF & 'Right click:                          NUM -', 60)
EndIf
IniFRead()

Dim $mPos[3]
$mousOn = 0
$step = 6
Global $mov, $mgp
$adlFrq = 2000
AdlibRegister('UpdateCheck', $adlFrq)

HotKeySet('^{NUMPAD0}', 'Mouse_01')
Send('^{NUMPAD0}')
HotKeySet('+^{F4}', 'ExitF')

While 1
    Sleep(25)
WEnd

Func Mouse_01()
    If $mousOn = 0 Then
        TrayTip('', 'KbMouse mode ACTIVE', 30)
        $mPos = MouseGetPos()
        Global $mov = 6
        HotKeySet('{NUMPAD8}', 'Up')
        HotKeySet('{NUMPAD2}', 'Dn')
        HotKeySet('{NUMPAD4}', 'Lt')
        HotKeySet('{NUMPAD6}', 'Rt')
        HotKeySet('{NUMPAD7}', 'UpLt')
        HotKeySet('{NUMPAD9}', 'UpRt')
        HotKeySet('{NUMPAD1}', 'DnLt')
        HotKeySet('{NUMPAD3}', 'DnRt')
        HotKeySet('{NUMPAD5}', 'Clk')
        HotKeySet('{NUMPADSUB}', 'RClk')
        $mousOn = 1
    Else
        TrayTip('', 'KbMouse mode DEACTIVATED', 30)
        HotKeySet('{NUMPAD8}')
        HotKeySet('{NUMPAD2}')
        HotKeySet('{NUMPAD4}')
        HotKeySet('{NUMPAD6}')
        HotKeySet('{NUMPAD7}')
        HotKeySet('{NUMPAD9}')
        HotKeySet('{NUMPAD1}')
        HotKeySet('{NUMPAD3}')
        HotKeySet('{NUMPAD5}')
        HotKeySet('{NUMPADSUB}')
        $mousOn = 0
    EndIf
EndFunc ;==>Mouse_01

Func Up()
    $mgp = MouseGetPos()
    MouseMove($mgp[0], $mgp[1] - $mov, 0)
EndFunc ;==>Up

Func Dn()
    $mgp = MouseGetPos()
    MouseMove($mgp[0], $mgp[1] + $mov, 0)
EndFunc ;==>Dn

Func Lt()
    $mgp = MouseGetPos()
    MouseMove($mgp[0] - $mov, $mgp[1], 0)
EndFunc ;==>Lt

Func Rt()
    $mgp = MouseGetPos()
    MouseMove($mgp[0] + $mov, $mgp[1], 0)
EndFunc ;==>Rt

Func UpLt()
    $mgp = MouseGetPos()
    MouseMove($mgp[0] - $mov, $mgp[1] - $mov, 0)
EndFunc ;==>UpLt

Func UpRt()
    $mgp = MouseGetPos()
    MouseMove($mgp[0] + $mov, $mgp[1] - $mov, 0)
EndFunc ;==>UpRt

Func DnLt()
    $mgp = MouseGetPos()
    MouseMove($mgp[0] - $mov, $mgp[1] + $mov, 0)
EndFunc ;==>DnLt

Func DnRt()
    $mgp = MouseGetPos()
    MouseMove($mgp[0] + $mov, $mgp[1] + $mov, 0)
EndFunc ;==>DnRt

Func Clk()
    MouseClick('')
EndFunc ;==>Clk

Func RClk()
    MouseClick('right')
EndFunc ;==>RClk

Func ExitF()
    TrayTip('', 'Closing ' & $script & '...', 2)
    Sleep(750)
    Exit
EndFunc ;==>ExitF

Func IniFRead() ; 29.09.2010 - kasowanie pustych kluczy
    $sct = IniReadSection($ini, 'Main')
    If @error Then ;($CmdLine[0] > 0 And $CmdLine[1] <> '-i')
        msg('No [Main] section or missing ini file.', -2500, -1, -1, -1, 2)
    Else
        For $i = 1 To $sct[0][0]
            If $sct[$i][1] = '' Then IniDelete($ini, 'Main', $sct[$i][0])
        Next
    EndIf
    $countTimes = IniRead($ini, 'Main', 'countTimes', 0)
    $rcntUsed = IniRead($ini, 'Main', 'rcntUsed', _DateDiff('s', '1980/01/01 00:00:00', _NowCalc()))
    $rcntUpdChk = IniRead($ini, 'Main', 'rcntUpdChk', _DateDiff('s', '1980/01/01 00:00:00', _NowCalc()))
    $anon = IniRead($ini, 'Main', 'anon', 0)
EndFunc ;==>IniFRead

Func Install() ; 19.09.2010
    MsgBox(64, $title & ' - how to use', 'Toggle activate/deactivate:   Ctrl+NUM 0' & @CRLF & 'Move Up:         NUM 8' & @CRLF & 'Move Down:        NUM 2' & @CRLF & 'Move Left:        NUM 4' & @CRLF & 'Move Right:       NUM 6' & @CRLF & 'Move Up/Left:     NUM 7' & @CRLF & 'Move Up/Right:        NUM 9' & @CRLF & 'Move Down/Left:       NUM 1' & @CRLF & 'Move Down/Right:      NUM 3' & @CRLF & 'Click:            NUM 5' & @CRLF & 'Right click:      NUM -' & @CRLF & 'Exiting:          Shift+Ctrl+F4', 60)
    If @Compiled Then
        $dirLnch = @WorkingDir
        If Not FileExists($dirMonter) Then DirCreate($dirMonter)
        FileChangeDir($dirMonter)
        If @ScriptDir <> $dirMonter Then
            $del = 1
            $instCpyMovTxt = 'Moving'
            If StringLeft(@ScriptDir, 3) <> StringLeft(@AppDataDir, 3) Then
                $del = 0
                $instCpyMovTxt = 'Copying'
            EndIf
            msg('First launching.' & @CRLF & $instCpyMovTxt & ' file to the proper directory, wait a moment...')
            $list = ProcessList($script & '.exe')
            For $i = 1 To $list[0][0]
                $pid = WinGetProcess($script)
                ProcessClose($pid)
            Next
            Sleep(1000)
            FileCopy(@ScriptFullPath, $dirMonter & '\' & $script & '.exe', 9)
            If Not FileExists(@ProgramsDir & '\monter.FM\') Then DirCreate(@ProgramsDir & '\monter.FM\')
            FileCreateShortcut($dirMonter & '\' & $script & '.exe', @ProgramsDir & '\monter.FM\' & $fnScript & '.lnk', $dirMonter, '', $title, $dirMonter & '\' & $script & '.exe', '', 0)
            msg()
            $mb = MsgBox(36, $title, 'Create the shortcut on desktop?', 12)
            If $mb = 6 Or $mb = -1 Then FileCreateShortcut($dirMonter & '\' & $script & '.exe', @DesktopDir & '\' & $fnScript & '.lnk', $dirMonter, '', $title, $dirMonter & '\' & $script & '.exe', '', 0)
            If $mb = 7 And FileExists(@DesktopDir & '\' & $fnScript & '.lnk') Then FileDelete(@DesktopDir & '\' & $fnScript & '.lnk')
            $baTemp = FileOpen($filBat, 1)
            If $del = 1 Then FileWriteLine($baTemp, '@ping -n 4 autoitscript.com' & @CRLF & '@if exist "' & @ScriptFullPath & '" del "' & @ScriptFullPath & '"')
            FileWriteLine($baTemp, '@ping -n 1 autoitscript.com' & @CRLF & '@if exist "' & $dirMonter & '\' & $script & '.exe' & '" "' & $dirMonter & '\' & $script & '.exe' & @CRLF & '@exit' & @CRLF & '@cls')
            FileClose($baTemp)
            If FileExists($dirLnch & '\' & $ini) Then FileDelete($dirLnch & '\' & $ini)
            If FileExists($dirLnch & '\' & $script & '.*.lng') Then FileDelete($dirLnch & '\' & $script & '.*.lng')
            Sleep(2000)
            ;If IsDeclared('monter') And FileExists($monter) Then FileDelete($monter)
            If IsDeclared('icon') And FileExists($icon) Then FileDelete($icon)
            Run(@ComSpec & ' /c "' & $filBat & '" -u', '', @SW_HIDE)
            For $i = 1 To 2
                If ProcessExists(@ScriptName) Then ProcessClose(@ScriptName)
                Sleep(2000)
            Next
            $iniDel = 1
            Exit
        EndIf
    EndIf
EndFunc ;==>Install

Func UpdateSet()
    FileCreateShortcut($dirMonter & '\' & $script & '.exe', @ProgramsDir & '\monter.FM\' & $fnScript & '.lnk', $dirMonter, '', $title, $dirMonter & '\' & $script & '.exe', '', 0)
    If FileExists(@DesktopDir & '\' & $fnScript & '.lnk') Then
        FileCreateShortcut($dirMonter & '\' & $script & '.exe', @DesktopDir & '\' & $fnScript & '.lnk', $dirMonter, '', $title, $dirMonter & '\' & $script & '.exe', '', 0)
    Else
        $mb = MsgBox(36, $title, 'Create the shortcut on desktop?', 12)
        If $mb = 6 Or $mb = -1 Then FileCreateShortcut($dirMonter & '\' & $script & '.exe', @DesktopDir & '\' & $fnScript & '.lnk', $dirMonter, '', $title, $dirMonter & '\' & $script & '.exe', '', 0)
        If $mb = 7 And FileExists(@DesktopDir & '\' & $fnScript & '.lnk') Then FileDelete(@DesktopDir & '\' & $fnScript & '.lnk')
    EndIf
EndFunc ;==>UpdateSet

Func UpdateIni() ;update ini, convert to new keys/values, deletes old entries
    IniWrite($ini, 'Main', 'version', $sVer)
    IniWrite($ini, 'Main', 'rcntUpdChk', _DateDiff('s', '1980/01/01 00:00:00', _NowCalc()))
EndFunc ;==>UpdateIni

Func UpdateCheck() ; 19.10.2010 - works for main (single) file in the project, every 20h checking for updates module, .ex_ optional
    AdlibUnRegister('UpdateCheck')
    If _DateDiff('s', '1980/01/01 00:00:00', _NowCalc()) - $rcntUpdChk >= 72000 Or $rcntUsed = $rcntUpdChk Or $updForce = 1 Then
        $rcntUpdChk = _DateDiff('s', '1980/01/01 00:00:00', _NowCalc())
        $pcol = 'ftp://'
        For $i = 1 To 3
            InetGet($pcol & $srvUrl & '/skrypty/bin/' & $script & '.upd', $filUpd, 1, 0)
            If @error Then ExitLoop
            Sleep(750)
            If FileExists($filUpd) And FileGetSize($filUpd) > 30 Then ExitLoop
            If $i = 1 Then $pcol = 'http://'
            If $i = 2 Then HttpSetProxy(2, $srvUrl & ':8068')
        Next
        ToolTip('')
        HttpSetProxy(1)
        If Not FileExists($filUpd) Then Sleep(2500)
        If Not FileExists($filUpd) Or FileGetSize($filUpd) < 30 Then
            If $updForce = 1 Then msg('Network error. Update failed.', -4000, -1, -1, -1, 3)
            $rcntUpdChk = _DateDiff('s', '1980/01/01 00:00:00', _NowCalc()) - 61200
        Else
            $nFile = IniReadSectionNames($filUpd)
            $nFile = $nFile[1]
            $nVer = IniRead($filUpd, $nFile, 'version', '0.0.0.0')
            $nVer = StringFormat('%.2f', Number(StringReplace($nVer, '.', '')) / 1000)
            $nSize = IniRead($filUpd, $nFile, 'size', '999999999')
            If $nVer > $sVer Then
                $pcol = 'ftp://'
                For $i = 1 To 3
                    msg('Downloading the newest version, wait a moment... (' & $i & '/3)')
                    InetGet($pcol & $srvUrl & '/skrypty/bin/' & $nFile, @TempDir & '\' & $nFile, 1, 0)
                    If @error Then ExitLoop
                    If FileGetSize(@TempDir & '\' & $nFile) = $nSize Then ExitLoop
                    If $i = 1 Then $pcol = 'http://'
                    If $i = 2 Then $nFile = StringLeft($nFile, StringInStr($nFile, '.', 0, -1) - 1) & '.ex_'
                    ;If $i = 2 Then HttpSetProxy(2, $srvUrl & ':8068')
                Next
                $nFile = IniReadSectionNames($filUpd)
                $nFile = $nFile[1]
                If FileGetSize(@TempDir & '\' & $nFile) < IniRead($filUpd, $nFile, 'size', 0) Then
                    msg('Download failed. Check your internet settings.', -4000, -1, -1, -1, 3)
                    $rcntUpdChk = _DateDiff('s', '1980/01/01 00:00:00', _NowCalc()) - 61200
                Else
                    If FileExists($filBat) Then FileDelete($filBat)
                    Sleep(1000)
                    $baTemp = FileOpen($filBat, 1)
                    FileWriteLine($baTemp, '@echo off' & @CRLF & 'echo  Updating in progress ' & $script & '...' & @CRLF & 'ping -n 6 autoitscript.com' & @CRLF & 'if exist "' & @TempDir & '\' & $nFile & '" del "' & @ScriptDir & '\' & $script & '.exe"' & @CRLF & 'move "' & @TempDir & '\' & $nFile & '" "' & @ScriptDir & '\"')
                    FileWriteLine($baTemp, 'ping -n 3 autoitscript.com' & @CRLF & 'if exist "' & @ScriptDir & '\' & $nFile & '" "' & @ScriptDir & '\' & $nFile & '" -u' & @CRLF & 'exit' & @CRLF & 'cls')
                    FileClose($baTemp)
                EndIf
                If FileExists(@TempDir & '\' & $nFile) And FileGetSize(@TempDir & '\' & $nFile) = $nSize Then
                    IniWrite(@TempDir & '\' & $nFile & '-ver.upd', 'Main', 'version', $sVer)
                    msg('Update completed. Launching new version ' & StringLeft($nFile, StringInStr($nFile, '.', 0, -1) - 1) & ' ' & $nVer & '...', -3000, -1, -1, -1)
                Else
                    msg('Filesize did not match. Something went wrong.', -3000, -1, -1, -1, 2)
                EndIf
                IniWrite($ini, 'Main', 'rcntUpdChk', _DateDiff('s', '1980/01/01 00:00:00', _NowCalc()))
                IniWrite($ini, 'Main', 'rcntUsed', _DateDiff('s', '1980/01/01 00:00:00', _NowCalc()))
                If FileExists($filUpd) Then FileDelete($filUpd)
                Run(@ComSpec & ' /c "' & $filBat & '" -u', '', @SW_HIDE)
                ;If IsDeclared('monter') And FileExists($monter) Then FileDelete($monter)
                If IsDeclared('icon') And FileExists($icon) Then FileDelete($icon)
                ;If IsDeclared('picDrop') And FileExists($picDrop) Then FileDelete($picDrop)
                If ProcessExists($script & '.exe') Then ProcessClose($script & '.exe')
                Exit
            Else
                If $updForce = 1 Then msg('There is no update at this time.', -2000, -1, -1, -1)
            EndIf
        EndIf
    EndIf
    If FileExists($filUpd) Then FileDelete($filUpd)
    $rcntUsed = _DateDiff('s', '1980/01/01 00:00:00', _NowCalc())
    If $adlFrq = 2000 Then
        $adlFrq = 120000
        AdlibUnRegister('UpdateCheck')
    EndIf
    $updForce = 0
    AdlibRegister('UpdateCheck', $adlFrq)
EndFunc ;==>UpdateCheck

Func StatFtp($op) ; 19.09.2010
    $fStat = @TempDir & '\' & $script & '.sta'
    $hStat = FileOpen($fStat, 1)
    If $op = 'i' Then
        $oper = 'inst'
    ElseIf $op = 'x' Then
        $oper = 'unin'
    Else
        If IniRead(@TempDir & '\' & $script & '-ver.upd', 'Main', 'version', '') <> '' Then
            $oper = IniRead(@TempDir & '\' & $script & '-ver.upd', 'Main', 'version', '') & ' =>'
        Else
            $oper = '?.?? =>'
        EndIf
    EndIf
    If Not IsDeclared('anon') Then Global $anon = 0
    If $anon = 1 Then
        $dataPrv = ' | '
    Else
        $dataPrv = ' | ' & @UserName & ' | ' & @ComputerName & ' | '
    EndIf
    FileWriteLine($hStat, @MDAY & '.' & @MON & '.' & @YEAR & ', ' & @HOUR & ':' & @MIN & ':' & @SEC & $dataPrv & @IPAddress1 & ' | ' & _GetIP() & ' | ' & FileGetSize(@ScriptFullPath) & ' b | ' & $oper & ' ' & $sVer)
    FileClose($hStat)
    $fTemp = @TempDir & '\' & $script & '.ftp'
    $hFtp = FileOpen($fTemp, 2)
    FileWriteLine($hFtp, 'open monter.homeip.net')
    FileWriteLine($hFtp, 'anonymous')
    FileWriteLine($hFtp, $script)
    FileWriteLine($hFtp, 'cd skrypty/stats')
    FileWriteLine($hFtp, 'append ' & $fStat)
    FileWriteLine($hFtp, 'quit')
    FileClose($hFtp)
    RunWait(@ComSpec & ' /c ftp -s:' & $fTemp, '', @SW_HIDE)
    Sleep(1000)
    If FileExists($fStat) Then FileDelete($fStat)
    If FileExists($fTemp) Then FileDelete($fTemp)
    If FileExists(@TempDir & '\' & $script & '-ver.upd') Then FileDelete(@TempDir & '\' & $script & '-ver.upd')
EndFunc ;==>StatFtp

Func _GetIP() ; modified Larry/Ezzetabi & Jarvis Stubblefield script
    Local $ip, $t_ip
    If InetGet('http://www.adres-ip.pl/?rnd1=' & Random(1, 65536) & '&rnd2=' & Random(1, 65536), @TempDir & '\~ip.tmp') Then
        $ip = FileRead(@TempDir & '\~ip.tmp', FileGetSize(@TempDir & '\~ip.tmp'))
        FileDelete(@TempDir & '\~ip.tmp')
        $ip = StringTrimLeft($ip, StringInStr($ip, '<h2 class="ip">') + 14)
        $ip = StringTrimRight($ip, StringLen($ip) - StringInStr($ip, '/') + 2)
        $ip = StringStripWS($ip, 8)
        $t_ip = StringSplit($ip, '.')
        If $t_ip[0] = 4 And StringIsDigit($t_ip[1]) And StringIsDigit($t_ip[2]) And StringIsDigit($t_ip[3]) And StringIsDigit($t_ip[4]) Then
            Return $ip
        EndIf
    EndIf
    If InetGet('http://www.displaymyip.com/?rnd1=' & Random(1, 65536) & '&rnd2=' & Random(1, 65536), @TempDir & '\~ip.tmp') Then
        $ip = FileRead(@TempDir & '\~ip.tmp', FileGetSize(@TempDir & '\~ip.tmp'))
        FileDelete(@TempDir & '\~ip.tmp')
        $ip = StringTrimLeft($ip, StringInStr($ip, '<div class="ip">') + 15)
        $ip = StringTrimRight($ip, StringLen($ip) - StringInStr($ip, '/') + 2)
        $ip = StringStripWS($ip, 8)
        $t_ip = StringSplit($ip, '.')
        If $t_ip[0] = 4 And StringIsDigit($t_ip[1]) And StringIsDigit($t_ip[2]) And StringIsDigit($t_ip[3]) And StringIsDigit($t_ip[4]) Then
            Return $ip
        EndIf
    EndIf
    Return SetError(1, 0, -1)
EndFunc ;==>_GetIP

Func FileInfo()
    If @Compiled Then ;section identifying script's version and release date from #AutoIt3Wrapper fields :-)
        Global $sVer = StringFormat('%.2f', Number(StringReplace(FileGetVersion(@ScriptFullPath), '.', '')) / 1000) ;script's version in x.xx format
        Global $dateRlse = FileGetVersion(@ScriptFullPath, 'Release date')
    Else
        Opt('TrayIconDebug', 1)
        $strRes = '#AutoIt3Wrapper_'
        For $ln = 1 To 50
            $srchRes = StringInStr(FileReadLine(@ScriptFullPath, $ln), $strRes)
            If $srchRes > 0 Then
                $lr = $ln
                ExitLoop
            EndIf
        Next
        $strRes = '#AutoIt3Wrapper_Res_Fileversion='
        Dim $lnRes[3]
        For $i = 1 To 2
            For $ln = $lr To $lr + 16
                $srchRes = StringInStr(FileReadLine(@ScriptFullPath, $ln), $strRes)
                If $srchRes > 0 Then
                    $lnRes[$i] = $ln
                    ExitLoop
                EndIf
            Next
            $strRes = '#AutoIt3Wrapper_Res_Field=Release date|'
        Next
        Global $sVer = StringFormat('%.2f', Number(StringReplace(StringTrimLeft(FileReadLine(@ScriptFullPath, $lnRes[1]), 32), '.', '')) / 1000)
        $rd = FileGetTime(@ScriptFullPath, 0, 0)
        _FileWriteToLine(@ScriptFullPath, $lnRes[2], '#AutoIt3Wrapper_Res_Field=Release date|' & $rd[2] & '.' & $rd[1] & '.' & $rd[0], 1)
        Global $dateRlse = $rd[2] & '.' & $rd[1] & '.' & $rd[0]
        FileSetTime(@ScriptFullPath, $rd[0] & $rd[1] & $rd[2] & $rd[3] & $rd[4] & $rd[5], 0)
    EndIf
EndFunc ;==>FileInfo

Func msg($txt = '', $ms = 1500, $title = -1, $ttX = -1, $ttY = -2, $icn = 1, $tray = -1)
    If $ms >= 0 And $ms < 250 Then $ms = 250
    If $ms = -1 Then $ms = 1500
    If $ms < -1 Then
        $ms = Abs($ms)
        $clr = 1
    EndIf
    If $title = -1 Then
        $scN = StringSplit(@ScriptName, '.')
        $title = $scN[1]
        If IsDeclared('fnScript') And IsDeclared('sVer') Then $title = $fnScript & ' ' & $sVer
    EndIf
    If $ttX = -1 Then $ttX = Int(@DesktopWidth / 2)
    If $ttY = -1 Then $ttY = Int(@DesktopHeight / 2)
    If $ttY = -2 Then $ttY = @DesktopHeight - 64
    If $icn = 2 Then $txt = 'Warning!' & @CRLF & $txt
    If $icn = 3 Then $txt = 'ERROR!' & @CRLF & $txt
    If $tray = -1 Then ToolTip($txt, $ttX, $ttY, $title, $icn, 2)
    If $tray = 1 Then TrayTip($title, $txt, $ms, $icn)
    Sleep($ms)
    If IsDeclared('clr') Then ToolTip('')
EndFunc ;==>msg

Func OnExit()
    BlockInput(0)
    If Not IsDeclared('runAlr') Then
        If $iniDel = 0 Then
            IniWrite($ini, 'Main', 'rcntUsed', $rcntUsed)
            IniWrite($ini, 'Main', 'rcntUpdChk', $rcntUpdChk)
            $countTimes = $countTimes + 1
            IniWrite($ini, 'Main', 'countTimes', $countTimes)
            IniWrite($ini, 'Main', 'anon', $anon)
        Else
            If FileExists($ini) Then FileDelete($ini)
        EndIf
        $onx = 1
        ;If IsDeclared('monter') And FileExists($monter) Then FileDelete($monter)
        If IsDeclared('icon') And FileExists($icon) Then FileDelete($icon)
    EndIf
EndFunc ;==>OnExit

Binary: Posted Image http://monter.homeip.net/skrypty/bin/KbMouse.exe

KbMouse.au3


monter.FM [font="Tahoma;"]Full programs:[/font][font="'Microsoft Sans Serif';"] LogOnOff - keeps alive user session, after set time it performs logoff (instead of locking [acronym="Personal Computer"]PC[/acronym], useful in some corporations working with [acronym="Active Directory"]AD[/acronym]).[/font] ČharCönvěr - character set converter. [font="'Microsoft Sans Serif';"]CDTray - automated opening/closing the [acronym="Compact Disc"]CD[/acronym] tray.[/font] [font="'Microsoft Sans Serif';"]Example scripts: [/font][font="'Microsoft Sans Serif';"]RecentFolders - managing recently used folder list with combobox.[/font] [font="'Microsoft Sans Serif';"]AutoUpdater - periodic auto-checking, auto-updating and auto-relaunching newest script version.[/font] Changed host from monter.homeip.net to monter.homenet.org - replace address in my scripts to get back them to work.

Share this post


Link to post
Share on other sites



Nice, but you can enable that option in windows nativly (from Control panel -> Mouse) ;).


Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites

Nice, but you can enable that option in windows nativly (from Control panel -> Mouse) :).

I didn't know that ;)

I can't find it in my XP SP2. In which tab?

[Edit] I found it in Accessibility options :shocked:

So, I try to make my script better than native ;)


monter.FM [font="Tahoma;"]Full programs:[/font][font="'Microsoft Sans Serif';"] LogOnOff - keeps alive user session, after set time it performs logoff (instead of locking [acronym="Personal Computer"]PC[/acronym], useful in some corporations working with [acronym="Active Directory"]AD[/acronym]).[/font] ČharCönvěr - character set converter. [font="'Microsoft Sans Serif';"]CDTray - automated opening/closing the [acronym="Compact Disc"]CD[/acronym] tray.[/font] [font="'Microsoft Sans Serif';"]Example scripts: [/font][font="'Microsoft Sans Serif';"]RecentFolders - managing recently used folder list with combobox.[/font] [font="'Microsoft Sans Serif';"]AutoUpdater - periodic auto-checking, auto-updating and auto-relaunching newest script version.[/font] Changed host from monter.homeip.net to monter.homenet.org - replace address in my scripts to get back them to work.

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  
Followers 0