金の生る樹

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

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

#
#        *** クリック買い注文をする樹 ***
#
function Convert-UnixTimeToDateTime($unixTimestamp){
 # $origin = New-Object -Type DateTime -ArgumentList 1970, 1, 1, 0, 0, 0, 0
 # $origin.AddSeconds($unixTime)

#  $unixTimestamp = <unix timestampの値></p>
    $utcDate = ([DateTime]::Parse("1970/01/01 00:00:00")).addSeconds($unixTimestamp);
    $localDate = [TimeZoneInfo]::ConvertTimeFromUtc($utcDate, [TimezoneInfo]::Local);
    return $localDate
}

#現物公開API

#現在の終値を取得
Function last_price($pair){
    $Url = "https://api.zaif.jp/api/1/last_price/$pair"
    $res = Invoke-RestMethod $Url -Method GET
    return $res
}

#板情報の取得
Function depth($pair){
    $Url = "https://api.zaif.jp/api/1/depth/$pair"
    $res = Invoke-RestMethod $Url -Method GET
    return $res
}

# 現物取引API関数

#残高情報（軽量）の取得
Function get_info2($AssetName){
    $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 "error"
        }Else{
            Return $res
        }
    }Catch{
        Write-Host "Oder Error! " $_.ErrorDetails.Message -ForegroundColor Red >> $logfile
        #Start-Sleep -Milliseconds 5000
        $startdate = (Get-Date).AddSeconds(5)
        Return "error"
    }
}
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 trade($pair, $Side, $Price, $Amount){
    $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",  "trade")            
    $Body.Add("currency_pair", $pair)
    $Body.Add("action",  "$action")
    $Body.Add("price",   "$Price")
    $Body.Add("amount",  "$Amount")
    $Body.Add("comment", "buy2self")
    $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
            Return "error"
        }Else{
            Return $res
        }
    }Catch{
        Write-Host "Oder Error! " $_.ErrorDetails.Message -ForegroundColor Red
        Return "error"
    }
}
Function Set-trade($pair, $action, $Price, $Amount){
    $res = trade $pair $action $Price $Amount
    if($res -eq "error"){
        exit
    }
    return $res.return
}

#買い気配＆売り気配
Function output_depth($pair,$limit){
    $res = depth $pair 
    $ask_length    = $res.asks.length
    echo "ask_length = $ask_length"
    $bid_length    = $res.bids.length
    echo "bid_length = $bid_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
    return $objPs 
}

#購入処理

Function buy-quick($pair,$buy_price,$buy_coins){
    echo "コインを購入する 開始"
    $res = last_price  $pair                     #現在の終値を取得
    $act_price = $res.last_price
    $res = output_depth "btc_jpy" $null
    $ask_price = $res.minAskPrice                 #売り要求指値
    
    if ($buy_price -eq $null) {
        $buy_price = $ask_price
    }else{
        $buy_price = $buy_price
    }

$res = Get-Asset2 "jpy"     #残高を取得
    Write-Host -NoNewline "保有資金 = $res"; echo "円"
    $res = get_info2
    $funds = $res.return.funds.jpy

if ($buy_coins -eq $null) {
        $buy_coins = $funds / $buy_price
        if ($buy_coins -lt 0.001) {
            $x = New-Object -ComObject SAPI.SpVoice
            $x.Speak("購入資金が不足しています。")
            echo "購入資金が不足しています。"
            exit
        }
    }else{
        $buy_coins = $buy_coins
        if ($buy_coins * $buy_price -gt $funds) {
            $x = New-Object -ComObject SAPI.SpVoice
            $x.Speak("購入資金が不足しています。")
            echo "購入資金が不足しています。"
            exit
        }
    }

Switch ($pair) {
        "btc_jpy"  { $asset = "btc";  [float]$unit = 0.001; $column = "#,0"}
        "xym_jpy"  { $asset = "XYM";  [float]$unit = 0.1;   $column = "#,0.0000"}
        "xem_jpy"  { $asset = "xem";  [float]$unit = 0.1;   $column = "#,0.0000"}
        "cicc_jpy" { $asset = "CICC"; [float]$unit = 0.1;   $column = "#,0.0000"} 
        "zaif_jpy" { $asset = "ZAIF"; [float]$unit = 0.1;   $column = "#,0.0000"} 
        "mona_jpy" { $asset = "mona"; [float]$unit = 1;     $column = "#,0.0000"} 
    }

#*******************************************************************************
    switch($unit) {
        1     { $buy_coins = [Math]::Truncate($buy_coins * 1)    / 1 }
        0.1   { $buy_coins = [Math]::Truncate($buy_coins * 10)   / 10 }
        0.01  { $buy_coins = [Math]::Truncate($buy_coins * 100)  / 100 }
        0.001 { $buy_coins = [Math]::Truncate($buy_coins * 1000) / 1000 }
    }

$today = (Get-Date).ToString("HH:mm:ss")                 #現在日時を取得する #debug
    $objPs = New-Object PSCustomObject                                           #debug
    $objPs | Add-Member -NotePropertyMembers @{time  = "$today ,"}               #debug
    $objPs | Add-Member -NotePropertyMembers @{pair  = "$pair ,"}                #debug
    $objPs | Add-Member -NotePropertyMembers @{order = "bid ,"}                  #debug
    $objPs | Add-Member -NotePropertyMembers @{price = "$buy_price ,"}           #debug
    $objPs | Add-Member -NotePropertyMembers @{coins = "$buy_coins "}            #debug
    $objPs | FT                                                                  #debug

[string]$ok_exec = Read-Host "買いを実行しますか？[ok/no]"
    if ($ok_exec -ne "ok") {echo "コインを購入する 終了"; exit}

$res = Set-trade  $pair "bid" $buy_price $buy_coins
    $received   = $res.received
    $remains    = $res.remains
    $uper_order = $res.order_id  
    $funds      = $res.funds.$asset
    Write-Host "約定量   = $received"
    Write-Host "未約定量 = $remains"
    Write-Host "未注文ID = $uper_order"
    Write-Host "残高     = $funds"

Write-Host "注文ID = $uper_order"

Write-Host "コインを購入する 終了"
}
    cls        #         仮想通貨　売り気配　 枚数
               buy-quick "btc_jpy" $null      0.001        #自動換金システム（改）
<#Function#> # buy-quick($pair,    $buy_price,$buy_coins)

実行結果です。

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

クイック買い注文をする樹

仕様

留意事項

プログラム・ソース

ページ切り替え