f3:: add to the bottom area
f4:: add to the top area
f3 doesn't work, showing the tooltip.
f4 works well.
How can I fix to add the text to the bottom area?
Thanks for any help in advance.
Code: Select all
GroupAdd, CutGroup, ahk_exe, word.exe
GroupAdd, CutGroup, ahk_exe, hwp.exe
GroupAdd, CutGroup, ahk_exe, notepad.exe
GroupAdd, CutGroup, ahk_exe, notepad++.exe
GroupAdd, CutGroup, ahk_exe, TedNpad.exe
GroupAdd, CutGroup, ahk_exe, sublime_text.exe
GroupAdd, CutGroup, ahk_exe, evernote.exe
GroupAdd, CutGroup, ahk_exe, memoit.exe
GroupAdd, CutGroup, ahk_exe, onenote.exe
return
Code: Select all
f3:: ;,::
Clipboard:= ""
if WinActive("Google Docs") or WinActive("ahk_group CutGroup")
Sendinput, {Home}{Shift Down}{End}{Shift Up}^x{Del}{End}
else
SendInput, ^c
ClipWait, 0
Str := Clipboard
Sleep 300
FileAppend, %Str%`n, C:\공통\source\AHK\data_paste.txt, UTF-8
ToolTip, Saved to data_paste.txt, 250, 500
Sleep, 1500
ToolTip
Return
Code: Select all
f4:: ; !.:: ;최신내용을 상단에 복사하기
Clipboard := ""
if WinActive("Google Docs") or WinActive("ahk_group CutGroup")
Sendinput {Home}{Shift Down}{End}{Shift Up}^x{Del}{End} ;{BackSpace}{End} ;지우고 위로 올라가기
;Send ^x
else
SendInput, ^c
ClipWait 0
if (ErrorLevel)
return
oFile := FileOpen("C:\공통\source\AHK\data_paste.txt", 0x3, "UTF-8")
prev := oFile.Read()
oFile.Length := 3
oFile.Write(Clipboard "`n" prev)
oFile.Close()
ToolTip Saved to data_paste.txt, 250, 500
Sleep 1500
ToolTip
Return