hilink api batch ussd token

@echo off &:: HHL_token_test.bat
setlocal
set modIPAdr=192.168.8.1

call :getHHLToken %modIPAdr%
echo wylaczenie transmisji
curl -X POST -d "<?xml version="1.0" encoding="UTF-8"?><request><dataswitch>0</dataswitch></request>" http://%modIPAdr%/api/dialup/mobile-dataswitch %_SID% %_Token% -H "Content-Type: text/xml" >nul
if "%~1"=="" echo.OK

call :getHHLToken %modIPAdr%
echo tryb 4G-3G
curl -X POST -d "<?xml version="1.0" encoding="UTF-8"?><request><NetworkMode>0302</NetworkMode><NetworkBand>3FFFFFFF</NetworkBand><LTEBand>7FFFFFFFFFFFFFFF</LTEBand></request>" http://%modIPAdr%/api/net/net-mode %_SID% %_Token% -H "Content-Type: text/xml"  >nul
if "%~1"=="" echo.OK

call :getHHLToken %modIPAdr%
echo register
curl -X POST -d "<?xml version="1.0" encoding="UTF-8"?><request><Mode>0</Mode><Plmn></Plmn><Rat></Rat></request>" http://%modIPAdr%/api/net/register %_SID% %_Token% -H "Content-Type: text/xml"  >nul
if "%~1"=="" echo.OK

call :getHHLToken %modIPAdr%
echo *****Stan konta*****
curl -X POST -d "<request><content>*101#</content><codeType></codeType><timeout>5</timeout></request>" http://%modIPAdr%/api/ussd/send %_SID% %_Token% -H "Content-Type: text/xml"  >nul
if "%~1"=="" echo.OK
call :usdchecker
curl -X GET http://%modIPAdr%/api/ussd/get %_SID% %_Token%
if "%~1"=="" echo.OK


call :getHHLToken %modIPAdr%
echo *****Stan pakietu danych*****
curl -X POST -d "<request><content>*107#</content><codeType></codeType><timeout>5</timeout></request>" http://%modIPAdr%/api/ussd/send %_SID% %_Token% -H "Content-Type: text/xml"  >nul
if "%~1"=="" echo.OK
call :usdchecker
curl -X GET http://%modIPAdr%/api/ussd/get %_SID% %_Token%
if "%~1"=="" echo.OK

call :getHHLToken %modIPAdr%
echo *****Stan danych LTE*****
curl -X POST -d "<request><content>*111*480*3#</content><codeType></codeType><timeout>5</timeout></request>" http://%modIPAdr%/api/ussd/send %_SID% %_Token% -H "Content-Type: text/xml"  >nul
if "%~1"=="" echo.OK
call :usdchecker
curl -X GET http://%modIPAdr%/api/ussd/get %_SID% %_Token%
if "%~1"=="" echo.OK

call :getHHLToken %modIPAdr%
echo *****Aktywacja danych LTE*****
curl -X POST -d "<request><content>*111*480*1#</content><codeType></codeType><timeout>5</timeout></request>" http://%modIPAdr%/api/ussd/send %_SID% %_Token% -H "Content-Type: text/xml"
if "%~1"=="" echo.OK
call :usdchecker
curl -X GET http://%modIPAdr%/api/ussd/get %_SID% %_Token%
if "%~1"=="" echo.OK

call :getHHLToken %modIPAdr%
echo *****Restart MODEMU*****
curl -X POST -d "<?xml version="1.0" encoding="UTF-8"?><request><Control>1</Control></request>" http://%modIPAdr%/api/device/control %_SID% %_Token% -H "Content-Type: text/xml"  >nul
if "%~1"=="" echo.OK
echo Poczekaj 5 sekund, wylacz i wlacz zasilanie calego routera
ping -n 5 127.0.0.1 >nul
echo Poczekaj az komputer polaczy sie z WiFi i wcisnij dowolny klawisz
ping -n 20 127.0.0.1 >nul

:pinger
ping -n 1 %modIPAdr% | find "TTL=" >nul
if errorlevel 1 (
    goto pinger
) else (
    goto czterygie
)

