Code: Select all
#if WinActive("ahk_class PotPlayer64")
~LButton::
WinWaitActive, ahk_class MozillaWindowClass
sleep,1000
Loop, 6 ;6x > 200% zoom
{
Send, ^{+}
}
;_______ vocliste________
clipboard := ""
send ^c
sleep 50 ; <--- this could prevent possible issues
clipwait, 1 ; <------ prevents infinite wait time
voc1 := clipboard
;_________________________
Send {Right}
Send *
Send {Tab} ;obere 3z für > markierung/liste raus aus eingabefeld von dict.cc
FileAppend, %voc1%`n, %A_ScriptDir%\%ibox1% - oe.txt ;moegl. nur eng vocs zu tracken
#IfWinActive
LOOP{
SetTitleMatchMode,2
If WinActive("Deutsch-Englisch")
{
;Send ^+{Escape}
Gosub, back2pot
break
}
}
return
back2pot:
SetTitleMatchMode,2
If WinActive("Deutsch-Englisch")
clipboard := ""
send ^c
sleep 50
clipwait, 1
voc2 := clipboard
FileAppend, %voc1%`t%voc2%`n, %A_ScriptDir%\%ibox1%.txt, UTF-8
;____________________________
;> seite wiederherst./tab löschen + zurück zum potpalyer
Send ^0 ;normalgröße in ff
Send ^w ; schließt letzten tab
Process, Exist, potplayermini64.exe
WinActivate, ahk_pid %ErrorLevel%
MouseMove, 500, 500
return
NumpadDel::
;If WinActive ("ahk_class MozillaWindowClass")
;{
#if WinActive("ahk_class MozillaWindowClass")
;wenn player/fenster aktiv dann hk "sperren" > sonst kackt ab wenn auversehen im player gedruckt!
; > eerkennen von innen/außen, local/global keys
Loop, 6 ;6x > 200% zoom
{
Send, ^{+}
}
;_______ vocliste________
clipboard := ""
send ^c
sleep 50 ; <--- this could prevent possible issues
clipwait, 1 ; <------ prevents infinite wait time
voc1 := clipboard
;_________________________
Send {Right}
Send *
Send {Tab} ;obere 3z für > markierung/liste raus aus eingabefeld von dict.cc
FileAppend, %voc1%`n, %A_ScriptDir%\%ibox1% - oe.txt ;moegl. nur eng vocs zu tracken
return
#IfWinActive
;}
;else If WinActive ("hk_class PotPlayer64")
;{
#if WinActive("ahk_class PotPlayer64")
msgbox, im palyer
return
#IfWinActive
;}
NumpadPgDn::
#IfWinActive ("ahk_class MozillaWindowClass")
;If WinActive ("ahk_class MozillaWindowClass")
;{
;_________________voclist
clipboard := ""
send ^c
sleep 50
clipwait, 1
voc2 := clipboard
FileAppend, %voc1%`t%voc2%`n, %A_ScriptDir%\%ibox1%.txt, UTF-8 ;default voclist.txt, fileappend macht keinen NEUEN Ordner, wenn dieser nicht bereits existiert!
;____________________________
;> seite wiederherst./tab löschen + zurück zum potpalyer
Send ^0 ;normalgröße in ff
Send ^w ; schließt letzten tab
Process, Exist, potplayermini64.exe
WinActivate, ahk_pid %ErrorLevel%
MouseMove, 500, 500
return
;}
;else If WinActive ("hk_class PotPlayer64")
;{
#if WinActive("ahk_class PotPlayer64")
msgbox, im palyer
return
#IfWinActive
;}
^o::
InputBox, ibox1, voclist, Dateinamen eingeben:,,w,128,x,y,,,voclist
return
^i::
InputBox, ibox2, phraser, enter word/phrase:,,w,128,x,y,,,
clipboard := ""
Clipboard := ibox2
sleep 50
clipwait, 1
run, https://www.dict.cc/?s=%ibox2%
;clipboard danach cleanen/restoren?
return