@echo off
SetLocal EnableExtensions EnableDelayedExpansion
set live=%USERPROFILE%
REG ADD "HKCU\Software\Classes\*\Shell\googlerusearch" /f 2>nul || call :EnablePrivileges
REG ADD "HKCU\Software\Classes\*\Shell\googlerusearch" /f
REG ADD "HKCU\Software\Classes\*\Shell\googlerusearch" /ve /t REG_SZ /d "Найти в "Google"" /f
REG ADD "HKCU\Software\Classes\*\Shell\googlerusearch\command" /f
REG ADD "HKCU\Software\Classes\*\Shell\googlerusearch\command" /ve /d "wscript.exe //nologo \"%live%\KozaN.vbs\" \"%%1\"" /f
for /f "delims=[]" %%N in ('find /n ":UnpackVBS" ^<"%~f0"') do set /a num=%%N
more +%num% >"%live%\KozaN.vbs" <"%~f0"
del "%~dp0Elevating.vbs" 2>nul
echo "Koza Nozdri & SafeZone.cc"
ping 127.0.0.1 -n 6 > nul
Exit
:EnablePrivileges
echo Для установки надстройки требуются повышенные права.
echo Для продолжения нажмите {ENTER}.
pause >nul
Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"1","","runas",1 >"%~dp0Elevating.vbs"
cscript.exe //nologo "%~dp0Elevating.vbs" "%~dpnx0"
Exit
:UnpackVBS
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")
CreateObject("WScript.Shell").Run """C:\29\Firefox-Portable 29.exe"" ""https://www.google.ru/search?ie=UTF-8&hl=ru&q=" & Arg & """"
|
