突出显示某些网站文本然后自动搜索多个网站

突出显示某些网站文本然后自动搜索多个网站

我正在尝试交叉检查医学网站上的一些信息是否正确。我的目标是突出显示此网站上的选定短语,然后交叉检查 wikipedia、pubmed、ovid、Google 和 educus 上的研究,以确保我们告诉人们的信息是正确的。我一直在单独复制/粘贴,但我正在寻找一种方法来加快此任务,即复制然后按热键并让网站自动搜索并在单独的选项卡中打开。我试过 Autohotkey。

^z::

send ^c

clipwait

run "http://en.wikipedia.org/wiki/Special:Search?search=%clipboard%&go=Go"

run "http://www.ncbi.nlm.nih.gov/pubmed?term=%clipboard%"

run "http://www.Google.com/search?hl=en&q=%clipboard%&btnG=Search"

run http://www.educus.com/

Winwait educus

Sendinput %clipboard% {Return}

return

我似乎不知道如何让这个适用于 Educus 和 Ovid。我不是程序员,也是这方面的新手,所以简单的语言/解释会很有帮助。

答案1

对于奥维德来说

run "http://www.ovid.com/cgi-bin/texis.cgi/webinator/search5/?pr=newovid2&order=r&query=%clipboard%&submit=Submit"  

查看 educus,它使用 POST 提交搜索 - 不确定 AutoHotkey 是否有用。将尝试深入研究并更新。

答案2

Winwait educus

这种方法行不通,原因有三:

  • 无法保证 Educus 窗口最后打开。

    通过让脚本在打开最后一个窗口之前“休眠”可以轻松解决这个问题。

  • 标题www.educus.comFree Online ... Codes Search

  • 即使窗口处于活动状态,也不能保证输入字段已被选中。您必须以某种方式等待页面加载。

    实现此目的的一种方法是尝试将发送的文本字符串复制到剪贴板,如果失败则重试。

    然而,每次都会产生恼人的哔哔声。AutoHotkey暂时调低声音,但如果您使用的是 Vista 或更高版本,则必须在兼容模式(Windows XP Service Pack 3)下运行它。

尝试这个:

#z::
    Backup := ClipboardAll
    Send, ^c
    ClipWait
    Query := Clipboard
    Clipboard =
    Run, http://en.wikipedia.org/wiki/Special:Search?search=%Query%&go=Go
    Run, http://www.ncbi.nlm.nih.gov/pubmed?term=%Query%
    Run, http://www.google.com/search?hl=en&q=%Query%&btnG=Search
    Run, http://www.ovid.com/cgi-bin/texis.cgi/webinator/search5/?pr=newovid2&order=r&query=%Query%&submit=Submit
    Sleep, 100
    Run, http://www.educus.com/
    SoundGet, Volume
    SoundSet, -100
    Loop
    {
        WinWaitActive, Free Online
        SendInput, %Query%+{Home}^c{Right}
        Sleep, 1000
        if Clipboard = %Query%
            Break
    }
    SoundSet, %Volume%
    Clipboard := Backup
    Backup =
return

请注意,我还添加了几行代码来备份剪贴板。这样,按下组合键之前存储在剪贴板中的所有内容都将被恢复。这是可选的,可以删除。

我还将组合键更改为Win+ ZCtrl+Z用于在大多数应用程序中撤消更改。

相关内容