:czterygie
call :getHHLToken %modIPAdr%
echo 4G
curl -X POST -d "<?xml version="1.0" encoding="UTF-8"?><request><NetworkMode>03</NetworkMode><NetworkBand>3FFFFFFF</NetworkBand><LTEBand>7FFFFFFFFFFFFFFF</LTEBand></request>" http://%modIPAdr%/api/net/net-mode %_SID% %_Token% -H "Content-Type: text/xml"  >nul
if "%~1"=="" echo.OK

call :getHHLToken %modIPAdr%
echo register
curl -X POST -d "<?xml version="1.0" encoding="UTF-8"?><request><Mode>0</Mode><Plmn></Plmn><Rat></Rat></request>" http://%modIPAdr%/api/net/register %_SID% %_Token% -H "Content-Type: text/xml"  >nul
if "%~1"=="" echo.OK

call :getHHLToken %modIPAdr%
echo Wlaczenie transmisji
curl -X POST -d "<?xml version="1.0" encoding="UTF-8"?><request><dataswitch>1</dataswitch></request>" http://%modIPAdr%/api/dialup/mobile-dataswitch %_SID% %_Token% -H "Content-Type: text/xml"  >nul
if "%~1"=="" echo.OK
pause


endlocal
goto :eof

:usdchecker
setlocal EnableDelayedExpansion EnableExtensions
curl -X GET http://%modIPAdr%/api/ussd/status %_SID% %_Token% -s  | find "<result>0</result>" >nul
if errorlevel 1 (
    ping -n 1 127.0.0.1 >nul
    goto usdchecker
)
endlocal
goto :eof

:getHHLToken &::[adres IP]:zwraca zmienne %_Token% oraz %_SID% z Huawei HiLink do wykorzystania z curl lub wget, przyjmując opcjonalnie adres IP modemu
setlocal
rem przypisanie zmiennej HHL adresu modemu
SET HHL=hi.link
rem przyjmij pierwszy parametr jako adres IP modemu lecz pierw zweryfikuj
if "%~1" neq "" if /i "%~1" neq "%HHL%" echo. %~1 |findstr /r /c:"^ *[0-9]*[0-9]\.[0-9]*[0-9]\.[0-9]*[0-9]\.[0-9]*[0-9] *$" >nul &&set HHL=%~1
rem inicjalizacja niepustych zmiennych
set "_SID= "
set "_Token= "
rem wyczyść zmienną z adresem ze spacji
set HHL=%HHL: =%
set _c=curl -q -s -X GET --stderr nul --max-time 5
rem pobranie tokena oraz ID sesji i przypisanie wartości
for /f "tokens=1-4 delims=<>" %%a in ('%_c% http://%HHL%/api/webserver/SesTokInfo ^|find /i "Info>"') do (
rem if /i "%%~c"=="/SesInfo" - sprawdza czy zmienna nie przekroczyła linii
if /i "%%~a"=="SesInfo" if /i "%%~c"=="/SesInfo" set _SID=--header "Cookie: %%b"
if /i "%%~a"=="TokInfo" if /i "%%~c"=="/TokInfo" set _Token=--header "__RequestVerificationToken: %%b"
rem jeżeli przed pierwszym znakiem < lub > coś występuje:
if /i "%%~b"=="SesInfo" if /i "%%~d"=="/SesInfo" set _SID=--header "Cookie: %%c"
if /i "%%~b"=="TokInfo" if /i "%%~d"=="/TokInfo" set _Token=--header "__RequestVerificationToken: %%c"
)

rem jeśli nowy token nie istnieje uzyskaj stary:
if "%_Token:~0,2%"==" " for /f "tokens=1-3 delims=<>" %%a in ('%_c% http://%HHL%/api/webserver/token ^|find /i "token"') do (
if /i "%%~a"=="token" set _Token=--header "__RequestVerificationToken: %%b"
if /i "%%~b"=="token" set _Token=--header "__RequestVerificationToken: %%c"
)

set _exit=0
if "%_SID:~0,2%"==" " set /a "_exit+=2"
if "%_Token:~0,2%"==" " set /a "_exit+=1"
endlocal &(set "_SID=%_SID%" )&(set "_Token=%_Token%" )& exit /b %_exit%
goto :eof