JavaScript отключён. Чтобы полноценно использовать наш сайт, включите JavaScript в своём браузере.

Ответить в теме

Сообщение: [QUOTE="vavun, post: 223270, member: 7888"] [USER=5381]Koza Nozdri[/USER], вроде да ) На данный момент у меня два поисковика. Основной duckduckgo и google "спрятан под shift" Скрипты почти без изменений [code=vbnet] 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 & "" [/code] [code=vbnet] 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 & "" [/code] Больше проблем не было. [/QUOTE]