Difference between revisions of "Экспорт данных"

Revision as of 12:58, 8 September 2016

Для получения данных по запросу вы можете использовать УРЛ

https://baozam.net/index.php?action=csv&hosts=<HOSTID>&period=<PERIOD_IN_SECONDS>&stime=<START_UNIXTIME>&step=<STEP>

для аутентификации необходимо передать логин и пароль в (только) POST.

STIME - unixtime с которого начинается период. Если = 0, то начало периода будет отсчитано от текущего времени.

STEP - целое число секунд. или предопределенные значения

1. g1h - почасово
2. g1d - по дням
3. g1w - по неделям
4. g1m - по месяцам

CURL пример

HOST=baozam.net
DEVICE=
PERIOD=$(( 7 * 24 * 3600 ))
STIME=0
STEP=g1h
USER=
PWD=

curl "https://$HOST/index.php?action=csv&hosts=$DEVICE&period=$PERIOD&stime=$STIME&step=$STEP" \
    -H "Host: $HOST" --compressed \
    -d "name=$USER" -d "password=$PWD"

VB script

' This Sub downloads the FILE specified in myUrl to the file specified in mySaveTo.

Const myDevice = "<HOSTID>", myUser = "<USR>", myPwd = "<PASSWORD>"
Const myHost = "baozam.net", mySaveTo = "D:\baozam.csv"
Const myPeriod = "259200", mySTime = "0", myStep = "g1d"

HTTPDownload "https://" + myHost + "/index.php?action=csv&hosts=" + myDevice + "&period=" + myPeriod + "&stime=" + mySTime + "&step=" + myStep
Sub HTTPDownload( myUrl )

' Based on a script found on the Thai Visa forum
' http://www.thaivisa.com/forum/index.php?showtopic=21832
' by Rob van der Woude
' http://www.robvanderwoude.com/vbstech_internet_download.php

    ' Standard housekeeping
    Dim i, objFile, objFSO, objHTTP
    Const ForReading = 1, ForWriting = 2, ForAppending = 8

    ' Create a File System Object
    Set objFSO = CreateObject( "Scripting.FileSystemObject" )

    ' Create the target file
    Set objFile = objFSO.CreateTextFile( mySaveTo, True, True ) ' overwrite, unicode

    ' Create an HTTP object
    Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )

    ' Download the specified URL
    objHTTP.Open "POST", myUrl, False
    'objHTTP.Option(4) = &H3300 'WinHttpRequestOption_SslErrorIgnoreFlags = 0x3300      
    objHTTP.setRequestHeader "myHost", myHost
    objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objHTTP.Send "name=" + myUser + "&password=" + myPwd

    ' Write the downloaded byte stream to the target file
    For i = 1 To LenB( objHTTP.ResponseBody )
        objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )
    Next

    ' Close the target file
    objFile.Close( )
End Sub

OpenSSL

openssl s_client -connect baozam.net:443
...