- Сообщения
- 7,989
- Решения
- 11
- Реакции
- 6,758
Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
CreateObject("WScript.Shell").Run "explorer ""https://google.ru/search?ie=UTF-8&hl=ru&q=" & Arg & """"
"explorer ""https://google.ru/search?ie=UTF-8&hl=ru&q=" & Arg & """"
"https://google.ru/search?ie=UTF-8&hl=ru&q=" & Arg & ""
On Error Resume Next
if WScript.Arguments.Count = 0 then WScript.Quit
Arg = WScript.Arguments(0)
Arg = LCase(Arg)
Arg = Mid(Arg, InStrRev(Arg, "\") + 1)
Arg = Replace(Arg, " ", "%20")
set ShellApp = CreateObject("Shell.Application")'*/
CreateObject("WScript.Shell").Run "https://duckduckgo.com/?q=" & Arg & ""
On Error Resume Next
if WScript.Arguments.Count = 0 then WScript.Quit
Arg = WScript.Arguments(0)
Arg = LCase(Arg)
Arg = Mid(Arg, InStrRev(Arg, "\") + 1)
Arg = Replace(Arg, " ", "%20")
set ShellApp = CreateObject("Shell.Application")'*/
CreateObject("WScript.Shell").Run "https://duckduckgo.com/?q=" & Arg & ""
On Error Resume Next
if WScript.Arguments.Count = 0 then WScript.Quit
Arg = WScript.Arguments(0)
Arg = Mid(Arg, InStrRev(Arg, "\") + 1)
Arg = Replace(Arg, " ", "%20")
set ShellApp = CreateObject("Shell.Application")'*/
CreateObject("WScript.Shell").Run "https://encrypted.google.com/search?&q=" & Arg & ""
хм ... например ?С https могут быть у некоторых проблемы так что не стоит
отлично! вин 10.rtrtrt, доброе утро.
С работы приеду и сделаю как вам надо,сегодня.
Может ребята меня опередят с ответом)
Система у вас какая только сообщите.
CreateObject("WScript.Shell").Run "explorer ""http://yandex.ru/yandsearch?text=" & Arg & """"
CreateObject("WScript.Shell").Run "explorer ""https://google.ru/search?ie=UTF-8&hl=ru&q=" & Arg & """"
CreateObject("WScript.Shell").Run "explorer ""https://duckduckgo.com/?q=" & Arg & """"