金の生る樹

プログラム・ソースの先頭に必ず、御自身のKEYを設定した共通関数を組み込んでください。

#共通処理
Function Get-Header($Query){...}    ☜  共通関数を組み込んで下さい。

#
#        *** 買い付け余力を表示する樹 ***
#
#残高情報（軽量）の取得
Function get_info2(){
    $Url = "https://api.zaif.jp/tapi"
    $Nonce = ([System.DateTime]::UtcNow - (Get-Date("1970, 1, 1"))).TotalSeconds
    $Body = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
    $Body.Add("nonce", "$Nonce")
    $Body.Add("method", "get_info2")
    $Header = Get-Header $Body
    Try{      
        $res = Invoke-RestMethod $Url -Method POST -Headers $Header -Body $Body
        If($res.success -eq 0){
            Write-Host "Oder Error! " $res.error -ForegroundColor Red >> $logfile
            Return 0
        }Else{
            Return $res
        }
    }Catch{
        Write-Host "Oder Error! " $_.ErrorDetails.Message -ForegroundColor Red >> $logfile
        #Start-Sleep -Milliseconds 5000
        $startdate = (Get-Date).AddSeconds(5)
        Return 0
    }
}
Function Get-Asset2($AssetName){
    $res = get_info2
    If($AssetName -eq "deposit"){
        Return $res.return.deposit
    }ElseIf($AssetName -eq "jpy"){
        $Asset = $res.return.funds.($AssetName)
        Return $Asset.ToString("#,0")
    }Else{
        $Asset = $res.return.funds.($AssetName)
        Return $Asset.ToString("#,0.00000000")
    }
}

#板情報の取得
Function depth($pair){
    $Url = "https://api.zaif.jp/api/1/depth/$pair"
    $res = Invoke-RestMethod $Url -Method GET
    return $res
}
Function output_depth($pair){
    $res = depth $pair 
    $ask_length    = $res.asks.length
    $bid_length    = $res.bids.length
    $minAskPrice = 0
    $minAskSize  = 0
    $maxBidPrice = 0
    $maxBidSize  = 0
  # for ($i = 0; $i -lt $ask_length; $i++) {
        $minAskPrice = $res.asks[0][0]
        $minAskSize  = $res.asks[0][1]
  # }
  # for ($i = 0; $i -lt $bid_length; $i++) {
        $maxBidPrice = $res.bids[0][0]
        $maxBidSize  = $res.bids[0][1]
  # }
    $wide  = $minAskPrice - $maxBidPrice

$objPs = New-Object PSCustomObject
    $objPs | Add-Member -NotePropertyMembers @{pair        = $pair}
    $objPs | Add-Member -NotePropertyMembers @{minAskPrice = $minAskPrice}
    $objPs | Add-Member -NotePropertyMembers @{minAskSize  = $minAskSize.ToString("0.####")}
    $objPs | Add-Member -NotePropertyMembers @{maxBidPrice = $maxBidPrice}
    $objPs | Add-Member -NotePropertyMembers @{maxBidSize  = $maxBidSize.ToString("0.####")}
    $objPs | Add-Member -NotePropertyMembers @{wide        = $wide}
    #$objPs | FT * -AutoSize
    return $objPs 
}

Function Loop-Asset() {
#   while($true) {
        cls
        $money = Get-Asset2 "jpy"
        $money = $money + "円"
    #   $res = output_depth $pair 
    #   $ask_price = $res.minAskPrice
    #   $bid_price = $res.maxBidPrice
        Write-Host -NoNewline "運転資金 = $money "; echo ""
    #   Write-Host -NoNewline "買い気配 = $bid_price  "; echo ""
    #   Write-Host -NoNewline "売り気配 = $ask_price  "; echo ""
    #   Start-Sleep -Milliseconds 2000
#   }
}
#Function Loop-Asset()
          Loop-Asset

実行結果です。

プログラム・ソースは画面左上のファイル(F)をクリックし、任意の名前を付けて保存して下さい。

買い付け余力金を表示する樹

仕様

留意事項

プログラム・ソース

ページ切り替え