However, the site stopped loading on IE.
Does anyone have a solution?
Code: Select all
#NoEnv
SetBatchLines, -1
#a::
Clipboard := ""
Send, ^c
ClipWait, 2
if ErrorLevel {
MsgBox, 48,, The attempt to copy text onto the clipboard failed.
return
}
WB.Navigate("https://korean.dict.naver.com/kovidict/vietnamese/#/search?query=" Clipboard)
Gui, Show
return
_InitGUI() {
static _ := _InitGUI()
global WB
w := 509
h := 728
x := A_ScreenWidth - w -20
y := A_ScreenHeight/2 - h/2
Gui, +AlwaysOnTop
Gui, Margin, 0, 0
Gui, Add, ActiveX, w%w% h%h% vWB, Shell.Explorer
Gui, Show, Hide x%x% y%y% w%w% h%h%, KO-VI dictionary
ComObjConnect(WB, "WB_")
WB.Silent := true
WB.Navigate("https://korean.dict.naver.com/kovidict/vietnamese/#/search?query=test")
return
GuiEscape:
Gui, Hide
return
}
WB_NavigateComplete2(pDisp, URL, WB) {
divTags := WB.document.all.tags("div")
Loop, % divTags.length
{
if (divTags[A_Index-1].ClassName = "mykeyword_wrap opened")
return "", divTags[A_Index-1].OuterHtml := ""
}
}