Gerne
![Smile :-)](./images/smilies/icon_smile.gif)
AutoHotkey mag ich viel mehr, wegen autotext und hotkeys, und sieh da, SendMsg
![Wink ;-)](./images/smilies/icon_wink.gif)
Moderators: white, Hacker, Stefan2
Code: Select all
PostMessage, 1075, 2008, 0,, ahk_class TTOTAL_CMD ;copy
PostMessage, 1075, 2009, 0,, ahk_class TTOTAL_CMD ;paste
Send, {NumpadAdd}
Send, {DEL}
Send, >Kopie von
Send, {ENTER}
Send, ^m
Send, {F2}
Send, {DOWN}
Send, {ENTER}
Send, ^a
Send, [N11-266]-ergänzung
Send, {ENTER}
WinClose, Mehrfach-Umbenenn-Tool
????!!! Interessant, werd ich probieren.Ausserdem ist mir aufgefallen, dass die Namen der markierten Dateien beim Aufruf des MUT per PostMessage nicht an dasselbe übergeben werden.
Code: Select all
WinClose, Mehrfach-Umbenenn-Tool
Code: Select all
WinClose, ahk_class TMultiRename
Geht leider auch nicht.Stattsollte vielleichtCode: Select all
WinClose, Mehrfach-Umbenenn-Tool
gehn, und das ist sprachen-unabhängig.Code: Select all
WinClose, ahk_class TMultiRename
Code: Select all
SetKeyDelay, 50
Code: Select all
;SetKeyDelay, 111
InputBox, InputErweiterung, Suffix?, Dateinamen erweitern mit?,,,,,,,,Kopie
;Send, {ENTER}
if ErrorLevel <> 0
{
Exit
}
KopieCounter = 1
PostMessage, 1075, 3100, 0,, ahk_class TTOTAL_CMD ;cm_CopySamepanel=3100
Send, *.*.üöTä376
Send, {ENTER}
WinWaitClose, ahk_class TDLG2FILEACTIONMIN
PostMessage, 1075, 521, 0,, ahk_class TTOTAL_CMD ;cm_SpreadSelection=521
Send, {DEL}
Send, *.üöTä376
Send, {ENTER}
PostMessage, 1075, 2400, 0,, ahk_class TTOTAL_CMD ;cm_MultiRenameFiles=2400
Send, {F2}
Send, {DOWN}
Send, {ENTER}
Send, {TAB}
Send, {DEL}
Send, {TAB}
Send, (.*)\.(.*)$
Send, {TAB}
Send, $1(%InputErweiterung%%KopieCounter%).$2
Send, {TAB}
Send, {SPACE}
Send, {ENTER}
WinWaitClose, ahk_class TDLG2FILEACTIONMIN
Error?:
IfWinExist, ahk_class #32770
{
EnvAdd, KopieCounter, 1
Send, {SPACE} ;click ok
ControlFocus, Edit2, ahk_class TMultiRename
ControlSetText, Edit2, $1(%InputErweiterung%%KopieCounter%).$2, ahk_class TMultiRename
Send, {DEL}
Send, $
Send, {ENTER}
WinWaitClose, ahk_class TDLG2FILEACTIONMIN
Goto, Error?
}
WinClose, ahk_class TMultiRename
MsgBox, 36, Kopierte Dateien markieren?, Kopierte Dateien markieren?
IfMsgBox, Yes
{
PostMessage, 1075, 521, 0,, ahk_class TTOTAL_CMD ;cm_SpreadSelection=521
Send, {DEL}
Send, *(%InputErweiterung%%KopieCounter%)*
Send, {ENTER}
}