@ECHO OFF
FOR /F %%I IN ("%0") DO SET BATDIR=%%~dpI ::Set run-location.
mode con cols=150 lines=50 >nul

openfiles > NUL 2>&1
if %ERRORLEVEL% EQU 0 goto choice
echo You need to run this script as Administrator.
pause
exit

:choice
echo MENU:
echo [1] FIREWALL RULES - Install.
echo [2] FIREWALL RULES - Remove.
echo [3] FIREWALL RULES - Show installed rules.
echo [4] NETWORK LOCATION - Change to private.
echo [5] NETWORK LOCATION - Show location.
echo [6] OPENVPN - Autostart service.
echo [7] OPENVPN - Download server config.
echo [8] INFO
echo [9] EXIT
echo ==========================
echo Enter selection and press ENTER key:
set /P c=
if /I "%c%" EQU "1" goto :install
if /I "%c%" EQU "2" goto :remove
if /I "%c%" EQU "3" goto :installedrules
if /I "%c%" EQU "4" goto :changenetworklocation
if /I "%c%" EQU "5" goto :shownetworklocation
if /I "%c%" EQU "6" goto :openvpnauto
if /I "%c%" EQU "7" goto :downlserverconf
if /I "%c%" EQU "8" goto :info
if /I "%c%" EQU "9" goto :exit
pause
cls
goto :choice


