[OT] autohotkey-usefull scripts list

Moderated forum for Slovak and Czech users

Moderator: Hacker

Post Reply
Terka
Senior Member
Senior Member
Posts: 326
Joined: 2006-05-24, 09:04 UTC

[OT] autohotkey-usefull scripts list

Post by *Terka »

Nekdy se kratky skriptik muze hodit. Budu je sem pridavat, pridejte se.
Chtela bych tento thread jen jako seznam, aby byl prehledny.


Outlook - pri kopirovani zpravy do txt editoru prida za kazdym radkem enter navic. Skript Entery navic z clipboardu odstrani

Code: Select all

clipboard := RegExReplace(clipboard, "\n\r","") 
Last edited by Terka on 2009-07-31, 09:43 UTC, edited 1 time in total.
User avatar
Hacker
Moderator
Moderator
Posts: 13052
Joined: 2003-02-06, 14:56 UTC
Location: Bratislava, Slovakia

Post by *Hacker »

Pre TC forum (vid nasledujuci prispevok):

[b -> [b]<cursor>[/b]
[i -> [i]<cursor>[/i]
[u -> [url=<paste>]<cursor>[/url]
[q -> [quote]<paste>[/quote]<cursor>

Roman
Mal angenommen, du drückst Strg+F, wählst die FTP-Verbindung (mit gespeichertem Passwort), klickst aber nicht auf Verbinden, sondern fällst tot um.
User avatar
Hacker
Moderator
Moderator
Posts: 13052
Joined: 2003-02-06, 14:56 UTC
Location: Bratislava, Slovakia

Post by *Hacker »

Code: Select all

#IfWinActive, Total Commander ::
:*b0:[q::uote]^v[/quote]
:*b0:[b::][/b]{Left 4}
:*b0:[i::][/i]{Left 4}
:*b0:[u::rl=^v][/url]{Left 6}
Roman
Mal angenommen, du drückst Strg+F, wählst die FTP-Verbindung (mit gespeichertem Passwort), klickst aber nicht auf Verbinden, sondern fällst tot um.
User avatar
Hacker
Moderator
Moderator
Posts: 13052
Joined: 2003-02-06, 14:56 UTC
Location: Bratislava, Slovakia

Post by *Hacker »

Zatvorit aktivne okno (namiesto Alt-F4, funguje aj s konzolovym oknom):

Code: Select all

~Esc & F1 Up::WinClose, A

Odstranit formatovanie z textu v clipboarde a pastnut:

Code: Select all

$^+v::
	Clipboard = %Clipboard%
	Send, ^v
Return
Roman
Mal angenommen, du drückst Strg+F, wählst die FTP-Verbindung (mit gespeichertem Passwort), klickst aber nicht auf Verbinden, sondern fällst tot um.
golem2
New Member
New Member
Posts: 1
Joined: 2008-08-03, 02:27 UTC

Post by *golem2 »

Pri zmacknuti altu muzete levym tlacitkem mysi chytnout libovolne okno kdekoliv a pohybovat s nim.

Code: Select all

!LButton::
CoordMode, Mouse  ; Switch to screen/absolute coordinates.
MouseGetPos, EWD_MouseStartX, EWD_MouseStartY, EWD_MouseWin
WinGetPos, EWD_OriginalPosX, EWD_OriginalPosY,,, ahk_id %EWD_MouseWin%
SetTimer, EWD_WatchMouse, 10 ; Track the mouse as the user drags it.
return

EWD_WatchMouse:
GetKeyState, EWD_LButtonState, LButton, P
if EWD_LButtonState = U  ; Button has been released, so drag is complete.
{
	SetTimer, EWD_WatchMouse, off
	return
}
GetKeyState, EWD_EscapeState, Escape, P
if EWD_EscapeState = D  ; Escape has been pressed, so drag is cancelled.
{
	SetTimer, EWD_WatchMouse, off
	WinMove, ahk_id %EWD_MouseWin%,, %EWD_OriginalPosX%, %EWD_OriginalPosY%
	return
}
; Otherwise, reposition the window to match the change in mouse coordinates
; caused by the user having dragged the mouse:
CoordMode, Mouse
MouseGetPos, EWD_MouseX, EWD_MouseY
WinGetPos, EWD_WinX, EWD_WinY,,, ahk_id %EWD_MouseWin%
SetWinDelay, -1   ; Makes the below move faster/smoother.
WinMove, ahk_id %EWD_MouseWin%,, EWD_WinX + EWD_MouseX - EWD_MouseStartX, EWD_WinY + EWD_MouseY - EWD_MouseStartY
EWD_MouseStartX := EWD_MouseX  ; Update for the next timer-call to this subroutine.
EWD_MouseStartY := EWD_MouseY
return
Pri zmacknuti altu a praveho tlacitka se zavre oznacene okno.

Code: Select all

!RButton::
WinGetActiveTitle, okno
WinClose, %okno%
return
Pri zmacknuti altu a pohybu koleckem nahoru se okno maximalizuje.

Code: Select all

!WheelUp::
WinGetActiveTitle, okno
WinMaximize, %okno%
return
Pri zmacknuti altu a pohybu koleckem nahoru se okno minimalizuje.

Code: Select all

!WheelDown::
WinGetActiveTitle, okno
WinMinimize, %okno%
return
Terka
Senior Member
Senior Member
Posts: 326
Joined: 2006-05-24, 09:04 UTC

Post by *Terka »

total commander
shift f5 prejmenovani
pokud do 1s zmacknu b, udela backup
pokud n udela kopii s novym jmenem

Code: Select all

$+F5:: 
#IfWinActive, ahk_class TTOTAL_CMD   
    Suspend, On
        Input,Text, I L1 T1, {Esc},b,n  ;nesmi tu byt mezery
        If ErrorLevel = Match
        {
            If Text = b ; backup
            { Send +{F5}
              WinWaitActive,ahk_class TCheckEditBox
              Send {END}__%A_YYYY%-%A_MM%-%A_DD%_%A_Hour%-%A_Min%.bak{ENTER}
            Suspend, Off
            Return
            }

            If Text = n ; novy (nove jmeno)
            { Send +{F5}
              WinWaitActive,ahk_class TCheckEditBox
              Send {home}.\{end}
              Send ^{left} ;kurzor na: jmenoI.xls
              Send {left}
            Suspend, Off
            Return
            }
        }
        else
        {
            Send +{F5}
        Suspend, Off
        Return
        }
Terka
Senior Member
Senior Member
Posts: 326
Joined: 2006-05-24, 09:04 UTC

Post by *Terka »

total commander
synchronizace adresaru-otevre novy TC pro kazdy lisici se adresar

Code: Select all

  { ; otevre novy TC pro kazdy adresar, co se lisi 
    ; klikni do seznamu souboru
    
    ; zjistim strukturu adresaru  ##############################
    ; promenne: struktura_adr, adr1, adr2    ;potom ->  adrfinal1, adrfinal2
    Send, ^a^c
    struktura_adr = %clipboard%
    ; zjistim strukturu adresaru  
    
    
    ; zjistim aktualni adresare ##############################
    Sleep, 100
    Send, {TAB} ; adresar from 
    send, ^c
    adr1 = %clipboard%
    ;sleep 2000
    send, {TAB 3} ; adresar to
    send, {CTRLDOWN}c{CTRLUP}
    adr2 = %clipboard%
    
    
    ;pro kazdy adresar spust separatni TC ##################################  
    Loop, parse, struktura_adr, `n, `r  
    {
        IfInString,A_LoopField, \
        { 
          adrfinal1 := adr1 . A_LoopField
          adrfinal2 := adr2 . A_LoopField
          run C:\wincmd\TOTALCMD.exe /L=%adrfinal1% /R=%adrfinal2%
          send cm_CompareDirs{enter}     
        }
    }
Terka
Senior Member
Senior Member
Posts: 326
Joined: 2006-05-24, 09:04 UTC

Post by *Terka »

;TC_stejny_adresar_vpravo_i_vlevo
;pri rovnani fotek apod.
;mnoho adr. v levem i pravem okne, adr. se jmenuji stejne.
;jsem kurzorem v pravem okne na 2009-05-04 a chci na nej i v levem okne
;tam je ale spousta adr.
; skript to udela za me



#IfWinActive, ahk_class TTOTAL_CMD
send, cm_CopySrcPathToClip{enter}
clipboard := RegExReplace(clipboard, ".+\\", "") ;odstraneni plne cesty, zbyde samotne jmeno
;msgbox, %clipboard%
Send, {TAB}
Send, cd{space}
Send, ^v{ENTER}
Return
Terka
Senior Member
Senior Member
Posts: 326
Joined: 2006-05-24, 09:04 UTC

Post by *Terka »

rychle trideni souboru do adresaru, priradte si pod jakou kombinaci chcete
funguje i se shorcuty adresaru.
tj. mam napr. downloadnute soubory a tridim je
v oblibenych mam adresar "KAM" ktery obsahuje shortcuty na dalsi adresare.
napr.
c:/kam/mp3.lnk
c:/kam/fotky.lnk
c:/kam/sw.lnk
c:/kam/obrazky.lnk
ty linky mohou vest kamkoliv, tj. vyhoda je ta, ze jsou v jednom adresari, ac lezi kdekoliv.
zpusob pouziti: alt+f6 a pisu kam chci soubor dat, enter
v konkretnim prikladu nahore by to bylo alt+f6 m enter (m jako mp3)
Skript je napsan tak, ze funguje pouze pri zapnutem presouvani na pozadi.

Code: Select all

  send {tab}
$!F6::      
;filter
  send, ^s

;zadej kam
  KeyWait, Enter, D

;kopiruj
  sleep 150 ;asi treba
  send {tab}
  sleep 50 ;asi treba
  send {F6}{enter}

;v destination se vrat do puvodniho adr.
  send {tab}
  send !{left}
  send {tab}
PS: Prosim Hackera o kontrolu skriptu
Post Reply