5

Я пытаюсь проверить правильность некоторых данных на медицинском веб-сайте. Моя цель состоит в том, чтобы выделить отдельные фразы на этом сайте, а затем перепроверить исследования в Википедии, 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. Я не программист, и новичок в этом простом языке / объяснении очень помог бы.

2 ответа2

1

Для Овидия это было бы

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

Глядя на educus, он использует POST для отправки поиска - не уверен, что AutoHotkey будет полезен. Постараюсь покопаться и обновить.

0
Winwait educus

Это не будет работать по трем причинам:

  • Нет гарантии, что окно Educus будет открыто последним.

    Это легко исправить, разрешив скрипту "спать" перед открытием последнего окна.

  • Название www.educus.com является Free Online ... Codes Search .

  • Даже когда окно активно, нет гарантии, что поле ввода уже выбрано. Вы должны как-то ждать загрузки страницы.

    Один из способов добиться этого - попытаться скопировать отправленную текстовую строку в буфер обмена и повторить попытку в случае сбоя.

    Тем не менее, это производит раздражающий звуковой сигнал каждый раз. AutoHotkey может временно отключить звуки, но вы должны запустить его в режиме совместимости (Windows XP с пакетом обновления 3), если вы используете Vista или выше.

Попробуй это:

#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 + Z. Ctrl + Z используется для отмены изменений в большинстве приложений.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .