Page 1 of 1
[OT] autohotkey-usefull scripts list
Posted: 2008-05-27, 10:12 UTC
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","")
Posted: 2008-05-27, 11:56 UTC
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
Posted: 2008-05-27, 11:57 UTC
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
Posted: 2008-05-27, 12:00 UTC
by Hacker
Zatvorit aktivne okno (namiesto Alt-F4, funguje aj s konzolovym oknom):
Odstranit formatovanie z textu v clipboarde a pastnut:
Code: Select all
$^+v::
Clipboard = %Clipboard%
Send, ^v
Return
Roman
Posted: 2008-08-03, 02:34 UTC
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
Posted: 2009-01-19, 12:46 UTC
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
}
Posted: 2009-03-16, 15:50 UTC
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}
}
}
Posted: 2009-07-31, 09:46 UTC
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
Posted: 2010-06-02, 09:20 UTC
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