:install
set /p Torrentpath= Input path to torrentclient (example: C:\Program Files (x86)\uTorrent\uTorrent.exe)
netsh advfirewall firewall show rule name="Torrentclient - Block incoming (Without vpn)" >nul
if %errorlevel%== 0 (
    echo Rules already installed.
    echo.
) ELSE (
    netsh advfirewall firewall add rule name="Torrentclient - Block incoming (Without vpn)" dir=in action=block program="%Torrentpath%" profile=private,domain >nul
    netsh advfirewall firewall add rule name="Torrentclient - Block outgoing (Without vpn)" dir=out action=block program="%Torrentpath%" profile=private,domain >nul
    echo Rules installed.
)
for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\software\microsoft\windows nt\currentversion\networklist\Profiles" ^| FIND "{"') do set var=%%~nxa&goto :done
:done
reg query "HKEY_LOCAL_MACHINE\software\microsoft\windows nt\currentversion\networklist\Profiles\%var%" /v Category | find "0x1">nul
if %ERRORLEVEL% EQU 0 echo Your network is set to Private. >nul
if %ERRORLEVEL% EQU 1 echo Your network is set to Domain or public. The vpn-rules requires a private network.
pause
cls
goto :choice


:remove
netsh advfirewall firewall show rule name="Torrentclient - Block incoming (Without vpn)" >nul
if %errorlevel%== 1 (
    echo Rules already removed.
    echo.
) ELSE (
    netsh advfirewall firewall delete rule name="Torrentclient - Block incoming (Without vpn)" >nul
    netsh advfirewall firewall delete rule name="Torrentclient - Block outgoing (Without vpn)" >nul
    echo Rules removed.
)
pause
cls
goto :choice


:installedrules
netsh advfirewall firewall show rule name="Torrentclient - Block incoming (Without vpn)"
netsh advfirewall firewall show rule name="Torrentclient - Block outgoing (Without vpn)"
pause
cls
goto :choice


:shownetworklocation
for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\software\microsoft\windows nt\currentversion\networklist\Profiles" ^| FIND "{"') do set var=%%~nxa&goto :done
:done
reg query "HKEY_LOCAL_MACHINE\software\microsoft\windows nt\currentversion\networklist\Profiles\%var%" /v Category | find "0x1">nul
if %ERRORLEVEL% EQU 0 echo Your network is set to Private.
if %ERRORLEVEL% EQU 1 echo Your network is set to Domain or public.
pause
cls
goto :choice


:changenetworklocation
for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\software\microsoft\windows nt\currentversion\networklist\Profiles" ^| FIND "{"') do set var=%%~nxa&goto :done
:done
Reg Add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles\%var%" /V Category /t REG_DWORD /d 1 /f
echo Your network is set to Private, restart your computer.
pause
cls
goto :choice


:openvpnauto
SC QUERY Openvpnservice > NUL
IF ERRORLEVEL 1060 (
	ECHO OPENVPN SERVICE IS NOT INSTALLED.
	pause
	exit
) ELSE (
	SC Config "Openvpnservice" start= AUTO > NUL
)


IF EXIST "%ProgramFiles%\OpenVPN\config\" (
	echo EXISTS > NUL
) ELSE (
	ECHO ERROR CAN'T FIND OPENVPN-DIRECTORY
	pause
	exit
)


IF EXIST "%ProgramFiles%\OpenVPN\config\*.ovpn" (
	GOTO MAKEAUTH
) ELSE (
	ECHO ERROR NO OPENVPN CONFIGURATION FILES. (Download from ovpn and copy to %Programfiles%\openvpn\config)
	pause
	exit
)


:MAKEAUTH
cls
set /p usern= Input your vpn username:
set /p passw= input your vpn password:
cls
echo Username:%usern% Password:%passw% is this correct? [Y] [N]
set /P c=
if /I "%c%" EQU "Y" goto :MAKEFILEA
if /I "%c%" EQU "N" goto :MAKEAUTH
cls

:MAKEFILEA
cls
cd %~dp0 >nul
echo %usern%>auth.txt
echo %passw%>>auth.txt
icacls "auth.txt" /setowner %username% /T /C >nul
copy auth.txt "%ProgramFiles%\OpenVPN\config" >nul
del auth.txt >nul
set ThisScriptsDirectory=%~dp0
set PowerShellScriptPath=%ThisScriptsDirectory%ovpn_auth.ps1
PowerShell -NoProfile -ExecutionPolicy Bypass -Command "& {Start-Process PowerShell -ArgumentList '-NoProfile -ExecutionPolicy Bypass -File ""%PowerShellScriptPath%""' -Verb RunAs}";
echo Installing...
timeout 10 >nul
cls
echo OPENVPN is now running as autostart service. Restart your computer.
pause
cls
goto :choice

:DOWNLSERVERCONF
cls
echo [1] Sweden servers UDP
echo [2] Sweden servers TCP
echo [3] Germany servers UDP
echo [4] Germany servers TCP
echo [5] Netherland servers UDP
echo [6] Netherland servers TCP
echo [7] Canada servers UDP
echo [8] Canada servers TCP

echo Select serverconfig and press ENTER key:
set /P d=
if /I "%d%" EQU "1" set addr=https://files.ovpn.se/windows/ovpn-se.ovpn & set addrfile=ovpn-se.ovpn & GOTO :INSTALLSERVERCONFIG
if /I "%d%" EQU "2" set addr=https://files.ovpn.se/windows/ovpn-se-tcp.ovpn & set addrfile=ovpn-se-tcp.ovpn & GOTO :INSTALLSERVERCONFIG

if /I "%d%" EQU "3" set addr=https://files.ovpn.se/windows/ovpn-de.ovpn & set addrfile=ovpn-de.ovpn & GOTO :INSTALLSERVERCONFIG
if /I "%d%" EQU "4" set addr=https://files.ovpn.se/windows/ovpn-de-tcp.ovpn & set addrfile=ovpn-de-tcp.ovpn & GOTO :INSTALLSERVERCONFIG

if /I "%d%" EQU "5" set addr=https://files.ovpn.se/windows/ovpn-nl.ovpn & set addrfile=ovpn-nl.ovpn & GOTO :INSTALLSERVERCONFIG
if /I "%d%" EQU "6" set addr=https://files.ovpn.se/windows/ovpn-nl-tcp.ovpn & set addrfile=ovpn-nl-tcp.ovpn & GOTO :INSTALLSERVERCONFIG

if /I "%d%" EQU "7" set addr=https://files.ovpn.se/windows/ovpn-ca.ovpn & set addrfile=ovpn-ca.ovpn & GOTO :INSTALLSERVERCONFIG
if /I "%d%" EQU "8" set addr=https://files.ovpn.se/windows/ovpn-ca-tcp.ovpn & set addrfile=ovpn-ca-tcp.ovpn & GOTO :INSTALLSERVERCONFIG


:installserverconfig
cls
echo Installing server configuration wait...
bitsadmin.exe /transfer "ovpndowload" %addr% "%userprofile%\desktop\%addrfile%" >nul
pause
cls
goto :choice

:info
cls
echo FIREWALL RULES - Install.
echo Installs two Windows firewall rules.
echo Which prevents torrent client to send and receive traffic if vpn-client connection drops.
echo.
echo FIREWALL RULES - Remove.
echo Removes installed rules.
echo.
echo FIREWALL RULES - Show installed rules.
echo Show installed rules settings.
echo.
echo NETWORK LOCATION - Change to private.
echo Change your network ethernet adapter from Public/domain to Private.
echo The firewall "kill-switch" only works if your regular ethernet adapter is set to Private.
echo and your tap-adapter (Vpn-connection) is set to Public.
echo.
echo NETWORK LOCATION - Show location.
echo Show your network location.
echo.
echo OPENVPN - Autostart service.
echo Set up OPENVPN client as autostart service
echo Auto login OpenVPN without prompt for username and password.
echo.
pause
cls
goto :choice