Const HTTPCU="HKCU\Software\Classes\http\shell\open\command\"
Dim WshShell, ShellRun, pth2

Set WshShell = CreateObject("WScript.Shell")
ShellRun = WshShell.RegRead(HTTPCU)

pth2 = Replace(ShellRun, "%1", _
"file:///" & WshShell.CurrentDirectory & "/Exploration1/theme/cheetah.html?c1lang=en&c1id=en0600000000&c2lang=&c2id=&chapter=1")

WshShell.Run pth2

@echo off
setlocal
chcp  1251 
set url=file:///%~dp0Exploration1/theme/cheetah.html
set url=%url%?c1lang=en^&c1id=en0600000000^&c2lang=^&c2id=^&chapter= 1 
set HTTPCU=HKCU\Software\Classes\http\shell\open\command /ve
@for /f "tokens=3" %%b in ('reg query %HTTPCU%^|find "REG_SZ"') do %%b "%url%"
endlocal
@echo on
exit /b