Как создать новую команду «использовать Chrome, чтобы открыть URL-адрес для поиска слова, чтобы удобно выучить английский язык онлайн» в Windows

Question

мои друзья. Вот мои требования:

URL состоит из двух частей:

• Первая часть исправлена:

https://www.oxfordlearnersdictionaries.com/definition/english/hello_1?q=

• другая часть - это любое слово, которое я хочу найти. Например, «привет»

теперь я могу открыть веб-страницу словаря только с помощью этой команды

chrome https://www.oxfordlearnersdictionaries.com/definition/english/hello_1?q=

, но мне нужно ввести полный URL-адрес, чтобы выполнить поиск за один шаг.

chrome https://www.oxfordlearnersdictionaries.com/definition/english/hello_1?q=hello

Но проблемы заключаются в следующем:

• команда слишком длинная, если я могу использовать псевдоним, это было бы здорово. Например, dict hello.
• каждый раз, когда слово, которое мне нужно найти, отличается. Не могли бы вы помочь мне реализовать этот инструмент словаря командной строки? Любая помощь будет очень ценной.

Answer 1

В пакете вы можете сделать что-то подобное:

@echo off
Mode 70,4 & color 0A
Title Open dictionary web page by input 
Set "URL=https://www.oxfordlearnersdictionaries.com/definition/english/"
:Main
cls
echo(
echo Type the word to search in dictionary
set /P "Dict="
Start "" Chrome "%URL%%Dict%"
TimeOut /T 1 /NoBreak>nul
Goto:Main

Answer 2

Попробуйте следующий код VBScript:

Dim sURL
Dim sSearch 
Dim objShell

sSearch = "hello"
sURL = "https://www.oxfordlearnersdictionaries.com/definition/english/" & sSearch & "_1?q=" & sSearch

set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "chrome.exe", sURL, "", "", 1

Если вы хотите автоматизировать это, вы можете сделать из него Sub и вызывать его, когда вы будете перебирать свой словарь:

Dim iContinue
Dim sSearchString

sSearchString = "hello"
iContinue = vbYes

Do While iContinue = vbYes
    sSearchString = InputBox("Enter search string:", "Dictionary Lookup", sSearchString) 
    Search sSearchString
    iContinue = MsgBox("Would you like to make another search?", vbYesNo)
Loop

Sub Search(p_sSearchString)
    Dim sURL
    Dim objShell

    sURL = "https://www.oxfordlearnersdictionaries.com/definition/english/" & p_sSearchString & "_1?q=" & p_sSearchString

    Set objShell = CreateObject("Shell.Application")
    objShell.ShellExecute "chrome.exe", sURL, "", "", 1

End Sub