my paint auto shortcuts

[miomaz]

cince i dont have a rootdirectory command(cuy i dont know it) I cant be shure if it would work for other people(because windows isnt always on the D drive) can someone help me out?

expandcollapse popup

;=========Paint shortcuts===========
;author:miomaz                     *
;function: shortcuts for paint     * 
;version: 0.2                      *
;===================================
$winpos=0
$mpos=0
$i=0
$lupe=0
Run("mspaint.exe", "D:\WINDOWS\system32", @SW_MAXIMIZE)
;~ If @error Then
;~      Run("mspaint.exe", "C:\WINDOWS\system32", @SW_MAXIMIZE)
;~  Else
;~      Run("mspaint.exe", "E:\WINDOWS\system32", @SW_MAXIMIZE)
;~ EndIf

HotKeySet("1","pinpet")
HotKeySet("2","line")
HotKeySet("q","rimer")
HotKeySet("w","fill")
HotKeySet("a","sizep")
HotKeySet("s","sizem")
Do
sleep(2)
Until $i=1
Func pinpet()
    $mpos = MouseGetPos()
    $winpos = WinGetPos("") 
    mouseclick( "left",$winpos[0]+14,$winpos[1]+114,1,1)
    MouseMove($mpos[0],$mpos[1],1)
EndFunc
Func line()
    $mpos = MouseGetPos()
    $winpos = WinGetPos("") 
    mouseclick( "left",$winpos[0]+15,$winpos[1]+193,1,1)
    MouseMove($mpos[0],$mpos[1],1)
EndFunc
Func rimer()
    $mpos = MouseGetPos()
    $winpos = WinGetPos("") 
    mouseclick( "left",$winpos[0]+39,$winpos[1]+69,1,1)
    MouseMove($mpos[0],$mpos[1],1)
EndFunc
Func fill()
    $mpos = MouseGetPos()
    $winpos = WinGetPos("") 
    mouseclick( "left",$winpos[0]+39,$winpos[1]+92,1,1)
    MouseMove($mpos[0],$mpos[1],1)
EndFunc
;Plupe zoom in
Func sizep()
    If $lupe<4 Then 
    $lupe=$lupe+1
    EndIf
    $mpos = MouseGetPos()
    $winpos = WinGetPos("") 
mouseclick( "left",$winpos[0]+39,$winpos[1]+112,1,1)
If $lupe = 1 Then
    mouseclick( "left",$winpos[0]+25,$winpos[1]+265,1,1)
        EndIf

If $lupe = 2 Then
    mouseclick( "left",$winpos[0]+25,$winpos[1]+283,1,1)
EndIf

        If $lupe = 3 Then
    mouseclick( "left",$winpos[0]+25,$winpos[1]+299,1,1)
EndIf

    If $lupe = 4 Then
    mouseclick( "left",$winpos[0]+25,$winpos[1]+315,1,1)
EndIf

    MouseMove($mpos[0],$mpos[1],1)
EndFunc
;lupe zoom out
Func sizem()
    If $lupe>1 Then 
    $lupe=$lupe-1
    EndIf
    $mpos = MouseGetPos()
    $winpos = WinGetPos("") 
    mouseclick( "left",$winpos[0]+39,$winpos[1]+112,1,1)
If $lupe = 1 Then
    mouseclick( "left",$winpos[0]+25,$winpos[1]+265,1,1)
        EndIf

If $lupe = 2 Then
    mouseclick( "left",$winpos[0]+25,$winpos[1]+283,1,1)
EndIf

        If $lupe = 3 Then
    mouseclick( "left",$winpos[0]+25,$winpos[1]+299,1,1)
EndIf

    If $lupe = 4 Then
    mouseclick( "left",$winpos[0]+25,$winpos[1]+315,1,1)
EndIf

    MouseMove($mpos[0],$mpos[1],1)
EndFunc

[_Kurt]

Rather than using this:

Run("mspaint.exe", "D:\WINDOWS\system32", @SW_MAXIMIZE)
;~ If @error Then
;~   Run("mspaint.exe", "C:\WINDOWS\system32", @SW_MAXIMIZE)
;~  Else
;~   Run("mspaint.exe", "E:\WINDOWS\system32", @SW_MAXIMIZE)
;~ EndIf

Use @WindowsDir.

Kurt